> 1 <

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

Stalker107

Members


Статус

2 сообщений

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

#5939   2012-04-01 14:07 GMT+3 часа(ов)      
Добрый день.Прошу помощи в написании функции.

Задача:Посчитать количество отрицательных элементов списка.
Буду очень благодарен !За вашу помощь

megamanx

Members


Статус

307 сообщений

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

#5940   2012-04-01 14:48 GMT+3 часа(ов)      
(defun foo1 (L)
(if L
(if (< (car L) 0)
(+ 1 (foo1 (cdr L)))
(foo1 (cdr L))) 0))
 
(defun foo2(L &optional (R 0))
(if L
(if (< (car L) 0)
(foo2 (cdr L) (+ R 1))
(foo2 (cdr L) R))
R))
 
(defun foo3(L)
(loop for i in L if (< i 0) count i))
I wish I'd made you angry earlier

Stalker107

Members


Статус

2 сообщений

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

#5941   2012-04-01 22:15 GMT+3 часа(ов)      
Спасибо тебе огромное!О Великий !=)
> 1 <


Онлайн :

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




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