{- Eine Firma wurde gegründet. 
   Die Umsätze der ersten Wochen werden über eine 
   Funktion  umsatz  zur Verfügung gestellt. 
   Hier wird für Testzwecke eine Spielfunktion definiert.
-}

umsatz :: Int -> Int
umsatz n =  n^2 - 24*n +17

-- Berechne den Gesamtumsatz von 
-- Woche n bis einschließlich Woche m
gesUm :: Int -> Int -> Int
gesUm n m 
	| n > m        = error " Ungültige Eingaben!"
	| n < 0         = error " Ungültige Eingabe!"
	| n == m      = umsatz n
	| otherwise = umsatz n + gesUm (n+1) m

-- Berechne den Gesamtumsatz von 
-- Woche 0 bis einschließlich Woche m
gesUm0 :: Int -> Int
gesUm0 = gesUm 0

-- Berechne den maximalen Umfang seit Firmengründung

maxUm :: Int -> Int
maxUm 0       = umsatz 0
maxUm (n+1) = max (umsatz (n+1)) (maxUm n)
maxUm _       = error " Ungültige Eingabe!"