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

Remove data duplication in UE4 A.4

Browse Source
This commit is contained in:
Ivaylo Ivanov 2021-11-11 17:30:28 +01:00
parent d305136638
commit 63231822c5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/Angabe4.lhs
View File

@ -394,4 +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 = SKB(sortOn fst [(g, saldo g (konsolidiere k)) | (g,v) <- kkb_to_tuples (konsolidiere k)]) > saldiere k = SKB(nub(sortOn fst [(g, saldo g (konsolidiere k)) | (g,v) <- kkb_to_tuples (konsolidiere k)]))