42 lines
1.1 KiB
Plaintext
42 lines
1.1 KiB
Plaintext
|
Aufgabe 2
|
||
|
|
=========
|
||
|
|
|
||
|
|
> module Aufgabe2 where
|
||
|
|
|
||
|
|
Machen Sie sich mit den Modulen
|
||
|
|
|
||
|
|
> import List
|
||
|
|
>
|
||
|
|
> import ERPSys
|
||
|
|
|
||
|
|
vertraut. Einige der Aufgaben diese Woche basieren auf diesen.
|
||
|
|
|
||
|
|
Hypothetisches Real-World Problem
|
||
|
|
---------------------------------
|
||
|
|
|
||
|
|
Gegeben ein bereits existierendes Warenwirtschaftssystem (Modul `ERPSys`), welches
|
||
|
|
auf einer eigenen Datenstruktur (Modul `List`) basiert.
|
||
|
|
|
||
|
|
Die Firma, in der Sie arbeiten wird beauftragt, ein neues Kassensystem zu
|
||
|
|
entwickeln. Sie werden beauftragt, eine Teil des Scanalogorithmuses der Kasse zu
|
||
|
|
programmieren.
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
Dazu ist zuerst die Funktion `findArticle` zu entwickeln, die gegeben einen
|
||
|
|
Barcode und eine Produktliste einen Artikel findet.
|
||
|
|
|
||
|
|
> findArticle :: (Eq a) => a -> ProductList a b c -> Maybe (Article a b c)
|
||
|
|
>
|
||
|
|
> findArticle = undefined
|
||
|
|
|
||
|
|
> productCatalog :: ProductList Int String Float
|
||
|
|
> productCatalog = insert (Article 1 "Apfel" 1)
|
||
|
|
> $ insert (Article 2 "Birne" 0.5)
|
||
|
|
> $ insert (Article 3 "Banane" 1.5)
|
||
|
|
> $ insert (Article 4 "Tomate" 0.75)
|
||
|
|
> ListEnd
|
||
|
|
|
||
|
|
|
||
|
|
> result = show $ findArticle 2 productCatalog
|