Показать сообщение отдельно
  (#2 (permalink)) Старый
VH VH вне форума
Member
 
Сообщений: 781
Сказал(а) спасибо: 0
Поблагодарили 11 раз(а) в 10 сообщениях
Регистрация: 29.06.2006
По умолчанию 13.05.2008, 23:59

a)
Код:
(defun F (N1 N2)
  (if (>= N1 N2)
   (cons N2 nil)
   (cons N1 (F (1+ N1) N2))))
в)
Код:
(defun REVERSE1 (L); основа - Хювёнен-Сеппянен "Мир Лиспа" т.1 стр.219
  (if L
   (append
    (REVERSE1 (cdr L))
    (cons (car L) nil))))
Код:
(defun REV (L); Хювёнен-Сеппянен "Мир Лиспа" т.1 стр.234
  (cond
   ((null L) L)
   ((null (cdr L)) L)
   (T
    (cons
     (car (REV (cdr L)))
     (REV (cons (car L) (REV (cdr (REV (cdr L))))))))))
г) как должен выглядеть список '(0 1 2 3) после "утроения"?
Ответить с цитированием
Ads