> 1 <

Автор Сообщение

zoya69

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст: 21

#7435   2014-10-23 23:07 GMT+3 часа(ов)      
помогите с комментариями к программе,и скажите как она работает

(defun task (lst &optional (h (car lst)) (l (cdr lst)))
(cond ((null l) (list h))
(t (cons (car l) (task lst h (cdr l))))))

==> task

(task '(a b c d))

==> (b c d a)






и еще одна

(defun task (lst)
(equal (car lst) (car (last lst))))

==> task

(task '(1 2 3))

==> NIL

(task '(1 2 1))

==> T
> 1 <


Онлайн :

0 пользователь(ей), 8 гость(ей) :




Реклама на сайте: