トップ «前の日記(2016-05-02(Mon)) 最新次の日記(2016-05-04(Wed))» 編集

屑俺日記

僕の備忘録(PC、UN*X、ネットワーク関連が中心)なんです。
自分の書いたところは適当(な時とか)に書き換えますので御了承を。

2016-05-03(Tue) 曇っていた。予報通り降ってきた

☆ これも定番の

フィボナッチ数列。
なんとか答えを見ずにできた。といっても一般項f(n) = f(n-1) + f(n-2), f(1)=1, f(2)=2 を知らずには無理だったけど。

(define myfibo
  (lambda (n)
    (cond
     ((zero? n) 0)
     ((<= n 2) 1)
     (else
      (+ (myfibo (- n 1))
         (myfibo (- n 2)))))))
 
(myfibo 15)
gosh> 610

(define fibos
  (lambda (m)
    (cond
     ((zero? m) '())
     (else
      (cons (myfibo m)
            (fibos (- m 1)))))))
 
(fibos 10)
gosh> (55 34 21 13 8 5 3 2 1 1)

[ツッコミを入れる]

リンクはご自由にどうぞ。でもURLや内容が変った場合はあしからず。

index.htmlはここから。