フィボナッチ数列だっ

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

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

以下のような形式で解いてみた。
１問目だけあって、割と簡単だった。

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

isMultiple3or5 x
  |x`mod`3==0 = x
  |x`mod`5==0 = x
  |otherwise  = 0

makeListOfMultiple3or5 list = map isMultiple3or5 list

main=do n<-readLn
        print $ sum $ makeListOfMultiple3or5 $ take n $ iterate (1+) 0 

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

上記コードは、無駄な処理が多いという指摘を受けたので、golf してみた。

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

n%m=n`mod`m<1
f n|n%5=n|n%3=n|1>0=0
main=do n<-readLn;print$sum$map f[1..n]

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

ラムダも使ってみたが、縮まない。。。

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

n%m=n`mod`m<1
f n|n%5=n|n%3=n|1>0=0
main=interact(\n->show$sum$map f[1..read n])
========================================================

うーん、なんか　趣旨が変わってきた。。。
その後、考え直してみると、入力を考えなくて良いことに気づき、
もう少し縮めることができた。
========================================================
n%m=n`mod`m<1
f n|n%5=n|n%3=n|1>0=0
main=print$sum$map f[1..1000]
========================================================