Rosetta Code

Roots of a function: Difference between revisions

Page Discussion

Roots of a function (view source)

Revision as of 19:31, 4 December 2009

87 bytes removed ,  14 years ago
→‎{{header|Haskell}}
(added Haskell)
Line 361:
<lang haskell>f x = x^3-3*x^2+2*x
 
findRoots start stop step eps = doRoots start where
doRoots [x | x ><- [start, start+step .. stop], =abs [(f x) < eps]</lang>
| abs r < eps = x : doRoots (x+step)
| otherwise = doRoots (x+step)
where r = f x</lang>
Executed in GHCi:
<lang haskell>*Main> findRoots (-1.0) 3.0 0.0001 0.000000001
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/59293"