Tidying

diff --git a/advent20/Main.hs b/advent20/Main.hs
index 48ac9e83901b16f77385b4eb65ba73fd67957ccc..1b3a4ab771837b96690e2a8f88054b557443091e 100644 (file)
--- a/advent20/Main.hs
+++ b/advent20/Main.hs
@@ -47,13 +47,6 @@ main =
 part1, part2 :: Track -> TrackCost -> TrackCost -> Int
 part1 = bigSavings  2 100
 part2 = bigSavings 20 100
---   where fullCost = costsFromStart M.! track.goal
---         cheatCosts = allCheatedCosts 2 track costsFromStart costsFromGoal
---         savings = filter (>= 100) $ fmap (\c -> fullCost - c) cheatCosts
--- part2 track costsFromStart costsFromGoal = length savings       
---   where fullCost = costsFromStart M.! track.goal
---         cheatCosts = allCheatedCosts 20 track costsFromStart costsFromGoal
---         savings = filter (>= 100) $ fmap (\c -> fullCost - c) cheatCosts
 
 bigSavings :: Int -> Int -> Track -> TrackCost -> TrackCost -> Int
 bigSavings cheatLen savingThreshold track costsFromStart costsFromGoal = length savings
@@ -71,7 +64,6 @@ mkTrack text = Track { walls = walls, start = start, goal = goal }
         start = head [ V2 r c | r <- [0..rMax], c <- [0..cMax], rows !! r !! c == 'S' ]
         goal = head [ V2 r c | r <- [0..rMax], c <- [0..cMax], rows !! r !! c == 'E' ]
 
-
 showTrackWithCheat :: Track -> Position -> String
 showTrackWithCheat track here = unlines $ fmap showRow [0..rMax]
   where rMax = maximum $ fmap (\(V2 r _) -> r) $ S.toList $ walls track