Показать сообщение отдельно
  (#2 (permalink)) Старый
korvin korvin вне форума
Member
 
Аватар для korvin
 
Сообщений: 337
Сказал(а) спасибо: 1
Поблагодарили 15 раз(а) в 15 сообщениях
Регистрация: 25.01.2010
По умолчанию 10.12.2012, 08:57

lisp Код:
(defun f (list)
  (if (null (cddr list))
      list
    (let ((xs       list )
          (ys (cdr  list))
          (zs (cddr list))
          (result nil))
      (loop :for x :in xs
            :for y :in ys
            :for z :in zs
            :do (push (if (< y 0) (* x z) y) result)
            :finally (push z result))
      (cons (car list) (nreverse result)))))


Object-oriented design is the roman numerals of computing. — Rob Pike
Ответить с цитированием
Ads