From 4c52091515c826ac678fba9f3a7797ad229b5b1a Mon Sep 17 00:00:00 2001 From: Ivaylo Ivanov Date: Wed, 10 Nov 2021 18:53:19 +0100 Subject: [PATCH] Reorganize the helper functions --- code/Angabe4.lhs | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/code/Angabe4.lhs b/code/Angabe4.lhs index 8af8dff..7832d97 100644 --- a/code/Angabe4.lhs +++ b/code/Angabe4.lhs @@ -175,6 +175,18 @@ Helper functions: > Gutschrift _ _ -> True > _ -> False +> is_p_credit :: AP_Geschaeftsvorfall -> Bool +> is_p_credit g = +> case g of +> P_Gutschrift _ _ -> True +> _ -> False + +> is_k_credit :: K_Geschaeftsvorfall -> Bool +> is_k_credit g = +> case g of +> K_Gutschrift _ _ -> True +> _ -> False + =================================================================================== Aufgabe A.1 @@ -315,12 +327,6 @@ Nur Werte zwischen 0 und 99 fuer cent! > in > K_Zahlung res (zahlungsdatum g) -> is_p_credit :: AP_Geschaeftsvorfall -> Bool -> is_p_credit g = -> case g of -> P_Gutschrift _ _ -> True -> _ -> False - =================================================================================== Aufgabe A.3 @@ -375,12 +381,6 @@ Aufgabe A.3 > (g,v) = x -> is_k_credit :: K_Geschaeftsvorfall -> Bool -> is_k_credit g = -> case g of -> K_Gutschrift _ _ -> True -> _ -> False - =================================================================================== Aufgabe A.4