Welcome to the CHICKEN Scheme pasting service

Revised csc -f added by DougT on Thu Jul 22 16:28:48 2021

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

(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 (clk)) )
  (main)
  (display (- (clk) 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 module provides `process-wait'?
Visually impaired? Let me spell it for you (wav file) download WAV