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

5 lines
93 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(define (fibonacci n)
(if (< n 2) 1
(+ (fibonacci (- n 1))
(fibonacci (- n 2)))))