練習問題 4.5.10
数学の定数 e は e = n=0 1/n! と定義されている．e をある十分な精度で求める式を書け．e,e' :: Double
e = sum $ takeWhile (> 0.0) $ scanl (/) 1 [1..]
e' = sum $ reverse $ takeWhile (> 0.0) $ scanl (/) 1 [1..]? e - exp 1
4.440892098500626e-16
? e' - exp 1
0.0e,e' :: Double
e = sum $ takeWhile (> 0.0) $ scanl (/) 1 [1..]
e' = sum $ reverse $ takeWhile (> 0.0) $ scanl (/) 1 [1..]? e - exp 1
4.440892098500626e-16
? e' - exp 1
0.0