Требования к оформлению отчета.

Отчет оформляется каждым студентом самостоятельно и содержит номер, название, цели и задачи лабораторной работы, задание и результаты реализации (листинг программы, схемы, контрольный пример, результаты), ответы на контрольные вопросы.

Контрольные вопросы.

1. Часто, при выполнении каких-либо действий над хвостом списка мы используем предикат null проверки конца списка. Например:

(defun recurse (l)

(if (null l) (do-something)

(do-something-else (car l) (recurse (cdr l)))))

Можно ли вместо предиката null использовать предикат (eql l nil)? Объясните ваш ответ. Объясните также, почему Лисп содержит несколько различных предикатов сравнения.

2. Реализуйте итерационную версию функции, которая реализует алгоритм пузырьковой сортировки над списком чисел.

3. Что выполняет следующая рекурсивная функция?

(defun mystery (n)

(cond ((zerop n) 1)

(t (+ n (mystery (- n 1))))))

4. Реализуйте итерационную версию приведенной в предыдущем задании функции mystery.

5. Определить функцию, реализующую поиск позиции минимального элемента в списке. Если список пустой, то ответом должно быть число 0.

Примеры:

>minimum( '(3 2 7 1 4 8) )

6. Ниже приведена функция sum, которая позволяет получить сумму элементов списка, не равных NIL. К сожалению, эта функция работает не совсем правильно: допустим, что входной список содержит только элементы NIL и цифры. Найдите и исправьте ошибки.

(defun sum (lst)

(let ((x (first lst)))

(if (null x)

(sum (rest x))

(+ x (sum (rest x))))))