フィボナッチ数列

このページについて

Gauche 0.9.3 にて実装された遅延シーケンス機能を使って、フィボナッチ数を求めてみる。

なお、総称関数 map-with-index を使い、n 番目のフィボナッチ数 Fn を表示している。

;; Gauche Users' Reference: 6.19 Lazy evaluation
;; http://practical-scheme.net/gauche/man/gauche-refe_57.html

(use gauche.lazy)
(use gauche.sequence)

(define *fibs*
  (lcons* 0 1 1 (lmap (^[a b] (+ a (* b 2))) *fibs* (cdr *fibs*))))

(define (fibonacci-sequence n)
  (take *fibs* n))

(use gauche.time)

(time-this 1 (lambda () (fibonacci-sequence 500)))
; #<time-result 1 times/  0.000 real/  0.000 user/  0.000 sys>
(time-this 1 (lambda () (fibonacci-sequence 100000)))
; #<time-result 1 times/  1.958 real/  1.485 user/  0.453 sys>

一覧表