Tidying

diff --git a/advent06/Main.hs b/advent06/Main.hs
index db5fbaec207721fd86225758d02bc16c2d806a78..f83b2ba7006b65adc38c344fb022b4dbdac2bb10 100644 (file)
--- a/advent06/Main.hs
+++ b/advent06/Main.hs
@@ -31,7 +31,7 @@ main =
       print $ part2 grid guard
 
 
-part1 :: Grid -> Guard -> Int
+part1, part2:: Grid -> Guard -> Int
 part1 grid guard = length $ nub $ walk grid guard
 
 part2 grid guard = length $ filter (isLoop guard []) modifiedGrids

diff --git a/advent06/MainPar.hs b/advent06/MainPar.hs
index ec034d5184d3971e5e4115b1ed3c456da6e9d885..40b8fa5ef0f074f4420157df100789fe1ec76d73 100644 (file)
--- a/advent06/MainPar.hs
+++ b/advent06/MainPar.hs
@@ -31,7 +31,7 @@ main =
       print $ part2 grid guard
 
 
-part1 :: Grid -> Guard -> Int
+part1, part2 :: Grid -> Guard -> Int
 part1 grid guard = length $ nub $ walk grid guard
 
 part2 grid guard = length $ filter id loopResults