|
@@ -0,0 +1,10 @@
|
|
|
|
|
+-- Exercise 5.14
|
|
|
|
|
+-- George C. Privon
|
|
|
|
|
+-- 2024-07-20
|
|
|
|
|
+
|
|
|
|
|
+expList :: Double -> [Double]
|
|
|
|
|
+expList x = [(1 + x/n)**n | n <- [1..]]
|
|
|
|
|
+
|
|
|
|
|
+-- This function approximates exp(x)
|
|
|
|
|
+-- When x=1, n=49 in order to get 1% accuracy.
|
|
|
|
|
+-- When x=10, n=4968 reaches 1% accuracy
|