RosettaCodeData/Task/Fibonacci-sequence/Racket/fibonacci-sequence-2.rkt

5 lines
88 B
Racket
Raw Permalink Normal View History

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