fib.scm

Scheme跨平台编译器

;;; fib.scm

(define (fib n)
  (if (< n 2)
      n
      (+ (fib (- n 1)) (fib (- n 2))) ) )

(time (pp (fib 30)))