Skip to content
Snippets Groups Projects
Select Git revision
  • master default protected
1 result
Blame Permalink
Aufgabe2.md 1.09 KiB

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