> 1 <

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

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

Members


Статус

15 сообщений

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

#5326   2011-12-13 23:29 GMT+3 часа(ов)      
Есть список (3 4 1). Никаких подсписков в списке быть не может.
И вот из этого надо получить: ( (3) (4) (1) )

Как такое сделать?

Пробовал так (но что-то не совсем то):

(defun Yo (L)
(COND
((NULL L) L)
(T (cons (Car L) (list(Yo (Cdr L)))))
)
)

Подскажите, пожалуйста.

VH

Members


Статус

289 сообщений

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

#5328   2011-12-13 23:50 GMT+3 часа(ов)      
(defun F (L)
(cond
((null L) nil)
(T
(cons
(cons (car L) nil)
(F (cdr L))))))

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

Members


Статус

15 сообщений

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

#5329   2011-12-13 23:52 GMT+3 часа(ов)      
VH, спасибо.
> 1 <


Онлайн :

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