-- 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