練習問題 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.0