From 4fa07bb34e8e555269b9809fb0610772166ad0d9 Mon Sep 17 00:00:00 2001
From: Ivaylo Ivanov <me@ivayloivanov.eu>
Date: Thu, 11 Nov 2021 16:26:42 +0100
Subject: [PATCH] Add sorting for UE4 A4

---
 code/Angabe4.lhs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/code/Angabe4.lhs b/code/Angabe4.lhs
index 8802521..64d9b95 100644
--- a/code/Angabe4.lhs
+++ b/code/Angabe4.lhs
@@ -1,4 +1,5 @@
 > module Angabe4 where
+> import Data.List
 
 1. Vervollstaendigen Sie gemaess Angabentext!
 2. Vervollst�ndigen Sie auch die vorgegebenen Kommentaranf�nge!
@@ -27,11 +28,11 @@ Datenstrukturen fuer eine einfache Buchhaltung:
 > data Datum   = D { tag   :: Tag,
 >                    monat :: Monat,
 >                    jahr  :: Jahr
->                  } deriving (Eq,Show)
+>                  } deriving (Eq,Show,Ord)
 
 > data Geschaeftspartner = GP { partner :: Name,
 >                               seit :: Datum
->                              } deriving (Eq,Show)
+>                              } deriving (Eq,Show,Ord)
 > data Geschaeftsvorfall = Zahlung { brutto :: Brutto,
 >                                    skonto :: Skonto,
 >                                    zahlung_vom :: Datum
@@ -393,7 +394,7 @@ Aufgabe A.4
 > saldiere k = create_saldo_cash_book $ konsolidiere k
 
 > create_saldo_cash_book :: KonsolidiertesKassabuch -> SaldiertesKassabuch
-> create_saldo_cash_book k = SKB (get_saldo_per_partner k [])
+> 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