Gaucheでフィボナッチ数列
10月 24th, 2008 admin Posted in 未分類 | 
Gaucheの習作
最近はHelloWorldをかいた後はフィボナッチ数列らしい
CODE:
-
(define (fib n)
-
(cond
-
([= n 0] 1)
-
([= n 1] 1)
-
(else (+ (fib (- n 2)) (fib (- n 1))))))
-
-
(define (fibs n)
-
(cond
-
([= n 0] '(1))
-
([= n 1] '(1 1))
-
([> n 1] (append (fibs (- n 1)) (fib n)))
-
))
(fibs 10)とかで1 1 2 3 5 8 13 21 34 55とかってなる
Leave a Reply