Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Lisp] Помогите решить задачку


Автор: mеat 25.5.2008, 15:11
Определить функцию, результатом которой является список из N копий.

Автор: VH_ 26.5.2008, 08:24
Код

(defun F (L N &optional New)
 (if (zerop N) New
  (F L (1- N) (cons L New))))

Вариант с небольшой «защитой от дурака»:
Код

(defun F (L N &optional New)
 (cond
  ((minusp N) nil)
  ((zerop N) New)
  (T (F L (1- N) (cons L New)))))


Автор: mеat 26.5.2008, 21:45
А как программа будет выглядеть в мю лиспе??

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)