初学LISP,写了一个求斐波那契数的递归式:
(defmacro f (n)
(funcall
(lambda (fn n)
(funcall fn n fn))
(lambda (n this)
(cond ((> n 2)
(+ (funcall this (- n 1) this) (funcall this (- n 2) this)))
((= n 2)
1)
(t 1)))
n))
入门级别,还请多多指教。