フィボナッチ数列だっ

Golf 場にも フィボナッチがあったので、
一緒に合わせて解いてみることにしたわけですよ。

http://golf.shinh.org/p.rb?Fibonacci+Numbers

=================================
● 以下のコードで実験したら、遅すぎて　サーバがタイムアウトエラーに。。。
    ひどい。。。

f 1=1
f 2=1
f n=f(n-1)+f(n-2)
main=mapM print[f k|k<-[1..46]]
=================================

○　net を漁っていたら、こんなすごいコードが見つかった。

f=1:scanl (+) 1 f
main=mapM print$take 46 f

f 自体がLISTなんだけど、再帰的に自分を呼んでいる。
なぜ、こうすると良いのかというのが、なんとなくは分かるけど　明確に理解できない。。。

というか、上記コードの場合、 f は元々は [] のリストと考えていくと フィボナッチになるんだけど、
コードに、一番最初の状態が書かれていない。

なぜ　コンパイルが通るのか　全くわからない。。。

○ ３６バイトのコードはなんか邪悪そうだ。
   無視することにした。

=================================
● project euler は以下のようなやり方で解いた。
    n=50 あったら、さすがに合計は 400万を超えているだろうという見込みだけの
    反則技だが、【解いたら　それでいいのだ】　と言いたい。。。　うーん

f=1:scanl(+)1f
g n|n`mod`2<1=n|1>0=0
h n|n>4000000=0|1>0=n
main=print$sum$map g$map h$take 50 f

=================================