> 1 <

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

Дуська

Members


Статус

21 сообщений

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

#6960   2013-03-22 22:05 GMT+3 часа(ов)      
В числовом списке найти количество отрицательных чисел.

Файфель Б.Л.

Members


Статус

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

#6964   2013-03-22 23:26 GMT+3 часа(ов)      
 
(defun task (lst)
(length (remove-if-not #'minusp lst)))
==> task
(task '(1 2 -5 -6 7))
==> 2
(defun task (lst)
(cond ((null lst) 0)
((minusp (car lst)) (1+ (task (cdr lst))))
(t (task (cdr lst)))))
==> task
(task '(1 2 -5 -6 7))
==> 2
 
> 1 <


Онлайн :

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