> 1 <

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

Познающий

Members


Статус

17 сообщений

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

#1531   2010-03-09 21:45 GMT+3 часа(ов)      
имеется у нас список в котором много чего: setq s'(1 2 3 4 (4 5) ((( ))) 4 (()) )

вот недели две бьюсь - не пойму - как вынести списки, в которых пустые списки - считается мусором =(

Fallen_s4e

Members


Статус

114 сообщений
http://lisper.ru
Где: Zimbabwe lisper.ru
Род занятий: fallen_s4e
Возраст: 8

#1532   2010-03-09 22:38 GMT+3 часа(ов)      
(defun garbage-p(elt)
(cond
((typep elt 'list)
(if (consp elt)
(every #'garbage-p elt)
t))
(t nil)))

CL-USER> (garbage-p '(1 2 3 4 (4 5) ((( ))) 4 (()) ))
NIL
CL-USER> (garbage-p '(() ((( ))) (()) ))
T
CL-USER> (garbage-p '(() ((( ))) (()) 1))
NIL
(remove-if #'garbage-p list)
(remove-if-not #'garbage-p list)
 

отредактировал(а) Fallen_s4e: 2010-03-09 22:43 GMT+3 часа(ов)
> 1 <


Онлайн :

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