Рекурсивные алгоритмы функций

@flust · Регистрация: 28.12.2013

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

Алоха. Нужна помощь:
Пусть дана вещественная квадратная матрица порядка 2n. Получите новую матрицу, переставляя ее блоки размером n так, как показано на рисунке. Для обмена четырех заданных фрагментов матрицы напишите функцию.

Заранее спасибо.

@Catstail · 29.12.2013, 11:38

HomeLisp:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
(defun transform (matr)
 (let* ((2n (length matr))
        (n (\ 2n 2))  
        (m11 nil)
        (m12 nil)
        (m21 nil)
        (m22 nil))
       (iter (for row in matr) (for c from 1 to 2n)
         (when (<= c n) 
           (collecting (subseq row 0 n) into m11)
           (collecting (subseq row n) into m12))
         (when (> c n)
           (collecting (subseq row 0 n) into m21)
           (collecting (subseq row n) into m22)))
        (append (mapcar 'append m22 m21)
                (mapcar 'append m12 m11))))
 
==> transform
 
(transform '((1 2 3 4) (5 6 7 8) (9 10 11 12) (13 14 15 16)))
 
==> ((11 12 9 10) (15 16 13 14) (3 4 1 2) (7 8 5 6))

Исходная матрица:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{pmatrix}1 & 2 & 3 & 4 \\ 5 & 6 & 7 & 8 \\ 9 & 10 & 11 & 12 \\ 13 & 14 & 15 & 16 \end{pmatrix}$

Результат:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{pmatrix}11 & 12 & 9 & 10 \\ 15 & 16 & 13 & 14 \\ 3 & 4 & 1 & 2 \\ 7 & 8 & 5 & 6 \end{pmatrix}$

Верно?

@flust · 29.12.2013, 11:49 **[ТС]**

Все верно. Огромное спасибо!

@Catstail · 29.12.2013, 12:02

Напоминаю, решение - для HomeLisp. Для Common Lisp нужны переделки.

Добавлено через 7 минут
Вот решение для CL:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(defun transform (matr)
 (let* ((2n (length matr))
        (n (/ 2n 2))  
        (m11 nil)
        (m12 nil)
        (m21 nil)
        (m22 nil))
       (dolist (row matr t)
          (if (< (length m11) n) 
              (progn 
                (push (subseq row 0 n) m11)
                (push (subseq row n)   m12))
              (progn 
                (push (subseq row 0 n) m21)
                (push (subseq row n)   m22))))
        (append (mapcar 'append (reverse m22) (reverse m21))
                (mapcar 'append (reverse m12) (reverse m11)))))

@Mark7ven · 21.12.2015, 12:35

Catstail, на HomeLisp не работает программа. Выдаёт: Внутри LET: EVFUN: Не найдена функция ITER.
Подскажите пожалуйста, в чем проблема

@Catstail · 21.12.2015, 14:07

Mark7ven, возьмите здесь последнюю реализацию HomeLisp. Все заработает.

@Mark7ven · 21.12.2015, 14:18

Catstail, сделал, но теперь выдает вот это :
EVFUN: Не найдена функция LENGTH
Функция: length Аргументы: (matr)
==> ERRSTATE

Добавлено через 5 минут
Catstail, всё, заработало. lib-k.lsp, переименовал в lib-e.lsp

@Catstail · 21.12.2015, 14:23

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

Catstail, всё, заработало. lib-k.lsp, переименовал в lib-e.lsp

- вот и ладненько...

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@flust 0 / 0 / 0 Регистрация: 28.12.2013 Сообщений: 7

	Рекурсивные алгоритмы функций 28.12.2013, 22:44. Показов 1196. Ответов 7 Метки нет (Все метки) Алоха. Нужна помощь: Пусть дана вещественная квадратная матрица порядка 2n. Получите новую матрицу, переставляя ее блоки размером n так, как показано на рисунке. Для обмена четырех заданных фрагментов матрицы напишите функцию. Заранее спасибо. Изображения 0

@flust 0 / 0 / 0 Регистрация: 28.12.2013 Сообщений: 7
	29.12.2013, 11:49 [ТС]
	Все верно. Огромное спасибо! 0

@Mark7ven 0 / 0 / 0 Регистрация: 21.12.2015 Сообщений: 3
	21.12.2015, 12:35
	Catstail, на HomeLisp не работает программа. Выдаёт: Внутри LET: EVFUN: Не найдена функция ITER. Подскажите пожалуйста, в чем проблема 0

@Catstail Супер-модератор 38200 / 21132 / 4310 Регистрация: 12.02.2012 Сообщений: 34,738 Записей в блоге: 14
	21.12.2015, 14:07
	Mark7ven, возьмите здесь последнюю реализацию HomeLisp. Все заработает. 1

@Mark7ven 0 / 0 / 0 Регистрация: 21.12.2015 Сообщений: 3
	21.12.2015, 14:18
	Catstail, сделал, но теперь выдает вот это : EVFUN: Не найдена функция LENGTH Функция: length Аргументы: (matr) ==> ERRSTATE Добавлено через 5 минут Catstail, всё, заработало. lib-k.lsp, переименовал в lib-e.lsp 0