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

Reorganize the helper functions

Browse Source
This commit is contained in:
Ivaylo Ivanov 2021-11-10 18:53:19 +01:00
parent 79815796af
commit 4c52091515
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
code/Angabe4.lhs
View File

@ -175,6 +175,18 @@ Helper functions:
> Gutschrift _ _ -> True > Gutschrift _ _ -> True
> _ -> False > _ -> 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 Aufgabe A.1
@ -315,12 +327,6 @@ Nur Werte zwischen 0 und 99 fuer cent!
> in > in
> K_Zahlung res (zahlungsdatum g) > 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 Aufgabe A.3
@ -375,12 +381,6 @@ Aufgabe A.3
> (g,v) = x > (g,v) = x
> is_k_credit :: K_Geschaeftsvorfall -> Bool
> is_k_credit g =
> case g of
> K_Gutschrift _ _ -> True
> _ -> False
=================================================================================== ===================================================================================
Aufgabe A.4 Aufgabe A.4