> 1 <

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

Дуська

Members


Статус

21 сообщений

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

#6978   2013-03-30 01:19 GMT+3 часа(ов)      
Написать функционал КАЖДЫЙ с функциональным параметром-
предикатом f, проверяющий, каждый ли элемент списка удовлетворяет свойству f.

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 67

#6981   2013-03-30 21:33 GMT+3 часа(ов)      
 
(defun EVERY (f lst)
(cond ((null lst) t)
((not (funcall f (car lst))) Nil)
(t (EVERY f (cdr lst)))))
==> EVERY
(EVERY #'evenp '(2 4 6 8 10))
==> T
(EVERY #'evenp '(2 4 6 5 8 10))
==> NIL
 
> 1 <


Онлайн :

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