tu-wien/fprog2021WS
Archived
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Simplify UE4 A4

Browse Source
This commit is contained in:
Ivaylo Ivanov 2021-11-11 17:14:56 +01:00
parent 4fa07bb34e
commit 0a6be116ac
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
code/Angabe4.lhs
View File

@ -191,6 +191,9 @@ Helper functions:
> ppartner_to_partner :: P_Geschaeftspartner -> Geschaeftspartner > ppartner_to_partner :: P_Geschaeftspartner -> Geschaeftspartner
> ppartner_to_partner p = p > ppartner_to_partner p = p
> kkb_to_tuples :: KonsolidiertesKassabuch -> [(P_Geschaeftspartner, K_Geschaeftsvorfall)]
> kkb_to_tuples (KKB x) = x
=================================================================================== ===================================================================================
Aufgabe A.1 Aufgabe A.1
@ -391,15 +394,4 @@ Aufgabe A.4
> newtype SaldiertesKassabuch = SKB [(Geschaeftspartner,Saldo)] deriving (Eq,Show) > newtype SaldiertesKassabuch = SKB [(Geschaeftspartner,Saldo)] deriving (Eq,Show)
> saldiere :: Kassabuch -> SaldiertesKassabuch > saldiere :: Kassabuch -> SaldiertesKassabuch
> saldiere k = create_saldo_cash_book $ konsolidiere k > saldiere k = SKB(sortOn fst [(g, saldo g (konsolidiere k)) | (g,v) <- kkb_to_tuples (konsolidiere k)])
> create_saldo_cash_book :: KonsolidiertesKassabuch -> SaldiertesKassabuch
> create_saldo_cash_book k = SKB (sortOn fst (get_saldo_per_partner k []))
> get_saldo_per_partner :: KonsolidiertesKassabuch -> [(Geschaeftspartner,Saldo)] -> [(Geschaeftspartner,Saldo)]
> get_saldo_per_partner (KKB(x:xs)) res
> | length x /= 0 && null xs = res ++ [(p, (saldo g (KKB([x]))))]
> | otherwise = get_saldo_per_partner (KKB(xs)) (res ++ [(p, (saldo g (KKB(x:xs))))])
> where
> (g,v) = x
> p = ppartner_to_partner g