無限入れ子の値をHaskellで表現すると…

先日の問題をHaskellで表現する。

mugen_ireko = map valueAt [1..]
  where
    valueAt 1 = sqrt 2
    valueAt i = sqrt $ 2 * valueAt (i-1)

そのまま表現すればいいのに、なんで悩んだんだろ?

Prelude> mugen_ireko !! 1000
1.9999999999999998