--/--/--

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

2008/06/08

iterate でフィボナッチ数列

Haskell の iterate 関数を再発明してたらなんとなく思いついた。

iter x f = x : iter (f x) f

fib x = fst $ fibs !! x
    where
         fibs = iter (1,1) (\(n,m) -> (m,n+m))

fib 100 とかも一瞬。

スポンサーサイト

comment

post




上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。