RosettaCodeData/Task/Fibonacci-sequence/NewLISP/fibonacci-sequence-2.newlisp
2015-11-18 06:14:39 +00:00

4 lines
93 B
Text

(define (fibonacci n)
(if (< n 2) 1
(+ (fibonacci (- n 1))
(fibonacci (- n 2)))))