Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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