> 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 пользователь(ей), 38 гость(ей) :