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

7 lines
155 B
Racket

(define (fibo number)
(define (fibo-rec number n i)
(if (<= number 0)
i
(fibo-rec (- number 1) (+ n i) n)))
(fibo-rec number 1 0))