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

Finish UE2 A.3

Browse Source
This commit is contained in:
Ivaylo Ivanov 2021-10-28 22:29:57 +02:00
parent ed91bdfc67
commit 31f88280e4
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
code/Angabe2.hs
View File

@ -115,8 +115,18 @@ anzahl :: DreiG_Status -> Anzahl
anzahl (Geimpft (_, a)) = a anzahl (Geimpft (_, a)) = a
-- Dumb conversion functions -- Dumb conversion functions
vorname_to_str :: Vorname -> String
vorname_to_str (Vorname v) = v
nachname_to_str :: Nachname -> String
nachname_to_str (Nachname v) = v
person_to_string :: Person -> VorUndNachname person_to_string :: Person -> VorUndNachname
person_to_string p = (show (vorname p)) ++ " " ++ (show (nachname p)) person_to_string p =
v ++ " " ++ n
where
v = vorname_to_str (vorname p)
n = nachname_to_str (nachname p)
timeFormat = "%Y-%m-%d %0I:%0M:%S %p" timeFormat = "%Y-%m-%d %0I:%0M:%S %p"
@ -317,6 +327,7 @@ einzulassende p r k = allowed_people p r k []
allowed_people :: Einlassbegehrende -> Regel -> Kontrollzeitpunkt -> [VorUndNachname] -> Einzulassende allowed_people :: Einlassbegehrende -> Regel -> Kontrollzeitpunkt -> [VorUndNachname] -> Einzulassende
allowed_people (p:ps) r k res allowed_people (p:ps) r k res
| ps == [] = res
| (einzulassen (p, r, k)) == Einlassen = allowed_people ps r k (res ++ [person_to_string p]) | (einzulassen (p, r, k)) == Einlassen = allowed_people ps r k (res ++ [person_to_string p])
| otherwise = allowed_people ps r k res | otherwise = allowed_people ps r k res