> 1 <

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

FOcto

Members


Статус

1 сообщений

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

#7423   2014-10-07 11:56 GMT+3 часа(ов)      
Помогите написать функцию, которая по списку ‘(q w e r t y) строит сложный список (q (w (e (r (t (y)))))).

_sg

Members


Статус

42 сообщений

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

#7454   2014-11-01 15:29 GMT+3 часа(ов)      
(defun reconquista (w)
(if (null (cdr w))
(list (car w))
(list (car w) (reconquista (cdr w)))))
 
> (reconquista '(a b c d e f))
(A (B (C (D (E (F))))))
 

(defun reconquista (w)
(if (cdr w) `(,(car w) ,(reconquista (cdr w))) `(,(car w))))
 
> (reconquista '(a b c d e f))
(A (B (C (D (E (F))))))
> 1 <


Онлайн :

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