Aufgabe 3
=========

> module Aufgabe3 where

> import Data.List
> import Hui

Real world-Andwendung: List Applicative als numerisches Tool
------------------------------------------------------------


Sie sollen Maxima einer komplizierten Funktion finden. Die Funktion erlaubt keine analytische Berechnung 
der Maxima. Daher sollen Sie im Intervall [-10,10] für alle Parameter x y z w approximativ Maxima suchen. 

komplizierteFunktion :: Double -> Double -> Double -> Double -> Double

Definieren Sie hierfür eine Funktion, die zusätzlich zum berechneten Wert die übergebenen Parameter zurückgibt. 

> berechnungMitEingabe :: Double -> Double -> Double -> Double -> (Double,(Double,Double,Double,Double))
> berechnungMitEingabe x y z w = undefined 

Definieren mithilfe von `berechnungMitEingabe` eine Funktion `nBesteEingaben`, welche die n günstigsten 
Eingabeparameter-Tupel zusammen mit dem möglichst maximalen Ergebnis zurückgibt. 

> nBesteEingaben :: Int -> Double -> [(Double,(Double,Double,Double,Double))]
> nBesteEingaben n d = undefined --Beginne mit: take n $ sortOn (undefined) $ undefined
>   where range = [(-10),(-(10-d))..10]

> result = show $ nBesteEingaben 10 1