Составить программу для вычисления функции OTW

@stas888 · Регистрация: 21.10.2013

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

Составить программу для вычисления функции OTW, аргумент
которой LST представляет собой список, содержащий три
подсписка, в каждом из которых по три элемента. Например,
значением LST может быть список

((A B C) (D E F) (G H I))) .

Значением функции OTW должен быть список, содержащий три
подсписка, в каждом из которых по три элемента При этом в
первом подсписке все три элемента являются первыми элементами
подсписков LST, во втором подсписке все три элемента являются
вторыми элементами подсписков LST,в третьем подсписке все три
элемента являются третьими элементами подсписков LST. Так для
приведенного примера результат будет

((A D G) (B E H) (C F I)) .

Программа должна содержать определения пяти функций,
главное из которых есть определение функции OTW. В этом
определении должен быть только один единственный вызов функции
CONS с соответствующими аргументами, являющимися вызовами двух
других функций.
Последовательность действий, которая осуществляется в
результате вызовов всех функций должна быть следующей:
- строится первый подсписок SP1;
- строится второй подсписок SP2;
- строится третий подсписок SP3;
- подсписки SP2 и SP3 объединяются в список SP23;
- подсписок SP1 и список SP23 объединяются в
результирующий список.
При составлении определений функций необходимо учитывать,
что вызов функции верхнего уровня вложенности вызовов функций
осуществляется первым, а результат ее применения формируется
последним. Это замечание справедливо для функции любого уровня
вложенности вызовов функций.
В определениях функций необходимо использовать только
вызовы функций CONS, CA..DR и функций, определенных через
вызовы этих функций.

@Catstail · 21.10.2013, 18:02

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

Программа должна содержать определения пяти функций,

- не многовато ли?

@stas888 · 21.10.2013, 18:04 **[ТС]**

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

- не многовато ли?

Преподователь задал столько.

@Catstail · 21.10.2013, 18:26

Lisp

(defun task (lst)
  (cons 
    (cons (caar lst) (cons (caadr lst) (cons (caaddr lst) nil)))
      (cons  
          (cons (cadar lst) (cons (cadadr lst) (cons (car (cdaddr lst)) nil)))
            (cons 
                (cons (caddar lst) (cons (caddr (cadr lst)) (cons (caddr (caddr lst)) nil))) nil)))) 
 
==> task
 
(task '((a b c) (d e f) (g h i)))
 
==> ((a d g) (b e h) (c f i))

Уф...

@~~ur_naz~~ · 21.10.2013, 18:26

Lisp

1 2	(apply 'mapcar (cons 'list '((A B C) (D E F) (G H I))))

@_sg · 23.10.2013, 18:51

Lisp

(defun transpose-matrix (m) (apply #'mapcar #'list m))
 
> (transpose-matrix '((1 2 3) (4 5 6) (7 8 9)))
((1 4 7) (2 5 8) (3 6 9))

@stas888 · 23.10.2013, 20:07 **[ТС]**

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

Lisp

(defun task (lst)
  (cons 
    (cons (caar lst) (cons (caadr lst) (cons (caaddr lst) nil)))
      (cons  
          (cons (cadar lst) (cons (cadadr lst) (cons (car (cdaddr lst)) nil)))
            (cons 
                (cons (caddar lst) (cons (caddr (cadr lst)) (cons (caddr (caddr lst)) nil))) nil)))) 
 
==> task
 
(task '((a b c) (d e f) (g h i)))
 
==> ((a d g) (b e h) (c f i))

Уф...

при вводе (task '((a b c) (d e f) (g h i))) выдаёт следущее:EVFUN:Не найдена функция CAADR ==> ERRSTATE.Как это исправить?

@Catstail · 24.10.2013, 11:33

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

Как это исправить

Способов два:

1) определить эту функцию:

Lisp

1 2	(defun caadr (lst) (car (car (cdr lst))))

2) Загрузить более свежее ядро HomeLisp отсюда

Заменить exe-файл на новый, файл lib-k.lsp перенеси в \lib, запусти HomeLispIde.exe, войди в режим настройки и укажи библиотеку lib-k.lsp

@stas888 0 / 0 / 0 Регистрация: 21.10.2013 Сообщений: 3
		1
	Составить программу для вычисления функции OTW 21.10.2013, 17:59. Показов 1454. Ответов 7 Метки нет (Все метки) Составить программу для вычисления функции OTW, аргумент которой LST представляет собой список, содержащий три подсписка, в каждом из которых по три элемента. Например, значением LST может быть список ((A B C) (D E F) (G H I))) . Значением функции OTW должен быть список, содержащий три подсписка, в каждом из которых по три элемента При этом в первом подсписке все три элемента являются первыми элементами подсписков LST, во втором подсписке все три элемента являются вторыми элементами подсписков LST,в третьем подсписке все три элемента являются третьими элементами подсписков LST. Так для приведенного примера результат будет ((A D G) (B E H) (C F I)) . Программа должна содержать определения пяти функций, главное из которых есть определение функции OTW. В этом определении должен быть только один единственный вызов функции CONS с соответствующими аргументами, являющимися вызовами двух других функций. Последовательность действий, которая осуществляется в результате вызовов всех функций должна быть следующей: - строится первый подсписок SP1; - строится второй подсписок SP2; - строится третий подсписок SP3; - подсписки SP2 и SP3 объединяются в список SP23; - подсписок SP1 и список SP23 объединяются в результирующий список. При составлении определений функций необходимо учитывать, что вызов функции верхнего уровня вложенности вызовов функций осуществляется первым, а результат ее применения формируется последним. Это замечание справедливо для функции любого уровня вложенности вызовов функций. В определениях функций необходимо использовать только вызовы функций CONS, CA..DR и функций, определенных через вызовы этих функций. 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,643 Записей в блоге: 13
	21.10.2013, 18:02	2
	Сообщение от stas888 Программа должна содержать определения пяти функций, - не многовато ли? 0

@stas888 0 / 0 / 0 Регистрация: 21.10.2013 Сообщений: 3
	21.10.2013, 18:04 [ТС]	3
	Сообщение от Catstail - не многовато ли? Преподователь задал столько. 0

	24.10.2013, 11:33

Составить программу для вычисления функции OTW

Решение