quintenk
/
adventofcode
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

day19: reduce tracing

This commit is contained in:
Quinten Kock 2021-12-19 10:05:39 +01:00
parent be63198b72
commit d2d20c8df5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2021/day19.hs
View File

@ -65,7 +65,7 @@ merge (diffs, known) (overlappingNew, scanner) = (diff:diffs, nub $ sort $ known
discover :: [Coord] -> [Coord] -> [[[Coord]]] -> ([Coord], [Coord], [[[Coord]]])
discover diffs known [] = (diffs, known, [])
discover diffs known aux = trace ("total: " ++ show (length newKnown) ++ "; best: " ++ show (map (length.fst) bestPer)) $
discover diffs known aux = trace (show (map (length.fst) bestPer)) $
if bestScore < 12 then (diffs, known, aux) else (diffs ++ fst newKnown, snd newKnown, newAux) where
overlapKnown = map (map (\x -> (findOverlap known x, x))) aux
bestPer = map (maximumBy (\x y -> compare (length $ fst x) (length $ fst y))) overlapKnown