Увеличить строки матрицы на два первых элемента этой же строки

@Mypowerfulbrain · Регистрация: 24.07.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте, форумчане и гости!
Необходимо создать функцию входным параметром которой является матрица, а выходным – модифицированная матрица в которой в каждой строке на два элемента больше, причем эти два элемента это первых два элемента этой же строки. Только операторный стиль. Без рекурсии, без фишек, без dotimes.

Пример:

Lisp
1
2
-->(функция '((1 2 3 4 5) (a b c d e) (6 7 8 9 0)))
((1 2 3 4 5 1 2) (a b c d e a b) (6 7 8 9 0 6 7))

Есть код:

Lisp
1
2
3
4
5
6
7
8
(defun more_strok (matrix)
  (setq copy_matrix matrix)
  (setq kolvo_strok (length matrix))
  (setq matrix (nconc (car copy_matrix) (cons (caar copy_matrix) nil) (cons (cadar copy_matrix) nil)))
  (do ((stroka 1 (+ stroka 1)))
      ((= stroka kolvo_strok) matrix)
      (setq matrix (nconc matrix (cadr copy_matrix) (cons (caadr copy_matrix) nil) (cons (cadadr copy_matrix) nil)))
      (setq copy_matrix (cdr copy_matrix))))

Моя программа делает как-то так:

Lisp
1
2
-->(more_strok '((1 2 3) (4 5 6) (7 8 9)))
(1 2 3 1 2 4 5 6 4 5 7 8 9 7 8)

Я понимаю что не нужно было использовать nconc, но и list и append не подходят. Как иначе строить матрицу?

@Catstail · 14.11.2013, 21:27

Сообщение от Mypowerfulbrain

Без рекурсии, без фишек, без dotimes.

-

Lisp
1
2
3
4
5
6
7
8
(defun more-cols (matr)
  (mapcar #'(lambda (x) (append x (subseq x 0 2))) matr))
 
==> more-cols
 
(more-cols '((1 2 3 4 5) (a b c d e) (6 7 8 9 0)))
 
==> ((1 2 3 4 5 1 2) (a b c d e a b) (6 7 8 9 0 6 7))

@Mypowerfulbrain · 14.11.2013, 21:41 **[ТС]**

Спасибо, Catstail =)
А можно без использования mapcar # ?

@Catstail · 14.11.2013, 21:46

Так:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(defun more-cols (matr)
  (prog (res line)
@
    (when (null matr) (return res))
    (setq line (car matr))
    (setq line (append line (subseq line 0 2)))
    (setq res (append res (list line)))
    (setq matr (cdr matr))
    (go @)))
 
==> more-cols
 
(more-cols '((1 2 3 4 5) (a b c d e) (6 7 8 9 0)))
 
==> ((1 2 3 4 5 1 2) (a b c d e a b) (6 7 8 9 0 6 7))

@Mypowerfulbrain · 14.11.2013, 22:19 **[ТС]**

А что делает subseq? Я очень зажат в инструментах и даже эту функцию не могу использовать, так как не имею таковую.

@Catstail · 14.11.2013, 22:55

subseq возвращает отрезок списка. В данном случае без него легко обойтись:

Lisp
1
2
3
4
5
6
7
8
9
(defun more-cols (matr)
  (prog (res line)
@
    (when (null matr) (return res))
    (setq line (car matr))
    (setq line (append line (list (car lst) (cadr lst))))
    (setq res (append res (list line)))
    (setq matr (cdr matr))
    (go @)))

@Mypowerfulbrain · 14.11.2013, 23:04 **[ТС]**

Спасибо! Живите долго! =)
Наверное вместо lst нужно line?

@Catstail · 15.11.2013, 07:31

Сообщение от Mypowerfulbrain

Наверное вместо lst нужно line?

- да, конечно! Пардон...

@Mypowerfulbrain · 15.11.2013, 19:53 **[ТС]**

Мда, в pc-lisp 3.0 нельзя меткой ставить "собаку" – @. В pc-lisp 3.0 нет предложения when, так что конечный результат что-то такое:

Lisp
1
2
3
4
5
6
7
8
9
(defun more-cols (matr)
  (prog (res line)
metka
    (if (null matr) then (return res))
    (setq line (car matr))
    (setq line (append line (list (car line) (cadr line))))
    (setq res (append res (list line)))
    (setq matr (cdr matr))
    (go metka)))

Препод просто жжет. Преподает то, что знает. С какой-то стороны это плюс: студенты меньше должны заглядывать в интернет и больше в конспект и лучше слушать лекции, но с практической стороны это огромный минус, так как в будущем многие из этих вещей не пригодятся и нужно будет переучиваться на современный лад, мучатся с современными диалектами. Это конечно не оправдывает ошибку в моем генетическом коде, но все же затрудняет лабоделание.
Catstail, еще раз благодарю!

Новые блоги и статьи Все статьи Все блоги /
К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .

@Mypowerfulbrain 21 / 21 / 1 Регистрация: 24.07.2013 Сообщений: 121
	14.11.2013, 21:41 [ТС]
	Спасибо, Catstail =) А можно без использования mapcar # ? 0

@Mypowerfulbrain 21 / 21 / 1 Регистрация: 24.07.2013 Сообщений: 121
	14.11.2013, 22:19 [ТС]
	А что делает subseq? Я очень зажат в инструментах и даже эту функцию не могу использовать, так как не имею таковую. 0

@Mypowerfulbrain 21 / 21 / 1 Регистрация: 24.07.2013 Сообщений: 121
	14.11.2013, 23:04 [ТС]
	Спасибо! Живите долго! =) Наверное вместо lst нужно line? 0