Добавил:
wolfain@mail.ru Хз кто это читает, но знайте - открыт к любым новым знакомствам (нет). Хех. Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Новый текстовый документ

.txt
Скачиваний:
2
Добавлен:
04.03.2018
Размер:
406 б
Скачать
;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)
Соседние файлы в предмете Искусственный интеллект