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, den Scanalogorithmus 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