Remove data duplication in UE4 A.4
This commit is contained in:
parent
d305136638
commit
63231822c5
@ -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)]))
|
||||||
|
Reference in New Issue
Block a user