> 1 <

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

Добрый_Утконос

Members


Статус

15 сообщений

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

#4673   2011-09-23 16:25 GMT+3 часа(ов)      
Добрый день.
Подскажите, может быть кто-то сталкивался с такой банальной для разработчика, и доставляющей трудности чайнику, функцией, которая могла бы реализовать следующее:

Открыть все подсписки, содержащиеся в переданном функции списке.
Количество и глубина список заранее неизвестна.
Например: Funkcija '((1 2) -4 (((((5))))) 7 (8 (-3 -2)) )
должна выдать: (1 2 -4 5 7 8 -3 -2).
Помогите, пожалуйста, решить такую задачу.

megamanx

Members


Статус

307 сообщений

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

#4674   2011-09-23 16:36 GMT+3 часа(ов)      
(DEFUN InOneLine (L)
(COND
((NULL L) NIL)
((ATOM L) (CONS L NIL))
(T
(APPEND
(InOneLine (CAR L))
(InOneLine (CDR L))
))))

Одна из первых, кстати, функций в учебнике по лиспу.
I wish I'd made you angry earlier

Добрый_Утконос

Members


Статус

15 сообщений

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

#4675   2011-09-23 16:42 GMT+3 часа(ов)      
megamanx,
спасибо вам огромное!
> 1 <


Онлайн :

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




Реклама на сайте: