Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (X13/Arch) Updated GH CI c9e0d1e 1 year ago 1221 Commits
nujel / benchmark / recfib / fib.scm
Raw
application/vnd.lotus-screencam • 173 B • 8 lines 
(define (fib n)
      (cond ((= 0 n) 0)
            ((= 1 n) 1)
            (#t (+ (fib (- n 1)) (fib (- n 2))))))

(display "fib(40) = ")
(display (fib 40))
(display "\n")