そんな悲しい目をしないで

恒例のフィボナッチベンチで V8 と Smalltalk、Ruby、Python、Scheme とを戦わせてみるにHaskellがいないではないか！ってことで、やってみた。（やってからブログ書く暇がなくて、かなり乗り遅れてるけど）

gabu@ubuntu-vm:~/haskell/fib$ time ./fib 39
63245986

real	0m0.019s
user	0m0.000s
sys	0m0.012s

0.019秒きたーーー。

ソースはこちら。

import System

fibonacci = 1:1:zipWith (+) fibonacci (tail fibonacci)

main = do
  args <- getArgs
  print $ fibonacci !! ((read $ head args) - 1)

List の index の関係で マイナス１してるのがださいけど、こんなもんですかねぇ。

フィボナッチ数列の作り方は、フィボナッチ数列 - Haskell はスケるよから頂きました。読んでも意味が分かりません。。。誰か解説プリーズ。