Haskell implementation des Newtown Algorithmus

newtown.hs

-- Deklaration des Newtown Algorithmus wobei die Argumente bedeuten: 
--		Startwert, Funktion, abgeleitete Funktion, Iterator (zählt nach 0 runter)
newtown :: Double -> (Double -> Double) -> (Double -> Double) -> Int -> Double 
-- Abbruchbedingung
newtown x f g 0 = (x - ((f x)/(g x)))
-- Standardfall
newtown x f g itt_depth = newtown (x - ((f x) / (g x))) f g (itt_depth-1)

-- Deklaration von f und g in ghci
{-
-- Deklariere die Funktion
let {f :: Double -> Double ; f x = (x^5)-(x^3)+4}
-- Deklariere die Ableitung von f
let {g :: Double -> Double ; g x = 5*(x^4)-(3*(x^2))}
-}