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

Fix variable definitions in UE4 A.2

This commit is contained in:
Ivaylo Ivanov 2021-11-10 17:34:08 +01:00
parent bf7c7251a4
commit 0e34fc42a0
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
code/Angabe4.lhs
View File

@ -323,17 +323,22 @@ Nur Werte zwischen 0 und 99 fuer cent!
> consolidate_payment_sum :: AP_Geschaeftsvorfall -> K_Geschaeftsvorfall
> consolidate_payment_sum g
> | is_p_credit g = K_Gutschrift res (gutschriftsdatum g)
> | otherwise = K_Zahlung res' (zahlungsdatum g)
> where
> sum = toInteger(cents (gutschrift g))
> sum' = toInteger(cents (netto g))
> bills = fromIntegral(sum `div` 100) :: Nat1
> 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 g =
> let
> sum = toInteger(cents (gutschrift g))
> bills = fromIntegral(sum `div` 100) :: Nat1
> coins = fromIntegral(sum `mod` 100) :: Nat1
> res = EC bills coins
> in
> K_Gutschrift res (gutschriftsdatum g)
> | otherwise =
> let
> sum = toInteger(cents (netto g))
> bills = fromIntegral(sum `div` 100) :: Nat1
> coins = fromIntegral(sum `mod` 100) :: Nat1
> res = EC bills coins
> in
> K_Zahlung res (zahlungsdatum g)
> is_p_credit :: AP_Geschaeftsvorfall -> Bool
> is_p_credit g =