mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Anonymous-recursion/EchoLisp/anonymous-recursion.l

6 lines
94 B
Common Lisp
Raw Permalink Blame History

(define (fib n)
(let _fib ((a 1) (b 1) (n n))
(if
(<= n 1) a
(_fib b (+ a b) (1- n)))))
Reference in New Issue View Git Blame Copy Permalink