> 1 <

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

Яна

Members


Статус

2 сообщений

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

#5058   2011-11-15 21:52 GMT+3 часа(ов)      
delete

отредактировал(а) Яна: 2011-11-16 03:29 GMT+3 часа(ов)

bokunopico

Members


Статус

54 сообщений

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

#5059   2011-11-15 22:42 GMT+3 часа(ов)      
> с атомом, говорят, лишняя работа
А если будут вложенные подсписки? Например, сравни:
 
(defun count1 (L)
(cond ((null L) 0)
(t (1+ (count1 (cdr L))))))
 
> (count1 '(1 2 3))
3
> (count1 '(1 2 3 4 (5 6)))
5 ; должно быть 6, разве нет?
 

и такую реализацию:
 
(defun count2 (L)
(cond ((null L) 0)
(t (+ (if (atom (car L)) 1 (count2 (car L)))
(count2 (cdr L))))))
 
> (count2 '(1 2 3))
3
> (count2 '(1 2 3 4 (5 6)))
6
 
> 1 <


Онлайн :

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