Sample-File

{- Funktion artikel gibt den Artikelstamm zurück
    Artikelnummer (Int)
    Artikelbezeichnung (String)
    Kategorie (String)
    Preis (Float)
    Einzelkosten (Float) -}
artikel :: [(Int, String, String, Float, Float)]
artikel = [(1, "Hamburger", "Hauptgericht", 8, 6), (2, "Cheeseburger", "Hauptgericht", 9, 6.5), (3, "Chickenburger", "Hauptgericht", 8.5, 6.5), (4, "Pommes frites", "Beilage", 3, 2), (5, "Wedges", "Beilage", 3.5, 2), (6, "Cola", "Getraenk", 2.5, 1), (7, "Eistee", "Getraenk", 2, 1), (8, "Wasser", "Getraenk", 1.5, 0.5)]

{- Funktion pacht gibt die Pacht pro Monat zurück
    Monat (Int,Int) definiert mit Jahr und Monat
    Pacht (Float) -}
pacht :: [((Int, Int), Float)]
pacht = [((2020, 1), 1200), ((2020, 2), 1200), ((2020, 3), 1200), ((2020, 4), 1400), ((2020, 5), 1400), ((2020, 6), 1400)]

{- Funktion loehne gibt die Löhne pro Monat zurück
    Monat (Int,Int) definiert mit Jahr und Monat
    Löhne (Float) -}
loehne :: [((Int, Int), Float)]
loehne = [((2020, 1), 2000), ((2020, 2), 1900), ((2020, 3), 2000), ((2020, 4), 1800), ((2020, 5), 1800), ((2020, 6), 1800)]

{- Funktion buchungen gibt die Einzelbuchungen aus der Kasse zurück
    Datum (Int,Int,Int) definiert mit Jahr, Monat und Tag
    Zeit (Int,Int) definiert mit Stunde und Minute
    Artikelnummer (Int) -}