fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: filter out pre-filled rooms

Browse Source
This commit is contained in:
Wolfgang Witt 2021-02-02 21:15:54 +01:00 committed by Wolfgang Witt
parent eadbbce661
commit 44a52e034f
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Handler/Utils/Exam.hs
View File

@ -311,11 +311,14 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
occurrences' :: Map ExamOccurrenceId Natural occurrences' :: Map ExamOccurrenceId Natural
-- ^ reduce room capacity for every pre-assigned user by 1 -- ^ reduce room capacity for every pre-assigned user by 1
occurrences' = foldl' (flip $ Map.adjust predOrZero) occurrences $ Map.mapMaybe snd users occurrences' = foldl' (flip $ Map.update predToPositive) occurrences $ Map.mapMaybe snd users
-- FIXME what about capacity-0 in occurrences?
-- what if the first word is too big for the first room?
where where
predOrZero :: Natural -> Natural predToPositive :: Natural -> Maybe Natural
predOrZero 0 = 0 predToPositive 0 = Nothing
predOrZero n = pred n predToPositive 1 = Nothing
predToPositive n = Just $ pred n
occurrences'' :: [(ExamOccurrenceId, Natural)] occurrences'' :: [(ExamOccurrenceId, Natural)]
-- ^ Minimise number of occurrences used -- ^ Minimise number of occurrences used