История изменений

Исправление theNamelessOne, 02.10.13 15:50 (текущая версия) :

Ну тот-то всё понятно, вот посложнее:

((lambda (f &rest args)
   (apply f f args))
 (lambda (f n)
    (if (zerop n)
        1
        (* n
           (funcall f f (1- n)))))
 5)

Исходная версия theNamelessOne, 02.10.13 15:49:

Ну тот-то всё понятно, вот посложнее:

((lambda (f &rest args)
   (apply f f args))
 (lambda (f n)
    (if (zerop n)
        1
        (* n
           (funcall f f (1- n)))))
 5)