RosettaCodeData/Task/Fibonacci-sequence/LFE/fibonacci-sequence-1.lfe

7 lines
83 B
Plaintext

(defun fib
((0) 0)
((1) 1)
((n)
(+ (fib (- n 1))
(fib (- n 2)))))