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

complete UE4 A.2

Browse Source
This commit is contained in:
Ivaylo Ivanov 2021-11-10 17:23:45 +01:00
parent c31798f66c
commit bf7c7251a4
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
code/Angabe4.lhs
View File

@ -282,7 +282,7 @@ Aufgabe A.1
> | is_credit g = P_Gutschrift (gutschriftsbetrag g) (gutschrift_vom g) > | is_credit g = P_Gutschrift (gutschriftsbetrag g) (gutschrift_vom g)
> | otherwise = AP_Zahlung n (zahlung_vom g) > | otherwise = AP_Zahlung n (zahlung_vom g)
> where > where
> b = fromInteger (toInteger (cents (brutto g))) :: Float -- convert b to float > b = fromIntegral(cents (brutto g)) :: Float -- convert b to float
> s = skonto_to_num (skonto g) > s = skonto_to_num (skonto g)
> n = C ((round(b - (b * s))) :: Nat1) > n = C ((round(b - (b * s))) :: Nat1)
@ -323,13 +323,17 @@ Nur Werte zwischen 0 und 99 fuer cent!
> consolidate_payment_sum :: AP_Geschaeftsvorfall -> K_Geschaeftsvorfall > consolidate_payment_sum :: AP_Geschaeftsvorfall -> K_Geschaeftsvorfall
> consolidate_payment_sum g > consolidate_payment_sum g
> | is_p_credit g = K_Gutschrift (res) (gutschriftsdatum g) > | is_p_credit g = K_Gutschrift res (gutschriftsdatum g)
> | otherwise = K_Zahlung (res') (zahlungsdatum g) > | otherwise = K_Zahlung res' (zahlungsdatum g)
> where > where
> sum = gutschrift g > sum = toInteger(cents (gutschrift g))
> sum' = netto g > sum' = toInteger(cents (netto g))
> res = EuroCent (sum/100) (sum `mod` 100) > bills = fromIntegral(sum `div` 100) :: Nat1
> res' = EuroCent (sum'/100) (sum' `mod` 100) > bills' = fromIntegral(sum' `div` 100) :: Nat1
> coins = fromIntegral(sum `mod` 100) :: Nat1
> coins' = fromIntegral(sum `mod` 100) :: Nat1
> res = EC bills coins
> res' = EC bills' coins'
> is_p_credit :: AP_Geschaeftsvorfall -> Bool > is_p_credit :: AP_Geschaeftsvorfall -> Bool
> is_p_credit g = > is_p_credit g =