1- 4_Функциональное программирование_3

вариант: v = 59*8/div 100 = 4;

Контрольное задание 1.

Вариант 4.

1.Напишите функцию, осуществляющую циклическую перестановку элементов в списке,

т.е. (f g h j) -> (g h j f).

(defun cycle(x)

(reverse (cons (car x) (reverse (cdr x))))

)

2.Напишите функцию, которая из данного одноуровневого списка строит список списков его элементов, например, (a b)->((a)(b)).

(defun llist(x)

(if (null x)

NIL

(cons (list (car x)) (llist (cdr x)) )

)

)

3.Определите функцию, зависящую от двух аргументов u и v, являющихся списками, которая вычисляет список всех элементов u, не содержащихся в v.

(defun unotv(u v)

(if (null u)

NIL

(if (member (car u) v)

(unotv (cdr u) v)

(cons (car u) (unotv (cdr u) v))

)

)

)

Рецензия 1

Функциональное программирование

Контрольная работа №1

Вариант 4

Специальность 220400

Проверил Зюзьков Валентин Михайлович

10.03.03

Оценка: работа зачтена.

Комментарий

Все правильно.