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

б)
Код:
(defun F (L &optional (R '(0 0 0)))
  (if (null L) R
   (F
    (cdr L)
    (mapcar '+
     R
     ((lambda (elem)
       (cond
        ((minusp elem) '(1 0 0))
        ((zerop elem) '(0 1 0))
        (T '(0 0 1))))
      (car L))))))
Ответить с цитированием
Ads