RosettaCodeData/Task/Fibonacci-sequence/NewLISP/fibonacci-sequence-2.newlisp

5 lines
93 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
(define (fibonacci n)
(if (< n 2) 1
2015-11-18 06:14:39 +00:00
(+ (fibonacci (- n 1))
(fibonacci (- n 2)))))