Добавил:
teriint
wolfain@mail.ru
Хз кто это читает, но знайте - открыт к любым новым знакомствам (нет). Хех.
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Новый текстовый документ
.txt;gnu clisp 2.49
(defun lab2_a (L)
(cond
((null L) 1)
((= (rem (car L) 2) 0) (* (car L) (lab2_a (cdr L))))
(t(lab2_a (cdr L))
)
)
)
(dolist (x '(1 2 3 4 5 6) 'Ok) (if (= (rem x 2) 0) (prin1 (list x)) ) (print "") )
(trace lab2_a)
(print(lab2_a '(1 2 3 4 5 6)))
(untrace lab2_a)
(time(lab2_a '(1 2 3 4 5 6)))
(time nil)
(time nil)
(time nil)
Соседние файлы в предмете Искусственный интеллект