X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-20.git;a=blobdiff_plain;f=advent05%2Fsrc%2Fadvent05.hs;h=40a72a169388660b26f9805b35661bdec732795f;hp=06d0ecca35976face9225eabf73f695e236d55b9;hb=a391f550e2af9522e1c64d7695b4fa60257ca3a6;hpb=c128358103fbce9ad4b7f44418f33c7f9f55f296

diff --git a/advent05/src/advent05.hs b/advent05/src/advent05.hs
index 06d0ecc..40a72a1 100644
--- a/advent05/src/advent05.hs
+++ b/advent05/src/advent05.hs
@@ -1,7 +1,7 @@
 -- import Debug.Trace
 
 import Numeric
-import qualified Data.Set as S
+import Data.List
 
 main :: IO ()
 main = 
@@ -12,12 +12,11 @@ main =
 
 part1 = maximum . map convert
 
-part2 passes = S.elemAt 0 $ expecteds `S.difference` knowns
+part2 passes = head $ expecteds \\ ns
   where ns = map convert passes
         highest = maximum ns
         lowest  = minimum ns
-        knowns = S.fromList ns
-        expecteds = S.fromList [lowest..highest]
+        expecteds = [lowest..highest]
 
 directionToInt :: Char -> Int
 directionToInt dir = if dir `elem` "BR" then 1 else 0