Welcome to the CHICKEN Scheme pasting service

rev2 csc -f added by DougT on Thu Jul 22 16:32:20 2021

;;; csc -f -O4 -block -lfa2 fib5A.scm  : 2.5 seconds
;;; csc  -O4 -block -lfa2 fib5A.scm  : 65  seconds

(import (scheme time))

(define fib 
  (lambda (x) 
      (if (<= x 1)
          x
          (+ (fib (- x 1)) (fib (- x 2))))))    

(define (main)
  (let* (  [fibNum 45] [result (fib fibNum)]  )   
    (display "(fib 45) = ")
    (display result) (newline))) 

(let ( (start (current-jiffy)) )
  (main)
  (display (- (current-jiffy) start) )
  (display " ms elapsed time") (newline))
~                                                                                        
~
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which one-argument R5RS procedure returns 1 when given `'(1 2 3)' as input?
Visually impaired? Let me spell it for you (wav file) download WAV