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

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