|
|
|
|
|
|
|
(define fib (lambda (n)
|
|
(if (< n 2) 1
|
|
(+ (fib (- n 2)) (fib (- n 1)) 1))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(def num (fib 20))
|
|
|
|
(def start (time))
|
|
|
|
(loop (( a 0 )) (< a 1000)
|
|
{
|
|
(fib 20)
|
|
(setq a (+ a 1))
|
|
}
|
|
)
|
|
|
|
(def end (time))
|
|
|
|
(print (/ ( * 1000 num) (/ (- end start) 1000000.0)) " fibs / seconds")
|
|
|