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

fix: make sure line-break algorithm respects available lines

Browse Source
This commit is contained in:
Wolfgang Witt 2021-01-25 15:15:10 +01:00 committed by Wolfgang Witt
parent eaf245beaa
commit e487ceff58
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -416,7 +416,11 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
w = offsets Array.! j - offsets Array.! i w = offsets Array.! j - offsets Array.! i
prevMin <- ST.readArray minima i prevMin <- ST.readArray minima i
let cost = prevMin + widthCost l potWidth w + breakCost' let cost = prevMin + widthCost l potWidth w + breakCost'
remainingWords = offsets Array.! Map.size wordMap - offsets Array.! i
remainingLineSpace = sum (map snd $ drop lineIx lineLengths)
breakCost' breakCost'
| remainingWords > remainingLineSpace
= PosInf
| j < Map.size wordMap | j < Map.size wordMap
, j > 0 , j > 0
= breakCost (wordIx # pred j) (wordIx # j) = breakCost (wordIx # pred j) (wordIx # j)