Показать сообщение отдельно
  (#11 (permalink)) Старый
_sg _sg вне форума
Member
 
Аватар для _sg
 
Сообщений: 525
Сказал(а) спасибо: 5
Поблагодарили 42 раз(а) в 38 сообщениях
Регистрация: 23.01.2007
По умолчанию 06.01.2015, 10:22

lisp Код:
(defun liat (w)
  (loop for d on w nconc (reverse d)))

> (liat '(1 2 3 4 5 6))
(6 5 4 3 2 1 6 5 4 3 2 6 5 4 3 6 5 4 6 5 6)
Ответить с цитированием
Ads