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



(time (fib 30))
;time は　cdrの一つ目の実行時間を計測するデバック関数
;実行結果
;5285[ms]
;832040

こいつ、案外早いぞ。