Skip to content

Instantly share code, notes, and snippets.

@kierdavis

kierdavis/DofE.hs

Created February 27, 2014 20:04
Show Gist options
  • Save kierdavis/9258360 to your computer and use it in GitHub Desktop.
Save kierdavis/9258360 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
DofE.hs
Prelude> mapM_ print [let h = 10^^(negate i) in (e**h - 1)/h | i <- [1..11]]
1.0517091807564771
1.005016708416795
1.0005001667083846
1.000050001667141
1.000005000006965
1.0000004999621837
1.0000000494336803
0.999999993922529
1.000000082740371
1.000000082740371
1.000000082740371
-- at which point we encounter issues with the precision of a Double.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment