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