RosettaCodeData/Task/Fibonacci-sequence/Scheme/fibonacci-sequence-2.scm

6 lines
99 B
Scheme
Raw Permalink Normal View History

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