Рекурсивная функция, создающая список только из числовых элементов списка-аргумента

@аааммм · Регистрация: 15.11.2012

Author24 — интернет-сервис помощи студентам

И еще одна просьба: описать функцию, которая создавала бы список тольео из числовых элементов списка - аргумента. Списки могут содержать подсписки произвольной глубины

@Catstail · 16.11.2012, 09:56

Вот решение для одноуровнего списка:

Lisp

(defun filt-num (x)
  (Cond ((null x) nil)
        ((numberp (car x)) (append (list (car x)) (filt-num (cdr x))))
        (t (filt-num (cdr x)))))
 
==> filt-num
 
(filt-num '(q w 1 2 e r))
 
==> (1 2)

А вот - для многоуровнего:

Lisp

(defun filt-num (x)
  (Cond ((null x) nil)
        ((numberp (car x)) (append (list (car x)) (filt-num (cdr x))))
        ((listp (car x)) (append (list (filt-num (car x))) (filt-num (cdr x))))
        (t (filt-num (cdr x)))))
    
 
==> filt-num
 
(filt-num '(q w 1 2 e r))
 
==> (1 2)
 
(filt-num '(q w 1 2 (((a s 6 7))) e r))
 
==> (1 2 (((6 7))))

@аааммм 0 / 0 / 0 Регистрация: 15.11.2012 Сообщений: 12
		1
	Рекурсивная функция, создающая список только из числовых элементов списка-аргумента 15.11.2012, 23:39. Показов 1319. Ответов 1 Метки нет (Все метки) И еще одна просьба: описать функцию, которая создавала бы список тольео из числовых элементов списка - аргумента. Списки могут содержать подсписки произвольной глубины 0

	16.11.2012, 09:56