Day 15, part 1 and 2: slow solution

Initial commit
Day 13
2020-12-29 14:32:41 +02:00 · 2020-12-29 10:47:28 +02:00 · 2020-12-21 15:34:56 +02:00 · 2020-12-21 15:27:51 +02:00 · 2020-12-18 16:23:47 +02:00 · 2020-12-18 14:36:58 +02:00
18 changed files with 7184 additions and 3 deletions
--- a/day10/input
+++ b/day10/input
@ -0,0 +1,95 @@
+99
+3
+1
+11
+48
+113
+131
+43
+82
+19
+4
+153
+105
+52
+56
+109
+27
+119
+147
+31
+34
+13
+129
+17
+61
+10
+29
+24
+12
+104
+152
+103
+80
+116
+79
+73
+21
+133
+44
+18
+74
+112
+136
+30
+146
+100
+39
+130
+91
+124
+70
+115
+81
+28
+151
+2
+122
+87
+143
+62
+7
+126
+95
+75
+20
+123
+63
+125
+53
+45
+141
+14
+67
+69
+60
+114
+57
+142
+150
+42
+78
+132
+66
+88
+140
+139
+106
+38
+85
+37
+51
+94
+98
+86
+68
--- a/day10/main.hs
+++ b/day10/main.hs
@ -0,0 +1,92 @@
+#! /usr/bin/env -S"ANSWER=42" nix-shell
+#! nix-shell -p ghcid
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [pretty-simple])"
+#! nix-shell -i "ghcid -c 'ghci' -T main"
+
+{-# OPTIONS_GHC -Wall -Wincomplete-uni-patterns #-}
+{-# OPTIONS_GHC -Wno-unused-top-binds -Wno-unused-imports -Wno-type-defaults #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+import Data.List
+import Data.Monoid
+import Debug.Trace (trace)
+import Text.Pretty.Simple
+
+smallExample :: [Int]
+smallExample = [16,10,15,5,1,11,7,19,6,12,4]
+
+biggerExample :: [Int]
+biggerExample = [28,33,18,42,31,14,46,20,48,47,24,23,49,45,19,38,39,11,1,32,25
+                ,35,8,17,7,9,4,2,34,10,3]
+
+solvePart1 :: [Int] -> Int
+solvePart1 xs = finally
+  $ span (== 1)
+  $ sort
+  $ map (\(x,y) -> y - x)
+  $ zip (0:sorted) (sorted ++ [l+3])
+  where
+    l = last sorted
+    sorted = sort xs
+    finally (x,y) = length x * length y
+
+--------------------------------------------------------------------------------
+-- 1 -> 1 possibility
+-- 1 1 -> 2 possibilities
+-- 1 1 1 -> 4 possibilities
+-- 1 1 1 1 -> 7 (!) possibilities
+-- 1 1 1 1 1 -> ? possibilities
+--
+--------------------------------------------------------------------------------
+cleanup :: [[Int]] -> [[Int]]
+cleanup = filter (\v -> (any (/= 3) v) && (length v > 1))
+
+
+-- That is the actual problem right here:
+-- ··· -> 2^3 - 1 = 7
+-- ···· -> 2^4 - 1 - 2 = 13
+-- ····· -> 2^5 - 1 - 2 - 3 = 26
+combinations :: [Int] -> Int
+combinations v =
+    (2 ^ n)           -- All the ways to take any on/off combination in n
+  - (sum [1..(n-2)])  -- All the ways to take n+ consecutive in n (illegal),
+                      -- *except* for n=1 and n=2 which are legal
+  where
+    n = (length v) - 1
+
+estimatePermutations :: [Int] -> Int
+estimatePermutations = getProduct
+                     . foldMap Product
+                     . map combinations
+                     . cleanup
+                     . group
+
+distanceMap :: [Int] -> [Int]
+distanceMap xs = map (\(x,y) -> y - x) $ zip (0:sorted) (sorted ++ [(last sorted)+3])
+  where
+    sorted = sort xs
+
+solvePart2 :: [Int] -> Int
+solvePart2 = estimatePermutations . distanceMap
+  where
+
+main :: IO ()
+main = do
+  input' <- lines <$> readFile "day10/input"
+  let input = read <$> input'
+  putStrLn ":: Tests"
+  print $ smallExample
+  print $ biggerExample
+  putStrLn ":: Day 10 - Part 1"
+  print $ solvePart1 smallExample
+  print $ solvePart1 biggerExample
+  print $ solvePart1 input
+  putStrLn ":: Tests"
+
+  putStrLn ":: Day 10 - Part 2"
+  print $ distanceMap smallExample
+  print $ solvePart2 smallExample
+  print $ distanceMap biggerExample
+  print $ (map combinations . cleanup . group) $ distanceMap biggerExample
+  print $ solvePart2 biggerExample
+  print $ solvePart2 input
--- a/day12/input
+++ b/day12/input
@ -0,0 +1,786 @@
+N3
+F18
+L180
+F40
+N3
+R90
+S5
+R90
+N4
+F24
+R90
+E5
+F36
+R180
+W3
+W4
+F63
+N4
+W1
+N1
+E1
+L90
+W1
+N2
+E2
+S2
+F39
+W4
+S3
+F93
+N1
+F83
+S1
+R90
+W3
+R90
+W4
+L90
+F53
+S4
+F4
+L90
+W3
+F83
+L180
+W2
+L90
+W2
+L90
+W1
+N3
+F63
+R90
+N2
+N3
+E4
+F10
+S3
+E4
+R90
+F11
+L90
+R90
+S2
+W2
+F100
+W5
+R270
+F40
+S5
+L90
+E2
+L90
+E2
+L180
+N5
+F81
+N4
+E4
+L180
+F38
+W2
+F22
+W5
+N5
+E1
+N2
+W4
+N2
+F68
+N1
+F2
+S1
+F47
+W5
+F80
+N3
+E3
+S2
+L180
+F87
+L180
+E4
+L90
+E2
+S3
+L180
+E2
+L90
+W2
+N4
+F21
+S4
+W5
+F70
+F4
+N2
+F14
+E2
+S3
+R90
+W3
+N2
+E3
+S1
+F85
+R90
+E1
+F80
+L90
+F100
+R90
+W1
+R180
+S4
+F58
+L90
+N3
+R90
+E1
+F42
+E3
+F93
+S3
+R90
+W2
+N3
+L90
+W3
+W2
+N2
+W1
+S4
+R180
+N5
+R180
+F52
+N5
+F20
+L180
+E5
+R90
+W2
+S4
+E1
+S3
+F75
+R90
+F49
+L180
+N3
+F31
+S3
+E3
+S5
+L180
+N3
+E2
+R270
+W5
+N3
+W5
+N3
+L270
+F54
+R90
+W5
+F73
+S3
+W2
+R90
+N2
+R90
+S5
+R90
+W4
+S2
+L90
+F3
+S2
+R90
+F76
+S3
+F56
+L90
+F5
+N1
+R180
+E3
+N2
+F20
+E2
+L180
+F38
+R180
+W4
+R90
+S3
+N5
+E5
+F26
+S2
+L180
+E4
+R90
+F52
+N3
+L90
+N5
+E4
+F63
+L90
+F48
+W5
+F29
+N1
+E3
+L90
+N5
+L90
+S3
+F8
+N2
+R90
+E4
+S2
+E2
+F10
+W2
+L90
+N2
+R90
+F2
+E2
+N4
+R90
+F74
+W3
+W5
+S2
+R90
+N3
+L90
+E3
+F58
+N4
+E5
+S4
+E3
+F72
+L180
+E3
+S2
+L90
+W4
+S1
+F14
+W1
+N1
+E3
+W4
+L90
+N1
+F97
+R90
+N4
+E3
+F95
+F95
+L90
+S4
+F55
+R90
+W2
+N1
+R90
+F16
+L90
+S5
+F4
+R90
+F24
+S4
+E2
+R90
+W5
+E1
+L270
+F12
+L90
+F100
+W1
+S5
+W2
+S3
+F95
+L90
+F44
+N5
+F79
+S4
+R180
+E2
+S1
+F40
+R90
+W2
+R90
+F67
+S5
+F15
+L90
+N4
+L90
+S5
+E1
+R90
+N3
+W5
+N4
+L270
+F61
+L90
+E1
+L90
+E1
+F38
+E2
+F19
+W2
+L90
+S4
+R180
+W4
+F59
+N1
+F26
+N1
+W5
+F7
+N4
+F72
+E2
+R90
+F59
+N1
+F58
+N5
+F13
+N2
+F2
+S2
+W1
+F85
+R270
+S2
+F17
+R90
+F96
+S2
+L90
+E1
+N4
+F9
+R270
+F58
+N1
+L90
+W2
+S2
+F73
+W1
+S2
+F20
+E2
+S4
+F94
+L180
+F27
+S2
+F48
+N1
+L270
+S2
+F77
+E3
+F10
+W3
+L270
+S4
+F53
+F66
+E5
+S2
+F33
+S5
+L90
+W3
+S3
+E3
+R90
+E1
+F62
+S1
+L90
+S3
+E3
+N1
+S1
+E5
+S2
+F66
+N4
+N1
+W4
+F84
+R180
+F23
+F20
+E1
+S3
+R90
+E2
+F48
+F89
+L90
+F97
+R180
+N3
+F62
+L90
+N5
+F28
+W5
+N4
+L180
+N4
+W1
+N3
+L90
+F95
+N1
+W5
+R180
+N5
+F34
+S1
+W2
+N4
+F3
+S2
+E1
+R90
+E2
+F36
+S4
+E5
+F42
+W1
+L180
+S1
+F74
+F38
+N4
+R270
+N3
+W2
+S4
+L180
+F26
+S4
+F51
+R90
+F83
+R90
+F9
+S2
+W1
+F99
+S4
+W1
+F84
+W1
+R180
+F59
+W5
+R90
+F75
+S1
+F34
+E4
+N3
+L90
+F43
+W5
+N1
+R90
+F59
+W1
+N3
+W4
+S2
+F36
+N5
+W4
+E2
+F96
+R180
+F44
+R90
+F12
+E5
+F24
+W3
+F39
+S2
+L180
+W3
+W4
+F70
+N4
+E4
+F36
+E2
+N1
+F30
+L90
+S2
+F81
+R270
+R90
+F66
+W1
+L90
+W2
+F98
+S1
+E1
+L90
+E3
+N2
+F100
+W3
+N3
+R90
+F88
+E4
+L180
+F52
+L90
+E4
+F76
+W2
+L90
+E3
+F72
+S3
+L180
+F12
+F34
+E5
+F90
+S5
+W5
+E1
+N5
+L180
+E5
+F84
+E5
+E3
+L90
+E3
+F14
+L90
+W3
+L90
+S1
+L90
+W2
+F54
+R90
+S2
+F73
+S4
+E1
+S1
+F55
+E5
+N4
+R180
+L180
+N4
+R90
+F91
+L180
+F5
+E2
+N1
+W2
+F27
+W2
+S5
+R90
+S3
+F39
+S3
+W2
+F59
+F83
+W3
+E3
+E4
+L90
+S1
+R90
+E4
+F81
+E4
+R90
+W5
+F74
+W3
+E3
+F30
+L180
+S2
+E3
+F33
+S3
+R90
+F22
+S5
+F97
+S1
+E2
+F50
+E2
+F19
+E3
+L90
+L90
+S5
+W3
+F80
+F33
+E1
+R90
+N3
+L90
+F70
+L180
+W4
+N2
+R180
+S2
+F38
+S3
+F7
+R90
+E1
+N5
+F86
+W4
+F49
+W4
+F51
+S4
+F47
+R90
+W3
+R180
+R180
+W1
+F98
+S1
+W3
+S4
+L90
+F76
+E1
+F76
+R180
+S4
+R180
+W3
+F26
+N5
+F35
+S2
+F94
+F24
+N2
+F45
+E1
+L90
+F32
+S1
+R180
+F78
+F84
+L90
+N2
+F42
+R90
+F72
+S1
+E3
+N2
+W1
+F23
+E2
+F69
+L90
+F29
+R90
+S5
+W5
+L90
+W1
+S2
+E1
+F96
+S5
+R180
+F26
+S5
+W1
+S3
+F38
+S1
+E2
+S5
+W2
+S5
+F52
+L90
+F11
+E3
+R90
+E4
+F6
+L90
+R90
+W1
+R90
+E3
+F1
+E4
+N3
+E5
+R90
+N2
+R180
+W2
+N5
+F46
+N3
+E5
+F83
+R90
+F42
+S3
+R90
+N5
+F10
--- a/day12/main.hs
+++ b/day12/main.hs
@ -0,0 +1,130 @@
+#! /usr/bin/env -S"ANSWER=42" nix-shell
+#! nix-shell -p ghcid
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [pretty-simple linear])"
+#! nix-shell -i "ghcid -c 'ghci' -T main"
+
+{-# OPTIONS_GHC -Wall -Wincomplete-uni-patterns #-}
+{-# OPTIONS_GHC -Wno-unused-top-binds -Wno-unused-imports -Wno-type-defaults #-}
+{-# OPTIONS_GHC -Wno-unused-matches #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE DeriveAnyClass #-}
+
+import Debug.Trace (trace, traceShowId, traceShow)
+import Text.Pretty.Simple
+import Control.Monad
+import Linear.V2
+import Data.Monoid
+
+exampleData :: [ String ]
+exampleData =
+  [ "F10"
+  , "N3"
+  , "F7"
+  , "R90"
+  , "F11"
+  ]
+
+
+
+data Ship = Ship { position :: V2 Double, orientation :: V2 Double }
+  deriving (Show, Eq, Ord)
+
+-- At first, ship is at (0,0) facing East
+ship0 :: Ship
+ship0 = Ship (pure 0) (V2 1 0)
+
+-- At first, ship is at (0,0) facing East
+ship1 :: Ship
+ship1 = Ship (pure 0) (V2 10 1)
+
+-- instance Semigroup Ship
+--   where
+--     (<>) s1 s2 = Ship (getSum <$> ((Sum <$> (position s1)) <> (Sum <$> (position s2))))
+--                       (getSum <$> ((Sum <$> (orientation s1)) <> (Sum <$> (orientation s2))))
+--
+-- instance Monoid Ship
+--   where
+--     mempty = Ship (pure 0) (pure 0)
+
+data Instruction  = InsMoveForward !Double
+                  | InsMoveNorth !Double
+                  | InsMoveSouth !Double
+                  | InsMoveEast !Double
+                  | InsMoveWest !Double
+                  | InsTurnL !Double
+                  | InsTurnR !Double
+  deriving (Show, Eq, Ord)
+
+parseIns :: String -> Instruction
+-- Action N means to move north by the given value.
+parseIns ('N':x) = InsMoveNorth (read x)
+-- Action S means to move south by the given value.
+parseIns ('S':x) = InsMoveSouth (read x)
+-- Action E means to move east by the given value.
+parseIns ('E':x) = InsMoveEast (read x)
+-- Action W means to move west by the given value.
+parseIns ('W':x) = InsMoveWest (read x)
+-- Action L means to turn left the given number of degrees.
+parseIns ('L':x) = InsTurnL (read x)
+-- Action R means to turn right the given number of degrees.
+parseIns ('R':x) = InsTurnR (read x)
+-- Action F means to move forward by the given value in the direction the ship is currently facing.
+parseIns ('F':x) = InsMoveForward (read x)
+parseIns e = trace ("Unknown instruction: "<>show e) undefined
+
+
+-- 2*PI rad = 360 deg
+-- 1 rad = 180/PI deg
+-- PI/180 rad = 1 deg
+
+runIns1 :: Ship -> Instruction -> Ship
+runIns1 s (InsMoveForward n) = s { position = (position s) + (pure n) * (orientation s) }
+runIns1 s (InsMoveNorth n)   = s { position = (position s) + (pure n) * V2 0     1    }
+runIns1 s (InsMoveSouth n)   = s { position = (position s) + (pure n) * V2 0     (-1) }
+runIns1 s (InsMoveEast n)    = s { position = (position s) + (pure n) * V2 1     0    }
+runIns1 s (InsMoveWest n)    = s { position = (position s) + (pure n) * V2 (-1)  0    }
+runIns1 s (InsTurnL n)       = s { orientation = angle ((unangle (orientation s)) + n * pi / 180) }
+runIns1 s (InsTurnR n)       = s { orientation = angle ((unangle (orientation s)) - n * pi / 180) }
+
+manhattanV2 :: (Num a) => V2 a -> a
+manhattanV2 (V2 x y) = (abs x) + (abs y)
+
+solvePart1 :: [String] -> Double
+solvePart1 = manhattanV2 . position . foldl runIns1 ship0 . map parseIns
+
+
+
+--------------------------------------------------------------------------------
+
+runIns2 :: Ship -> Instruction -> Ship
+runIns2 s (InsMoveForward n) = s { position = (position s) + (pure n) * (orientation s) }
+runIns2 s (InsMoveNorth n)   = s { orientation = (orientation s) + V2 0     n     }
+runIns2 s (InsMoveSouth n)   = s { orientation = (orientation s) + V2 0     (-n)  }
+runIns2 s (InsMoveEast n)    = s { orientation = (orientation s) + V2 n     0     }
+runIns2 s (InsMoveWest n)    = s { orientation = (orientation s) + V2 (-n)  0     }
+runIns2 s (InsTurnL n)       = s { orientation = rotV2By (orientation s) n }
+runIns2 s (InsTurnR n)       = s { orientation = rotV2By (orientation s) (-n) }
+
+rotV2By :: (Num a, Floating a) => V2 a -> a -> V2 a
+rotV2By (V2 x1 y1) n = V2 x y
+  where
+    x = cos a * x1 - sin a * y1
+    y = sin a * x1 + cos a * y1
+    a = n * pi / 180
+
+solvePart2 :: [String] -> Double
+solvePart2 = manhattanV2 . position . foldl runIns2 ship1 . map parseIns
+
+main :: IO ()
+main = do
+  input <- lines <$> readFile "day12/input"
+  putStrLn ":: Tests"
+  pPrint exampleData
+  pPrint $ map parseIns exampleData
+  pPrint $ angle (90 * pi / 180)
+  putStrLn ":: Day 12 - Part 1"
+  pPrint $ solvePart1 exampleData
+  pPrint $ solvePart1 input
+  putStrLn ":: Day 12 - Part 2"
+  pPrint $ solvePart2 exampleData
+  pPrint $ solvePart2 input
--- a/day13/input
+++ b/day13/input
@ -0,0 +1,2 @@
+1000507
+29,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,37,x,x,x,x,x,631,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,x,13,19,x,x,x,23,x,x,x,x,x,x,x,383,x,x,x,x,x,x,x,x,x,41,x,x,x,x,x,x,17
--- a/day13/main.hs
+++ b/day13/main.hs
@ -0,0 +1,129 @@
+#! /usr/bin/env -S"GHCRTS=-N4" nix-shell
+#! nix-shell -p ghcid
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [pretty-simple attoparsec arithmoi])"
+#! nix-shell -i "ghcid -c 'ghci' -T main"
+
+{-# OPTIONS_GHC -Wall -Wincomplete-uni-patterns #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+import Control.Applicative
+import Control.Monad (foldM)
+import Data.Attoparsec.Text (Parser)
+import Data.Euclidean (gcdExt)
+import Data.List (find,sortOn)
+import Data.Maybe (fromMaybe,catMaybes)
+import Text.Pretty.Simple
+import qualified Data.Attoparsec.Text as A
+import qualified Data.Text as T
+
+exampleData :: String
+exampleData = "939\n7,13,x,x,59,x,31,19"
+
+numOrXParser :: Parser (Maybe Int)
+numOrXParser = (Just <$> A.decimal) <|> ("x" *> pure Nothing)
+
+inputParser :: Parser (Int,[Int])
+inputParser = do
+  n <- A.decimal
+  A.skipSpace
+  xs <- numOrXParser `A.sepBy` ","
+  pure (n,catMaybes $ xs)
+
+parseInput :: String -> Either String (Int,[Int])
+parseInput = (A.parseOnly inputParser) . T.pack
+
+solvePart1 :: String -> Either String Int
+solvePart1 str = do
+  (n,xs) <- parseInput str
+  let (bus, time) = head
+                  $ sortOn (snd)
+                  $ map (\x -> (x,fromMaybe (-1) $ find (> n) [0,x..])) xs
+  pure $ bus * (time - n)
+
+inputParser2 :: Parser (Int,[Maybe Int])
+inputParser2 = do
+  n <- A.decimal
+  A.skipSpace
+  xs <- numOrXParser `A.sepBy` ","
+  pure (n,xs)
+
+parseInput2 :: String -> Either String (Int,[Maybe Int])
+parseInput2 = (A.parseOnly inputParser2) . T.pack
+
+-- -------------------------------------------------------------------------- --
+-- Here I sneak around a bit, and realize the problem is well defined         --
+-- (and solved!) already: it's called the Chinese Remainder Theorem           --
+-- https://en.wikipedia.org/wiki/Chinese_remainder_theorem                    --
+-- -------------------------------------------------------------------------- --
+-- Apllying the theorem allows to reduce a system of equation on x:           --
+--                                                                            --
+-- x ≡ a1 (mod n1)                                                            --
+--   ·                                                                        --
+--   ·                                                                        --
+--   ·                                                                        --
+-- x ≡ ak (mod nk)                                                            --
+--                                                                            --
+-- to a single equation:                                                      --
+--                                                                            --
+-- x ≡ as (mod ns)                                                            --
+--                                                                            --
+-- It relates to the buses schedules in the following way: t is x, the bus    --
+-- number is the modulo factor (since a bus comes *every* ni) and subsequent  --
+-- additions to t (for other buses) is (-ai), so, for a but coming at         --
+-- t+ai, one would write x ≡ -ai (mod ni)                                     --
+--                                                                            --
+-- I chose to encode ai and ni as a tuple (ai,ni), named startAndIds          --
+--                                                                            --
+-- Basically, we're creating a “chinese” function:                            --
+--                                                                            --
+--   chinese :: (Int,Int) -> (Int,Int) -> (Int,Int)                           --
+--                                                                            --
+-- Then, given a list [(Int, Int)] we can fold over it to obtain the solution --
+--                                                                            --
+
+chinese :: (Integer,Integer) -> (Integer,Integer) -> Maybe (Integer,Integer)
+chinese (0,n1) (0,n2)   = chinese (n1,n1) (n2,n2)
+chinese v      (0,n2)   = chinese v       (n2,n2)
+chinese (0,n1) v        = chinese (n1,n1) v
+chinese (a1,n1) (a2,n2) = do
+  -- Computes a solution such that: n1×c1 + n2×c2      = g, for some c2
+  --                                n1×c1 - g          = - n2×c2, for some c2
+  --                                1/n2 (n1×c1 - g)   = - c2, for some c2 (n2 is > 0)
+  --                                - 1/n2 (n1×c1 - g) = c2, for some c2 (n2 is > 0)
+  -- n1 and n2 must be coprimes for this to work (g must be 1), fail otherwise
+  (m1,m2) <- case gcdExt n1 n2 of
+             (1,c1) -> Just ( c1, negate ((n1 * c1) - 1) `div` n2 )
+             _      -> Nothing
+  let x = a1 * m2 * n2 + a2 * m1 * n1
+  let a12 = x `mod` (n1 * n2)
+  pure $ (a12, n1 * n2)
+
+e2m :: Either e a -> Maybe a
+e2m (Right v) = Just v
+e2m _         = Nothing
+
+solvePart2 :: String -> Maybe (Integer,Integer)
+solvePart2 str = do
+  (_,xs) <- e2m $ parseInput2 str
+  let startAndIds = catMaybes $ sequence <$> zip [0..] (map (fmap fromIntegral) xs)
+  let chineseEqs = fmap (\(a,n) -> ((-a) `mod` n, n)) startAndIds
+  foldM chinese (1,1) chineseEqs
+
+main :: IO ()
+main = do
+  putStrLn ":: Test"
+  pPrint $ A.parseOnly inputParser $ T.pack exampleData
+  pPrint $ take 3 ((\n -> [1,(n::Integer)..]) 59)
+  putStrLn ":: Day 13 - Part 1"
+  input <- readFile "day13/input"
+  pPrint $ solvePart1 exampleData
+  pPrint $ solvePart1 input
+  putStrLn ":: Test 2"
+  print $ solvePart2 exampleData
+  print $ solvePart2 "1\n17,x,13,19"
+  print $ solvePart2 "1\n67,7,59,61"
+  print $ solvePart2 "1\n67,x,7,59,61"
+  print $ solvePart2 "1\n67,7,x,59,61"
+  print $ solvePart2 "1\n1789,37,47,1889"
+  putStrLn ":: Day 13 - Part 2"
+  print $ solvePart2 input
--- a/day15/main.hs
+++ b/day15/main.hs
@ -0,0 +1,73 @@
+#! /usr/bin/env -S"ANSWER=42" nix-shell
+#! nix-shell -p ghcid
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [pretty-simple])"
+#! nix-shell -i "ghcid -c 'ghci' -T main"
+
+{-# OPTIONS_GHC -Wall -Wincomplete-uni-patterns #-}
+{-# OPTIONS_GHC -Wno-unused-top-binds -Wno-unused-imports #-}
+{-# OPTIONS_GHC -Wno-unused-matches #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+import Debug.Trace (trace)
+import Text.Pretty.Simple
+
+import Data.IntMap.Strict (IntMap)
+import qualified Data.IntMap.Strict as I
+
+import Data.Maybe (fromMaybe)
+import Data.List (iterate')
+
+exampleInput1 :: [Int]
+exampleInput1 = [0,3,6]
+
+exampleInput2 :: [Int]
+exampleInput2 = [1,3,2]
+exampleInput3 :: [Int]
+exampleInput3 = [3,1,2]
+
+input :: [Int]
+input = [0,3,1,6,7,5]
+
+type Turn = Int
+type Number = Int
+
+
+-- Each Number is attached to the last Turn it was seen
+-- The current Turn is recorded too
+-- Last spoken Number is recorded too
+data Game = Game { unMem :: (IntMap Turn)
+                 , unTurn :: Turn
+                 , unNumber :: Number
+                 }
+  deriving Show
+
+initGame :: [Int] -> Game
+initGame keys = Game mem ((length keys) + 1) 0
+  where
+    mem = I.fromList (zip keys [1..])
+
+next :: Game -> Game
+next (Game mem turn n) = fromMaybe (Game (I.insert n turn mem) (turn+1) 0) $ do
+  lastTurn <- I.lookup n mem
+  pure $ Game (I.insert n turn mem) (turn+1) (turn - lastTurn)
+
+main :: IO ()
+main = do
+  putStrLn ":: Day 15 - Tests 1"
+  print exampleInput1
+  putStrLn $ "turn 04: " <> (show $ initGame exampleInput1)
+  putStrLn $ "turn 05: " <> (show $ next $ initGame exampleInput1)
+  putStrLn $ "turn 06: " <> (show $ next $ next $ initGame exampleInput1)
+  putStrLn $ "turn 07: " <> (show $ next $ next $ next $ initGame exampleInput1)
+  putStrLn $ "turn 08: " <> (show $ next $ next $ next $ next $ initGame exampleInput1)
+  putStrLn $ "turn 09: " <> (show $ next $ next $ next $ next $ next $ initGame exampleInput1)
+  putStrLn $ "turn 10: " <> (show $ next $ next $ next $ next $ next $ next $ initGame exampleInput1)
+  print $ last $ take 2017 $ map unNumber $ iterate next $ initGame exampleInput1
+  print $ last $ take 2017 $ map unNumber $ iterate next $ initGame exampleInput2
+  print $ last $ take 2017 $ map unNumber $ iterate next $ initGame exampleInput3
+  putStrLn ":: Day 15 - Part 1"
+  print $ last $ take (2020 - 6) $ map unNumber $ iterate next $ initGame input
+  putStrLn ":: Day 15 - Part 2"
+  -- print $ last $ take (30000000 - 3) $ map unNumber $ iterate' next $ initGame exampleInput1
+  print $ last $ take (30000000 - 6) $ map unNumber $ iterate' next $ initGame input
+
--- a/day5/input
+++ b/day5/input
@ -0,0 +1,965 @@
+FBFBBBFRLR
+FBBFBBBLLR
+FFFFFBBRRL
+BBBFFFBRRL
+BFFBFBFLRL
+FBFFBFFLLR
+FBFBBBBRLR
+FBFBFBFRLL
+BFFBFFBRLR
+FBBFFFBLRR
+FBFBBBFRRR
+BFFBBFBRLR
+BFFBFBFRRL
+FFFFBBBLRL
+FBBFBFFRLL
+BBFBBFBRLR
+BFFFFBBLLR
+FBFFFFFRRR
+BFBFFBFLRR
+BBFBFFBLLL
+BFBFFFFLLR
+FBBFBBBRLL
+BBBBFFFRRL
+FFBBBFFRLR
+FFFBFFFRRL
+FFFBBBBLRL
+BFBBFBFRRL
+BFFBBFBLLL
+FBFBBFFLRL
+BFFBBBBLRL
+FFBBBFFLRL
+FFBFBFFRRL
+BBBFBFBRLR
+FBFBBBBRLL
+FBBBFBBRRR
+FBFBFBFLLL
+BBFFFFFLLR
+FBFFFBBLRR
+FFBFFFBLRR
+BBBFBFFRLR
+FFFFFFBRRL
+BFBBFFFRRR
+FBFFBFBRRR
+BFFFBBFLRL
+BBFBFFFRRR
+BBFFFBBLRL
+FFBBFFFLLL
+FFFFFBBRLR
+BFBFFFFRRL
+FFBBFBBLRR
+BFBBFBBLLR
+FFBBBBFRRL
+BBBFFFFLRL
+BFBFFBFLRL
+BFFFFBBLRL
+BBBFBBBRLL
+BFBBFBBLRR
+BFBFFBBRRL
+BBFBFFFLLL
+FFFFBFFRRL
+FFFFBBBRRR
+FBBFBBFLRL
+FBFFBFBRLR
+FBFFBBBLLL
+FBFBBBFLLR
+FBBFBFBRLL
+BBBFBFFLLL
+BBFFFFFLRL
+FFBFBFBRLL
+FBBBFFBLRL
+FBFBFFBLRL
+FFFBBFBRLR
+FBFBBFBLLR
+FBFFBBBRLL
+BBFBBFBLLL
+FBBBBFFRLL
+FBBBBBBLRR
+FFFFFBFLRR
+BFFBFBBLRR
+FBFFBFFLRR
+BBFFFFBLRL
+BBFFBFFLLR
+FFFBBBBLRR
+FBFBBBFRRL
+FBBFFFBLRL
+BBFBBFFRRL
+FFBBBFBRLR
+BBBFBFBRRR
+FBFFBFFRRR
+FFBFFBFRLR
+BFBBFFBLLL
+FFBBBFFRRL
+FFFBFFFRLL
+BBFFFBFLLR
+BFFFFFBRLL
+FFBFBBBRLL
+FFFBFBFLLL
+FBBFBBBLRR
+BFBFBFBRLL
+FFBBBBBLLL
+FFBFFFBRRR
+BBFBBFFRLL
+BFFFFFFLRL
+FBFFBFFRLR
+BFFBBBFLRR
+FFFBBFFRLR
+FBFFFFBLLL
+BBFFBBBRRR
+FFBFBFBLLR
+FBBFFBBLLR
+BBFBBFBLLR
+BBFBBFBLRL
+BBBFFBFRRL
+FBFFBBBLRL
+BFBFBFFLLR
+BFFFFFBRLR
+FBFBFFBLLR
+BFFFBFBRLL
+FBFFFFBRRR
+BFBBFBBRRL
+FBFFFBBLRL
+BFBBBBFLRL
+BBBBFFBLRL
+FFBFFBBLRL
+FFFBFFBRLR
+FBFBFFBRLR
+FBFBFBBRRR
+BFFBFBBLRL
+FBBBFBBRLR
+BFBBBFFLLL
+BFBFBBBLLR
+BBBFBBBRRR
+FFBFFFFRLR
+BBFFFBBRRR
+BBBFBBFRRL
+FFBFFBBLLL
+BBFFBFFLRR
+BBFFBFBRRL
+BBFBBBFLRR
+FBFFBFBLRL
+BFBFFFFLLL
+FFBBBFBRRR
+BBBFBBBLLL
+FBFBBFBLRL
+BBBFFFBRLL
+BFFFBBFRRL
+BBBBFFFLLR
+BBBFBFFRLL
+FFBBFBFLRR
+FBBFBFBRRR
+FBBFBBFLRR
+BBFFFBFRRL
+FBFFFBBRLL
+BBFFFFFRLR
+FBBFBBFRRL
+FBFFFBBLLL
+BFBFBBFLLL
+BFFBFFBRLL
+FFFFBBBRLR
+BBFBBBBRLR
+BFBFFFBLRR
+BFBFFFBRLL
+FBFBBBBLLR
+BFFFBFFRRR
+FFBBBFFLLR
+BFBFFFBLLL
+FFBBFFBRLR
+FBBFBBBRRL
+BBFBFFBLRR
+FBBFBBBRRR
+FFFBBFBRRL
+BFBFBFBLLR
+BBFBFFBLRL
+BBBFBFBRRL
+BFFBFBFLLR
+BFBFBBBLRR
+FBFFFBFRLL
+BFFBFFFRRL
+FBFBFFFRRR
+BFFBFFFRLL
+FFBBFFBLLL
+BBBBFFFRLR
+BBBFFBFLLR
+BFBFBFBRRL
+BBFBBBBLLR
+BFFBBFFRLR
+FFFFBBBRRL
+BFFFBBFRLR
+FFBBFBBLLL
+BBBFFFBLLR
+BBFBBBFLLL
+FFFFFBFLLR
+BBBFBBFLRL
+FFFFFBFLLL
+BBFBFFFLLR
+BFBBFBFLRL
+BFBFBBFRRL
+BBBFBFFRRL
+BFFFBBFRLL
+FFFFBFBLRL
+BFBBBBBLRR
+FFFBFFBLRL
+FFFBBBBRLL
+BBBFBFBLLR
+BBBBFFBLLR
+BFFFBBBLLR
+BBFFFBBLLR
+BBFFBBBLRR
+FBBFBFBLLR
+BBBFFFFRLL
+FBBFBFBRRL
+FFBFBFFRLR
+BFFFFBFLLL
+BBFBBBBLLL
+FBFBBBBLRR
+BBBBFFFRLL
+BFBBFBBRRR
+FFFFBBBLLL
+BBFFBFBRLL
+FBBFFBFLRL
+FFBBBFFRLL
+FFFBBBFRLR
+FFBBFBFLRL
+BBFBFBFLLR
+BFFFFFBLRR
+FBFBBBFRLL
+FBFFFFFLLR
+FBFBFFBLLL
+BFFBFBFRLR
+FFBFBFFLLL
+FFFFFBBLLR
+BBBBFFBRRR
+FBFBFBFLLR
+BBFFFBFRLR
+BBFFBFBLRR
+BFFBBFFLRR
+BFFFFBFLLR
+FBBFBFBLRL
+BFFFFBFLRL
+BBFFFFFLRR
+BBBFFFFRRR
+FFBBBFFLRR
+BFFFBFBLRL
+BBFBFBBLRR
+BBFBFFBRLR
+FFFBFBFLRR
+FBFFFFFRLL
+BBFBBBFRLR
+BBFFBBFRRL
+BFBFFBBRLR
+FFBFFFBLLR
+BFBFFFBRLR
+BBBBFFBRLR
+BFBFFBFLLR
+BBFFBBFLLR
+FBFFFFBLLR
+FFFBBFBLRR
+FFBBFFBRRR
+FBBBFBFLRL
+FBFBFBFLRR
+BFFFBFBRRL
+FBFFFFBRRL
+FBFFFBBRLR
+FBBFFBBRRL
+FBBFBFFLRL
+BFBFBBFRLL
+FBBBBFFRLR
+FFBFFFFRRL
+BFBFBBBRRR
+BFFBBBFRRR
+BBFFFFFLLL
+BFBBBBFLRR
+FBBBBBFRRL
+BBFBFBFRRL
+BFFBFFFRLR
+FBFFFBFRRR
+FFBBBBBLLR
+FBFFFBFRLR
+BFBFBFBRLR
+FFFBBBFRRR
+FBBBFFBRLL
+BBFBFBBLRL
+FFFBFBBLLL
+BFBFBFFLLL
+FFFBFFFLLL
+FBBBFBBRRL
+FBFFFBFLRL
+FBFFBFBRLL
+BBFFBBFRLL
+BFFFBFFRLL
+FFBBFBFRRR
+BBBFFBBRRL
+BBFBFBBRLR
+FFBBFFFLRR
+FFBBBBFLLR
+FFBFFBFLLR
+FBBFBBFRLL
+FBFBBFFLRR
+BBBFFFFRRL
+FFFFFBBLRR
+BFBFBFFRLR
+FFBBBBFRRR
+FFBBFFFLLR
+FFBBBBBLRR
+FBBBBFBRRR
+FBFFFBBRRR
+BFFBFFBRRR
+BFBFBBFLRR
+FBFBBBBRRL
+FBBBBFBRLR
+BFFBBFBLLR
+FBBBFBBLLL
+FFBBBBBRLL
+FBBBBBBRLL
+FFFBFBBLLR
+BFFFFFBRRL
+BFFBFBBRRL
+FBBBFFBLRR
+FFFBFFFLRR
+FFBBBBFRLR
+BFFBFFFLLL
+FBFFBFFRLL
+BFBFBFFRLL
+FBBFBBBRLR
+FBFFBBFRLL
+FFBFFFBRLR
+BFBBFBFLRR
+BFBBBBFRRL
+FBFBFBBRLL
+BFBBBFBLRL
+FFBBFFBLRR
+BBFFBBBRLR
+FBBBFBBLRL
+BBBBFBFLRL
+BBBFBBFRRR
+FFFBBFBLRL
+BFBFFBBLLR
+BBBFFFBLRL
+BBFFFFBLRR
+FFBBBBFLLL
+FBFFFBFLLL
+FFBBFBBRRL
+BFFBBBBLRR
+FBBFFBBRLR
+BFBBFBFRLL
+FFBBBBBLRL
+FBFBFFFRLR
+BFBBBFBRRR
+BFBBBFBRLL
+BBFBBBFRRR
+BFFBBFBRRR
+BBFFBBBRLL
+FFBFFBBRLR
+FFFFBBBRLL
+FFBBBFBLRL
+FFFBFBFRLL
+BFBFBBFRRR
+FBBFFFFRLL
+BBBBFBFLLL
+FBFBFFBRRR
+BFFFBBBRRR
+FFFBBFBLLL
+BBBFBBBRRL
+FBFFBFBLLR
+FBBBBBFRLL
+FBBFBFFLLL
+BFBFFFBRRR
+FBFBFBBLRL
+FBFBBBBLLL
+FFBFFFBRLL
+BFFFBFBRLR
+BFBFBBBRLL
+FFBFBBFLLL
+BBBBFFFRRR
+FFFBFBFRRR
+FFBBFFFRLL
+BFBBBBBLLR
+FBBBBFFLRL
+BFBFBBFLRL
+BFFBBBFLRL
+BBFFBFBRLR
+BBBFFBFLLL
+FBFFBFFRRL
+FFFBBBBRLR
+BBFBFFFLRR
+FBBBBBBRLR
+BBFFBBBLLL
+BBFBBFFLLL
+FBBFFBFRLR
+FFFFBFBLRR
+FFFBBFFRRR
+FBFBFBFLRL
+BBFFBBFRRR
+FFFFBFBRRR
+FFBFBBBLRR
+FBFFFBBRRL
+BFFBBFBRLL
+FFBFBFFLRR
+FFBBFBBLLR
+FBBBBBBLLR
+FFFBBBFLLL
+FFBBFFBLRL
+BBFFFBBRLR
+FFFFBFFRLR
+BBFBFFBLLR
+FFFBFBBLRR
+BBFFFFBRLR
+FBFBFFFRRL
+FBBBFBFLLL
+FFFBBBFRLL
+FFFBFBBRLL
+FFBFFBBLLR
+BFFFBBBLRR
+FFFBBFBLLR
+FFBFBBFLRL
+BFFBFBFLLL
+BFFFBBFLRR
+FBFFFBBLLR
+FBBFFBBLLL
+FFBBFFFLRL
+BBBFFBFLRL
+FBBFFFFLLL
+BFFBBFFLLR
+BBBFFFFLLL
+FBFFBBFRRR
+BFBBBBBRRR
+FBFFFFFLRL
+FFBFFBBRRL
+FBFBBFFRLL
+FFBFBBFRLR
+BBBFFBBLLL
+FFFBBBFLRL
+BBFFFBBRRL
+BFFFFFBLLR
+FBBBFFBLLR
+BBFBBFFLRR
+FBFBBFBLLL
+BFBBFBFRLR
+BFBBFFBRRL
+BBFFFBBLRR
+FBBFFBFLRR
+FFFBFFBRRR
+FBFBBBBLRL
+BBFFBBBLLR
+FFBFFFBLRL
+FBBBFFFLRR
+BBBBFFBRLL
+BFFBBBFLLR
+BFBBBBFRLL
+BFFBFFBRRL
+BFFFFBBRLR
+FFBFFFBLLL
+FBBFFBFRLL
+BFFBBBBRLR
+BFFBFBBLLL
+BBBFFBFRLR
+BBFBBFBRLL
+FFFFBBFRRL
+FFBFBFBLRR
+BFFBBBBLLR
+BFFFFBFRRL
+FBBBBFBLRL
+BBBFFBBLRR
+FBBBBFBLLL
+FFFBFBBLRL
+FFBFBBFRRR
+BFBBFFBRLR
+BBFFBBFLRR
+FBBBFBFRLR
+FBBFBFBLLL
+BFFFBBFRRR
+BFFFFBFRLR
+FFBFFBFRRR
+FFFFBBFRLR
+FBBFFFBLLL
+FBFFBBFLRR
+BFFFFFFRLL
+BFBBBFFLRR
+FBFFBFBLRR
+FBFBBFFRRR
+FFFBBBBRRL
+BFFFBFFLLR
+FBBBBFFLLR
+BFFFFFFRRR
+FFBFFFFLRR
+FBBFFFFRRL
+FBBFFFFRLR
+BBFFBBBLRL
+FBFFBBBRRR
+BFFFBBBRRL
+BFFFBBBLLL
+BFFFFBBRLL
+BFFFFFFLRR
+FBFBFBFRLR
+FFFBFFFRRR
+FFFFBBFLLL
+BBBFBFBLRR
+BBBFBBFLRR
+BBFBFBBLLL
+FFFBBBFLRR
+FBBFFFBRLL
+BFFBFFFLRR
+BFBFBBBRRL
+BFFBBBBRRR
+FBFFBBBLRR
+BFFFBBFLLL
+BBBFBFBLRL
+BFFFBFBLLR
+BBBFBFFLLR
+FFBFFBBLRR
+FBBFBFFLRR
+BBBFFBFRRR
+BFBBFFFLRL
+FFBBBFBLLR
+FBBBBFFRRR
+BFBBBBBRLR
+BBFFBFBLLR
+BFFBFBBRLR
+BFFBFFFLLR
+BFFBBBBRRL
+BBFBFBFLRL
+BFFBBBFLLL
+BBBFFBFLRR
+FBFFFFFLRR
+BFBFBFBRRR
+BBBFFBFRLL
+BFFFBBFLLR
+BBBFBBFRLR
+FFFFBBFLRR
+FBBBFBFRRL
+FFFBFFBRRL
+FFBFFBBRRR
+BFBBBBBLLL
+FFBFFBFRLL
+BFBFFFBLLR
+BFFBBFBLRL
+BBFBBFFLRL
+FFFBFBFRRL
+BFFBBBBRLL
+FBFBFFBRRL
+FFFFFBFRLR
+FBBBBFBRLL
+FFFFBFFLLL
+FBFBFBBRLR
+FBFFFFBRLR
+BFBBFFBLRR
+BFBBBFFRLL
+BBFBBFFLLR
+FBFBBBFLRR
+FFFFBFFRLL
+BFBBFFBRRR
+BBBFFFFLLR
+BBFFFBBLLL
+BFFFFFFRRL
+BFBBFFBRLL
+FFBFFFBRRL
+FBFBBFBRLL
+BFBBBFBLRR
+BBFBFBFLRR
+BBBFBBFLLL
+FBFBFFFLRR
+BBBBFFBLRR
+FFFBBFFLRR
+BFFFBFBLLL
+FFFFBFFLRL
+FFBBFBBRLR
+FFFBFBFRLR
+BFFBFBFRLL
+BBBFFFBLLL
+BBFBBFBRRR
+BFBFBBBLLL
+BFFBFFBLLR
+BFBBFBBLRL
+BBFBFFBRLL
+FBFBBFFLLR
+BFFFFFBLLL
+FBFFFFFRRL
+FFFFFFBRRR
+BBBFFFFRLR
+FBFFFBFRRL
+BFBFFBBRLL
+BBFBFFBRRR
+FFBFBBBLRL
+FFFBFFBLRR
+FFFBBBFRRL
+BFFBBFBRRL
+BFBFFFBLRL
+FBBFFBBRLL
+FFBBBBBRRL
+FBBBBFBLRR
+BBFBFBBRRL
+FBBBFFBRLR
+FFBBFBBRLL
+FFFBBBFLLR
+BFBBFFFLRR
+FBBBFFFLRL
+BFBFFFBRRL
+FFFFBBBLRR
+FFFBFFBRLL
+BFBBFBBRLR
+FFFFFBBLLL
+BFBBBFFRLR
+BFBFFFFLRR
+BFBBFFFLLR
+FFFFBFFLRR
+FFBFBFBLLL
+BFBFBBFRLR
+FBFFFBFLLR
+FFBBFFBLLR
+FBFBBBBRRR
+FBBBBBBLLL
+FFBFBBBRRR
+FBFFBBFRLR
+BFFFBFFLRL
+FFBFBFFRLL
+FBFFFFBLRR
+BFBFFFFRLR
+FBBBBBBRRL
+BFBFBFBLRR
+FFBFBBFLLR
+FFFBBFFLLL
+FFFBBFFLLR
+FBBBFBBLLR
+BFBBBFBLLL
+BFBFFBFRLL
+BFBBFFFRRL
+BFBBFFBLLR
+FBBFFBFRRL
+BBFBBBBRRR
+FBBBFFBRRR
+BFFBBBFRLR
+BBFBBBBRRL
+FBBBFBFLLR
+BFBFFFFRLL
+FBBFFFBLLR
+BBBBFFFLRL
+BFFBFBFLRR
+FBFFBFBRRL
+BFBBBFFLRL
+BBFFBFFRLL
+BFBFBBBLRL
+BBFFFBFLRR
+BBFBFFFRRL
+BFFBFBBLLR
+FFFFBFBRLR
+FFBBBBFLRR
+FBBBBBFLLL
+BFBBFBFLLL
+FBBBBFBLLR
+FBFBFFFLLL
+BBFFFBFLLL
+BBFBBBBLRL
+FFFFFBBLRL
+FFBFBBBLLR
+FFFBFFFLLR
+BFBFBFBLRL
+FFBFFBFLRL
+FBFFBBFLRL
+FFBFBBFRRL
+BFFBFFBLRR
+BFFBBFFRLL
+FFBFBFBRRL
+FBFBFBBLRR
+FBFBFBBLLL
+FFFFBBFRLL
+FBBBFFFRLR
+FBFBBFBRLR
+FBFFBBFLLL
+BBFBBBFRLL
+FBBBBBFLLR
+FBBFFBBRRR
+BFFBBBFRRL
+BBFFBFFRRR
+FFBFBBBLLL
+FBBBBFFLLL
+BBBBFBFLLR
+FBBFBFFRRL
+BBFBFBFRLR
+FFFFBFFRRR
+BFBFBFBLLL
+BBFBBBBLRR
+BBFFBFBLLL
+BFBFBFFLRL
+FFBFFFFLLR
+FFFBBFFRLL
+BBBBFFBRRL
+BBFBBFBRRL
+BBBFBFFLRL
+BFFFBBBRLR
+FBFBBBFLRL
+FFBBBFBLRR
+BFBFFFFRRR
+BBBFFFBLRR
+FFBFFFFRLL
+BFBFFBFRRR
+BFBBBFFRRL
+FFFFFBFRLL
+BBBFFBBLLR
+BBBFFFFLRR
+BFFBBFFRRL
+FFBFBFFLLR
+FBBBBFBRRL
+FBFBFBBRRL
+BBFFFFBRLL
+FFBFBBBRLR
+FBFBBFFLLL
+FFBBBBBRLR
+BFBBBBBRRL
+BBBFBFFRRR
+FFFBBFBRLL
+BFBBFFFLLL
+FFFFBFBRLL
+BBFFBBFLRL
+FFFBFBBRRL
+BBFBFBBRLL
+BFBFBBBRLR
+FFFFBBBLLR
+BFBBBBBRLL
+FBBFBFFRRR
+FBFFFBFLRR
+FBBBFFFLLL
+FFBFBFBRLR
+FFFBFFBLLL
+FFBBFBFLLL
+BFBBBFBLLR
+FFFFBFBRRL
+FFFBFFBLLR
+BBFFBBFRLR
+BFFFFFBRRR
+BFBBFFFRLR
+FFFFFBBRLL
+BBBFFBBRLL
+BFFBFBBRRR
+BFBFBFFRRL
+FBBFFFBRRL
+FFFBBFFLRL
+FBBFFBFLLL
+FBBFFFFLLR
+BBFBBFBLRR
+BBBFBBBRLR
+FFFFBFFLLR
+BFFBBFFLRL
+BBFBBBFRRL
+BBFFFFFRRL
+BFBFFBBLRR
+FFBBFFFRRL
+BBFBFBFRLL
+BFFBFFFRRR
+BBFBFFFRLR
+BFFBFBBRLL
+BFFFFBBRRR
+BFBFFBFLLL
+FFFFFBFLRL
+FBBFBBBLRL
+BFBBBFBRLR
+BFFFFFFLLL
+FFFBFFFRLR
+BFBBBFFRRR
+FBBFFBBLRL
+BBFFFFBRRL
+BFFFFBBRRL
+BBBFFFBRRR
+BFBBFBBRLL
+FBBFFBFLLR
+FFBBFBBRRR
+BBFFBFBLRL
+FFBFBFBRRR
+BFBBFFBLRL
+BFFBBFFLLL
+FFFBBBBLLR
+FFBFBBFRLL
+FBBBFFBLLL
+BFBFBFFLRR
+BFBBFFFRLL
+FFBFBBBRRL
+FFBBFBFRRL
+FBFBBFBRRL
+BFFBBBBLLL
+BFBFFBBRRR
+BBFBBBFLRL
+BFBFFBFRRL
+BFFBFFBLLL
+FFBFFBFRRL
+BBBFFFBRLR
+FBBFFFBRRR
+FFFBFFFLRL
+FFFFBFBLLL
+BBBBFFBLLL
+BBFFFFBLLL
+BBBFBBBLRL
+FBFBFBBLLR
+BFBFFFFLRL
+BFFFFFFRLR
+FFFFFFBRLR
+BFFFFFBLRL
+BBBBFFFLRR
+FBBFBFBRLR
+BFBBBBFLLR
+FBBBBBFLRL
+FFBFFFFRRR
+FBFFBBFLLR
+BBBBFFFLLL
+FBBFFFFLRR
+BBFBBFFRRR
+BFBBBBFRRR
+FBBBFFBRRL
+BBFFFFBLLR
+BBFFFFFRRR
+BBFBFFFLRL
+BFFFBFFLRR
+BBBFBFFLRR
+FFFBBFFRRL
+FFFBFBFLRL
+BFBFFBBLLL
+FFBBFBBLRL
+FBFFFFBLRL
+FFFFBBFLLR
+BFFBBFBLRR
+BFBBBFBRRL
+BBFFFBFLRL
+FFBBBBFRLL
+BFFFBFBRRR
+FBBFBFFRLR
+FBFFFFFLLL
+BBFFBFFRLR
+FBBBBFFRRL
+BFFFBBBRLL
+BBBFFBBRLR
+FBFFBBFRRL
+BBFBBBFLLR
+FFBFFBFLLL
+FBBFFFBRLR
+BBFBBBBRLL
+FBFBBBFLLL
+FBBBBFFLRR
+FBBBFBFRLL
+FFFBBFBRRR
+BBFBFBFLLL
+BFBBBBFRLR
+BBFBFFFRLL
+FBBFBFFLLR
+FFBBBFBRLL
+FBBBFBFRRR
+FBFBFBFRRR
+FBBBFFFLLR
+BBFFFBFRLL
+BBFFBBFLLL
+FFFBFBFLLR
+FFBBFBFLLR
+FBBFBBBLLL
+FBBFBBFRLR
+BFFFFFFLLR
+FBFBBFBLRR
+BBFFBFFLRL
+BFFFFBFRLL
+FBBBBBBLRL
+FFFFFBFRRR
+FBFFBBBRLR
+FBBFFFFLRL
+BBFFBFFLLL
+FFBBFFFRRR
+FFFFBBFLRL
+BBFBFBBLLR
+FBFBFFBLRR
+FBBBFFFRRL
+BFBFFBFRLR
+BFBFBFFRRR
+FBBBFBBLRR
+BBFFBFBRRR
+FFFFFBBRRR
+BBFBFBBRRR
+BFBBFBBLLL
+FFBFFBBRLL
+FBFFBFFLLL
+FFBBFBFRLR
+BBBFBBFLLR
+FBBFBFBLRR
+FFFBBBBLLL
+BBFFFFBRRR
+FBFFBBBLLR
+FBFBFBFRRL
+BBBFFBBLRL
+BBFBFFBRRL
+FBBFFBFRRR
+FBBBBBFRLR
+BFFFFBFLRR
+FBBFBBFLLL
+BFFFBFFRRL
+BBBFFBBRRR
+BBBFBFBLLL
+BFFFBFBLRR
+FBBBFFFRLL
+FBFFFFBRLL
+FBBFFBBLRR
+FFBFFBFLRR
+FBBBFFFRRR
+BFFBFBFRRR
+BBFFBFFRRL
+FFBFFFFLLL
+BFFFBBBLRL
+FBFBFFFRLL
+FBFBFFBRLL
+BBBFBBBLLR
+FFBFBFFRRR
+FBFBBFFRLR
+BBBFBFBRLL
+BFBBBFFLLR
+BBFBFBFRRR
+FBFBBFFRRL
+FFBBBFFLLL
+BBFFFBBRLL
+FBBBFBFLRR
+FBFFBFBLLL
+FFBFBFBLRL
+FFFBFBBRRR
+FBBBBBFRRR
+BFFFBFFLLL
+FFBBBBBRRR
+FFFFFBFRRL
+FBBBFBBRLL
+FBBFBBFLLR
+FBBFFFFRRR
+FFBBBFBRRL
+BFFBFFFLRL
+BFFFFBFRRR
+BFFFFBBLLL
+FBBBBBFLRR
+BFFBBFFRRR
+BFBFBBFLLR
+FFBBBFFRRR
+FFBBFFBRRL
+BFBFFBBLRL
+BFFBFFBLRL
+FFBBBBFLRL
+FFBBFFBRLL
+FBFFBFFLRL
+FFBBBFBLLL
+BBFBBFFRLR
+BBBFBBBLRR
+FFFBBBBRRR
+BFFFFBBLRR
+FFBFFFFLRL
+BFBBBBBLRL
+BBBFBBFRLL
+FBFFFFFRLR
+BBFFFFFRLL
+FBFBFFFLRL
+FFFBFBBRLR
+FBBFBBFRRR
+FBFBBFBRRR
+BBFFFBFRRR
+FFFFBBFRRR
+FFFFBFBLLR
+BFBBFBFLLR
+BBFFBBBRRL
+FFBBFBFRLL
+FBFBFFFLLR
+BFFBBBFRLL
+FBBBBBBRRR
+FBFFBBBRRL
+FFBFBBFLRR
+BFFFBFFRLR
+BFBBBBFLLL
+FFBBFFFRLR
+FFBFBFFLRL
--- a/day5/main.hs
+++ b/day5/main.hs
@ -0,0 +1,47 @@
+#! /usr/bin/env -S"ANSWER=42" nix-shell
+#! nix-shell -p ghcid
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [])"
+#! nix-shell -i "ghcid -c 'ghci -Wall' -T main"
+
+{-# LANGUAGE OverloadedStrings #-}
+
+-- import Debug.Trace (trace)
+import Data.List (sort)
+
+binaryPartitionWalker :: String -> Int -> Int -> (String, Int, Int)
+binaryPartitionWalker ('F':s) begin end =
+  binaryPartitionWalker s begin (((end - begin) `div` 2) + begin)
+binaryPartitionWalker ('B':s) begin end =
+  binaryPartitionWalker s (((end - begin) `div` 2) + begin + 1) end
+binaryPartitionWalker ('L':s) begin end =
+  binaryPartitionWalker ('F':s) begin end
+binaryPartitionWalker ('R':s) begin end =
+  binaryPartitionWalker ('B':s) begin end
+binaryPartitionWalker "" b e = ("",b,e)
+binaryPartitionWalker _ _ _ = undefined
+
+seatID :: String -> Int
+seatID str = row * 8 + seat
+  where
+    (rowStr, seatStr) = splitAt 7 str
+    (_,row,_) = binaryPartitionWalker rowStr 0 127
+    (_,seat,_) = binaryPartitionWalker seatStr 0 7
+
+solvePart1 :: [String] -> Int
+solvePart1 = maximum . (map seatID)
+
+solvePart2 :: [String] -> Int
+solvePart2 = fst . head . (filter (\(x,y) -> x /= y)) . (zip [13..]) . sort . (map seatID)
+
+main :: IO ()
+main = do
+  putStrLn "Day 5 - Part 1"
+  print $ seatID "FBFBBFFRLR"
+  print $ seatID "BFFFBBFRRR"
+  print $ seatID "FFFBBBFRRR"
+  print $ seatID "BBFFBBFRLL"
+  input <- lines <$> readFile "day5/input"
+  putStrLn $ "Solution of part 1"
+  print $ solvePart1 input
+  putStrLn $ "Solution of part 2"
+  print $ solvePart2 input
--- a/day6/input
+++ b/day6/input
--- a/day6/main.hs
+++ b/day6/main.hs
@ -0,0 +1,72 @@
+#! /usr/bin/env -S"ANSWER=42" nix-shell
+#! nix-shell -p ghcid
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [shower])"
+#! nix-shell -i "ghcid -c 'ghci -Wall' -T main"
+
+{-# LANGUAGE OverloadedStrings #-}
+
+-- import Debug.Trace (trace)
+import Data.List (nub)
+
+exampleData :: [String]
+exampleData =
+  [ "abc"
+  , ""
+  , "a"
+  , "b"
+  , "c"
+  , ""
+  , "ab"
+  , "ac"
+  , ""
+  , "a"
+  , "a"
+  , "a"
+  , "a"
+  , ""
+  , "b"
+  ]
+
+-- Count how many different chars per paragraph and sum them
+countUniqueAnswers :: [String] -> Int
+countUniqueAnswers = length . nub . concat
+
+paragraphs :: [String] -> [[String]]
+paragraphs strs = go (strs, [])
+  where
+    go :: ([String], [[String]]) -> [[String]]
+    go ([], ys) = ys
+    go (x:xs, []) = go (xs, [x] : [])
+    go ("":xs, ys) = go (xs, [] : ys)
+    go (x:xs, y:ys) = go (xs, (x:y) : ys)
+
+solvePart1 :: [String] -> Int
+solvePart1 = sum . (map countUniqueAnswers) . paragraphs
+
+allAnsweredX :: Char -> [[String]] -> [Bool]
+allAnsweredX c = map (all (any (== c)))
+
+
+
+solvePart2 :: [String] -> Int
+solvePart2 strs = length . (filter (== True)) $ concat $ map (\x -> (allAnsweredX x . paragraphs) strs) ['a'..'z']
+
+main :: IO ()
+main = do
+  putStrLn "Day 6 - Part 1"
+  print $ exampleData
+  print $ countUniqueAnswers [""]
+  print $ countUniqueAnswers ["abc"]
+  print $ countUniqueAnswers ["a", "b", "c"]
+  print $ countUniqueAnswers ["ab", "ac"]
+  putStrLn "Day 6 - Part 1 : solving test"
+  print $ solvePart1 exampleData
+  putStrLn "Day 6 - Part 1 : solving input"
+  input <- lines <$> readFile "day6/input"
+  print $ solvePart1 input
+  putStrLn "Day 6 - Part 2 : solving test"
+  print $ paragraphs exampleData
+  print $ solvePart2 exampleData
+  putStrLn "Day 6 - Part 2 : solving input"
+  print $ solvePart2 input
+
--- a/day7/input
+++ b/day7/input
@ -0,0 +1,594 @@
+vibrant aqua bags contain 1 shiny magenta bag, 2 muted teal bags, 1 dim magenta bag, 1 muted chartreuse bag.
+vibrant violet bags contain 4 pale maroon bags.
+dark indigo bags contain 1 light maroon bag, 3 pale red bags, 1 drab brown bag, 4 dim magenta bags.
+dark coral bags contain 5 dull aqua bags, 5 plaid green bags, 2 posh bronze bags.
+dim lavender bags contain 2 muted violet bags, 5 wavy gold bags, 3 vibrant plum bags, 5 bright teal bags.
+mirrored turquoise bags contain 5 muted olive bags, 5 bright gold bags, 2 vibrant violet bags.
+faded brown bags contain 5 faded tomato bags.
+muted orange bags contain 5 dull aqua bags, 2 light salmon bags, 1 striped black bag, 1 pale gray bag.
+posh black bags contain 4 faded silver bags.
+muted coral bags contain 3 mirrored turquoise bags.
+clear silver bags contain 5 dark cyan bags.
+clear crimson bags contain 2 dim blue bags, 4 bright indigo bags.
+clear salmon bags contain 4 striped cyan bags, 1 muted maroon bag, 1 light bronze bag, 1 vibrant tan bag.
+light olive bags contain 1 faded white bag, 2 dull chartreuse bags, 5 faded gray bags.
+muted maroon bags contain 5 dark fuchsia bags, 5 drab violet bags.
+posh plum bags contain 2 striped gray bags, 5 dim violet bags.
+light orange bags contain 1 light purple bag.
+drab white bags contain 4 plaid lime bags, 1 drab gold bag.
+plaid indigo bags contain 5 clear lime bags, 1 dark fuchsia bag.
+muted red bags contain 1 dull bronze bag.
+mirrored magenta bags contain 5 plaid white bags, 1 faded plum bag, 5 wavy purple bags.
+dotted lavender bags contain 5 shiny olive bags, 3 plaid blue bags, 1 shiny gold bag.
+drab bronze bags contain 3 wavy silver bags, 4 light turquoise bags, 1 vibrant lavender bag, 5 light magenta bags.
+plaid maroon bags contain 2 dim salmon bags, 5 muted violet bags.
+dull salmon bags contain 5 striped beige bags, 2 muted plum bags, 1 posh teal bag.
+dotted turquoise bags contain 5 striped orange bags.
+bright yellow bags contain 2 shiny olive bags, 3 wavy teal bags, 1 pale plum bag, 3 mirrored coral bags.
+dark black bags contain 5 pale gray bags.
+shiny yellow bags contain 4 dark aqua bags, 2 drab lime bags, 2 bright gold bags, 4 dark cyan bags.
+shiny red bags contain 2 posh blue bags.
+posh olive bags contain 3 dim aqua bags.
+muted chartreuse bags contain 4 posh brown bags, 5 shiny magenta bags.
+mirrored orange bags contain 5 dotted salmon bags, 1 posh green bag.
+muted plum bags contain 1 dull red bag, 4 posh green bags.
+light green bags contain 2 wavy plum bags.
+light cyan bags contain 2 dotted crimson bags, 4 faded salmon bags, 3 muted coral bags, 3 plaid blue bags.
+dull lavender bags contain 3 drab gold bags, 5 plaid crimson bags.
+posh red bags contain 3 dotted salmon bags, 2 pale beige bags, 2 mirrored coral bags, 5 muted teal bags.
+vibrant beige bags contain 2 faded lime bags.
+plaid blue bags contain 5 dull red bags, 3 light maroon bags, 4 muted gold bags, 2 drab orange bags.
+dotted white bags contain 3 muted white bags.
+drab fuchsia bags contain 2 shiny fuchsia bags.
+drab crimson bags contain 1 posh beige bag, 4 drab violet bags.
+drab beige bags contain 3 mirrored orange bags, 1 wavy silver bag, 2 pale magenta bags, 1 drab lime bag.
+posh teal bags contain 2 clear brown bags.
+mirrored brown bags contain 2 faded tan bags.
+clear coral bags contain 1 muted chartreuse bag, 2 muted violet bags, 2 faded purple bags.
+pale lime bags contain 5 vibrant aqua bags, 3 wavy purple bags, 1 drab violet bag.
+vibrant red bags contain 5 shiny gold bags.
+shiny fuchsia bags contain 1 dark salmon bag, 1 posh white bag.
+bright gray bags contain 2 dim red bags.
+drab lavender bags contain 2 clear tomato bags, 1 faded red bag, 1 pale chartreuse bag.
+clear red bags contain 3 light salmon bags, 1 bright red bag, 5 dark indigo bags.
+bright aqua bags contain 3 faded brown bags, 1 shiny yellow bag.
+faded red bags contain 3 posh turquoise bags, 5 dark fuchsia bags.
+faded turquoise bags contain 3 drab fuchsia bags.
+dim aqua bags contain 1 faded white bag, 5 faded violet bags.
+muted white bags contain 5 pale red bags, 4 dull red bags, 3 dotted maroon bags.
+dull gold bags contain 3 posh green bags, 2 mirrored yellow bags, 2 dull olive bags, 2 bright purple bags.
+faded blue bags contain 3 wavy crimson bags, 1 plaid beige bag, 3 dotted orange bags, 1 vibrant purple bag.
+faded gray bags contain 1 bright gold bag.
+dim bronze bags contain 2 bright gold bags, 4 light brown bags, 5 muted chartreuse bags.
+light teal bags contain 5 striped tomato bags, 5 drab teal bags, 5 shiny lavender bags.
+striped white bags contain 1 plaid silver bag, 2 wavy plum bags, 3 dull maroon bags, 2 muted green bags.
+vibrant salmon bags contain 2 shiny violet bags, 4 light salmon bags.
+dim plum bags contain 1 dull blue bag, 5 vibrant bronze bags.
+dotted fuchsia bags contain 4 plaid green bags.
+plaid crimson bags contain 3 clear teal bags, 5 dark gray bags, 2 mirrored tan bags, 5 shiny fuchsia bags.
+pale white bags contain 2 muted silver bags, 1 muted lime bag.
+bright violet bags contain 2 clear chartreuse bags, 2 dull gray bags, 2 muted cyan bags.
+drab red bags contain 1 dotted white bag, 1 light plum bag, 5 muted indigo bags, 1 dull lime bag.
+muted indigo bags contain 3 mirrored blue bags, 5 light fuchsia bags.
+vibrant cyan bags contain 2 pale blue bags, 3 mirrored chartreuse bags.
+mirrored gray bags contain 1 shiny red bag, 2 pale blue bags, 4 dotted lime bags, 1 faded violet bag.
+posh lavender bags contain 3 vibrant aqua bags, 5 mirrored chartreuse bags.
+dotted silver bags contain 3 dark beige bags, 5 dotted teal bags, 3 mirrored indigo bags, 2 dim yellow bags.
+wavy magenta bags contain 4 wavy beige bags.
+faded tomato bags contain 3 plaid black bags, 5 bright orange bags, 2 vibrant blue bags.
+mirrored maroon bags contain 3 plaid gray bags.
+pale bronze bags contain 4 vibrant violet bags, 2 muted white bags.
+plaid turquoise bags contain 2 dotted lime bags, 3 striped beige bags, 1 pale crimson bag, 2 pale purple bags.
+posh turquoise bags contain 5 clear yellow bags, 1 dotted turquoise bag, 3 dim cyan bags, 5 pale maroon bags.
+wavy white bags contain 2 mirrored gray bags, 3 pale yellow bags.
+vibrant tan bags contain 1 wavy lavender bag.
+pale turquoise bags contain 2 dark gray bags, 4 faded green bags, 1 light maroon bag, 5 posh white bags.
+faded beige bags contain 1 striped brown bag, 1 dull gray bag, 5 mirrored blue bags.
+bright maroon bags contain 1 light blue bag, 5 dim bronze bags, 4 dotted beige bags.
+shiny lavender bags contain 3 dim gray bags, 4 pale gray bags.
+dull beige bags contain 3 dark crimson bags.
+striped coral bags contain 3 dark lavender bags, 2 mirrored turquoise bags, 5 posh maroon bags, 1 striped yellow bag.
+shiny magenta bags contain 1 plaid black bag.
+muted magenta bags contain 2 plaid beige bags.
+light salmon bags contain 5 striped black bags, 1 pale lavender bag.
+shiny white bags contain 2 bright gold bags, 3 mirrored olive bags.
+dark tomato bags contain 2 dark gold bags, 2 clear teal bags, 5 dull fuchsia bags, 4 dotted gold bags.
+dotted violet bags contain 3 plaid teal bags, 5 mirrored aqua bags.
+plaid purple bags contain 4 mirrored olive bags.
+drab lime bags contain 5 bright beige bags, 4 mirrored tan bags, 5 striped black bags, 4 faded green bags.
+dull blue bags contain 4 light red bags, 2 pale turquoise bags, 1 posh maroon bag.
+muted tan bags contain 1 pale magenta bag, 3 mirrored turquoise bags, 3 shiny blue bags, 4 dotted salmon bags.
+dim teal bags contain 1 posh turquoise bag, 3 dull red bags.
+muted fuchsia bags contain 4 pale salmon bags, 1 pale silver bag, 3 pale maroon bags, 2 bright purple bags.
+bright gold bags contain 2 shiny magenta bags, 4 pale red bags, 4 posh brown bags.
+faded lime bags contain 5 vibrant bronze bags, 2 pale violet bags, 2 plaid coral bags.
+posh tan bags contain 3 bright lavender bags, 2 striped blue bags, 5 shiny gold bags.
+posh bronze bags contain 3 plaid olive bags, 3 dotted salmon bags.
+shiny lime bags contain 1 bright salmon bag, 3 faded green bags, 2 wavy aqua bags.
+faded lavender bags contain 2 bright silver bags.
+muted black bags contain 5 mirrored coral bags.
+plaid chartreuse bags contain 3 dull coral bags, 2 light tomato bags.
+mirrored aqua bags contain 2 dark cyan bags, 2 dark indigo bags.
+dark yellow bags contain 5 dotted lime bags, 1 dim cyan bag.
+bright plum bags contain 5 dim salmon bags.
+striped gray bags contain 3 plaid black bags, 1 wavy crimson bag, 5 bright orange bags.
+faded salmon bags contain 3 clear lime bags, 4 drab purple bags.
+pale olive bags contain 2 light magenta bags, 4 dim salmon bags, 5 light olive bags, 2 pale salmon bags.
+faded crimson bags contain 2 wavy beige bags, 4 dim aqua bags, 5 light lavender bags.
+posh chartreuse bags contain 5 pale lavender bags, 5 mirrored turquoise bags, 2 dark maroon bags.
+posh aqua bags contain 5 faded crimson bags, 2 mirrored tan bags.
+faded coral bags contain 2 dotted lime bags, 2 faded white bags.
+striped bronze bags contain 4 plaid blue bags, 1 plaid coral bag.
+wavy orange bags contain 5 pale tomato bags.
+dim crimson bags contain 4 posh tan bags, 1 muted gold bag.
+clear gray bags contain 3 striped lime bags, 4 vibrant fuchsia bags.
+light gold bags contain 4 bright tan bags, 5 faded lime bags, 4 faded plum bags, 5 clear brown bags.
+wavy red bags contain 4 pale red bags, 4 dotted maroon bags, 4 mirrored violet bags.
+dull silver bags contain 1 striped turquoise bag, 2 striped orange bags, 1 dotted plum bag, 3 muted coral bags.
+striped magenta bags contain 1 mirrored tan bag.
+plaid plum bags contain 4 wavy tan bags, 5 wavy brown bags, 5 shiny olive bags, 5 clear yellow bags.
+faded chartreuse bags contain 1 shiny teal bag.
+clear chartreuse bags contain 2 drab tan bags, 3 plaid maroon bags, 2 drab orange bags, 2 plaid salmon bags.
+wavy olive bags contain 5 dark lavender bags.
+dull orange bags contain 1 dull gray bag, 2 light magenta bags.
+wavy gold bags contain 5 vibrant yellow bags, 4 pale black bags, 2 light olive bags.
+muted salmon bags contain 5 dotted turquoise bags, 5 dotted violet bags.
+wavy tan bags contain 2 plaid green bags.
+dotted cyan bags contain 4 drab gold bags, 1 dark crimson bag, 3 pale lavender bags.
+wavy coral bags contain 3 mirrored blue bags, 5 wavy white bags, 1 striped indigo bag.
+clear olive bags contain 4 wavy silver bags, 2 pale orange bags, 2 bright tan bags.
+light indigo bags contain 1 pale purple bag, 4 clear teal bags, 1 plaid indigo bag, 4 dim blue bags.
+dotted tomato bags contain 4 dim cyan bags.
+pale indigo bags contain 2 muted chartreuse bags, 4 faded salmon bags, 3 dull brown bags.
+bright magenta bags contain 1 vibrant salmon bag, 1 pale teal bag, 4 faded orange bags.
+faded gold bags contain 4 striped cyan bags.
+shiny orange bags contain 5 vibrant turquoise bags, 3 pale purple bags.
+posh salmon bags contain 1 dotted crimson bag, 3 dark maroon bags.
+dull violet bags contain 2 clear indigo bags.
+posh gray bags contain 1 shiny fuchsia bag, 1 faded plum bag, 5 pale turquoise bags.
+dull chartreuse bags contain 4 dull red bags, 1 striped black bag, 3 dark tan bags, 3 muted maroon bags.
+dotted chartreuse bags contain 5 striped aqua bags.
+dim magenta bags contain no other bags.
+light lime bags contain 2 shiny magenta bags, 3 striped black bags.
+drab maroon bags contain 2 vibrant bronze bags, 1 clear white bag, 2 dim gray bags.
+drab salmon bags contain 2 wavy crimson bags, 3 dim gold bags, 5 drab chartreuse bags.
+dotted crimson bags contain 4 pale purple bags, 3 plaid coral bags.
+dull red bags contain 3 dark indigo bags, 2 posh white bags, 4 light maroon bags.
+drab turquoise bags contain 2 striped tomato bags, 1 bright gold bag, 5 mirrored tan bags, 1 drab chartreuse bag.
+shiny teal bags contain 4 bright lime bags, 2 pale red bags.
+dark purple bags contain 5 mirrored beige bags, 1 posh purple bag, 5 dotted beige bags.
+drab aqua bags contain 4 plaid blue bags, 3 dark salmon bags, 4 striped lime bags, 4 striped blue bags.
+dull magenta bags contain 2 clear white bags, 5 muted bronze bags.
+pale tan bags contain 1 pale lime bag.
+dark fuchsia bags contain 3 dim coral bags, 1 muted white bag, 2 plaid blue bags.
+mirrored beige bags contain 5 dotted magenta bags, 1 wavy olive bag, 1 dark tan bag.
+drab tomato bags contain 4 dim cyan bags.
+shiny tomato bags contain 2 shiny maroon bags, 2 dark lavender bags, 1 posh red bag, 3 vibrant green bags.
+dim turquoise bags contain 4 muted salmon bags, 2 bright purple bags, 4 plaid maroon bags, 3 bright beige bags.
+mirrored salmon bags contain 2 drab violet bags, 3 faded red bags.
+pale crimson bags contain 3 bright white bags, 5 plaid beige bags.
+shiny cyan bags contain 4 light blue bags.
+clear lavender bags contain 5 bright turquoise bags.
+vibrant purple bags contain 5 pale turquoise bags, 2 posh orange bags.
+striped purple bags contain 5 muted orange bags, 5 dark aqua bags.
+pale gray bags contain 5 dark indigo bags, 1 vibrant violet bag, 3 pale maroon bags, 4 bright gold bags.
+posh brown bags contain 3 drab brown bags, 4 pale red bags, 2 posh white bags, 4 muted gold bags.
+muted bronze bags contain 2 clear magenta bags, 5 shiny green bags, 2 mirrored tan bags, 4 posh gray bags.
+pale brown bags contain 5 muted white bags, 3 plaid beige bags, 3 wavy lavender bags, 3 clear indigo bags.
+dull yellow bags contain 5 clear lime bags, 4 plaid blue bags, 4 dotted lime bags.
+light tan bags contain 5 dull blue bags, 2 drab yellow bags, 5 mirrored red bags.
+posh gold bags contain 4 dull chartreuse bags, 2 dim magenta bags.
+pale silver bags contain 4 dull aqua bags, 4 bright gold bags.
+light beige bags contain 3 posh orange bags, 3 mirrored gray bags, 2 bright red bags.
+striped turquoise bags contain 2 posh blue bags, 1 striped orange bag, 2 shiny tan bags, 5 vibrant aqua bags.
+vibrant plum bags contain 4 pale gray bags.
+dotted teal bags contain 2 dim magenta bags.
+dull purple bags contain 5 drab brown bags, 4 dotted maroon bags, 1 muted white bag.
+mirrored fuchsia bags contain 2 dark tomato bags, 4 faded tan bags, 2 faded white bags, 4 dotted orange bags.
+dotted plum bags contain 2 dull aqua bags, 4 faded green bags.
+bright fuchsia bags contain 2 wavy blue bags, 5 clear brown bags.
+dim beige bags contain 2 pale orange bags.
+dotted orange bags contain 2 faded brown bags, 1 clear tomato bag, 1 clear indigo bag.
+plaid gold bags contain 1 striped turquoise bag, 3 vibrant magenta bags, 5 shiny gray bags, 5 shiny red bags.
+clear plum bags contain 3 dim turquoise bags, 3 faded magenta bags, 2 dull coral bags.
+muted green bags contain 3 dim crimson bags.
+bright black bags contain 3 pale purple bags, 3 plaid white bags, 1 clear teal bag, 3 pale magenta bags.
+dim gray bags contain 3 dull coral bags, 1 pale turquoise bag, 5 wavy cyan bags, 5 striped lime bags.
+dotted beige bags contain 5 dull aqua bags, 3 dark fuchsia bags, 1 pale violet bag, 4 dim gold bags.
+mirrored lime bags contain 4 plaid tomato bags, 1 pale lavender bag, 5 shiny blue bags, 1 light gray bag.
+bright chartreuse bags contain 1 dotted teal bag, 3 shiny lavender bags.
+vibrant tomato bags contain 1 vibrant coral bag.
+mirrored purple bags contain 4 dark tan bags, 4 faded coral bags.
+pale tomato bags contain 1 dull maroon bag, 2 striped tan bags, 5 muted cyan bags, 2 dark maroon bags.
+vibrant brown bags contain 1 vibrant bronze bag, 2 pale yellow bags, 4 wavy coral bags.
+dim green bags contain 2 striped coral bags.
+muted lavender bags contain 3 clear purple bags, 4 dark red bags, 1 light silver bag, 1 dull blue bag.
+wavy crimson bags contain 5 muted teal bags, 1 drab brown bag, 3 posh brown bags.
+wavy tomato bags contain 4 striped blue bags, 3 mirrored lime bags, 1 shiny gray bag, 1 dark plum bag.
+muted aqua bags contain 3 clear silver bags, 3 bright chartreuse bags, 4 striped teal bags, 2 clear indigo bags.
+posh blue bags contain 2 posh teal bags, 4 dark maroon bags, 2 drab brown bags, 5 faded coral bags.
+vibrant silver bags contain 5 drab yellow bags, 3 faded silver bags, 2 bright silver bags.
+dim chartreuse bags contain 4 pale beige bags.
+shiny gray bags contain 3 dotted magenta bags, 4 plaid crimson bags.
+dim salmon bags contain 4 clear lime bags, 3 muted tomato bags, 2 shiny olive bags.
+clear orange bags contain 4 posh beige bags, 5 dotted gray bags, 5 dotted turquoise bags.
+plaid salmon bags contain 4 bright indigo bags.
+posh beige bags contain 3 pale red bags.
+clear lime bags contain 1 bright gold bag.
+faded magenta bags contain 5 dim salmon bags, 3 dull aqua bags, 5 drab crimson bags.
+drab blue bags contain 5 dark maroon bags, 4 wavy plum bags.
+plaid aqua bags contain 5 mirrored orange bags, 3 dull violet bags, 3 bright salmon bags.
+muted teal bags contain 4 dull red bags, 1 light maroon bag, 4 dark cyan bags.
+posh green bags contain 1 mirrored chartreuse bag, 4 muted chartreuse bags, 5 plaid olive bags, 4 dark salmon bags.
+posh fuchsia bags contain 3 bright cyan bags, 1 bright salmon bag, 4 dim salmon bags, 1 light black bag.
+muted yellow bags contain 2 muted teal bags, 5 pale orange bags.
+clear cyan bags contain 3 clear teal bags, 5 drab aqua bags, 2 drab brown bags.
+wavy salmon bags contain 5 dark fuchsia bags, 2 dull gray bags, 4 pale tan bags.
+dull crimson bags contain 5 faded indigo bags, 2 plaid black bags.
+mirrored white bags contain 2 dotted plum bags, 2 dark coral bags, 3 faded gray bags.
+striped violet bags contain 4 mirrored tan bags.
+striped tan bags contain 2 posh coral bags.
+striped tomato bags contain 1 muted teal bag, 1 faded tan bag.
+faded aqua bags contain 5 faded red bags, 2 mirrored coral bags, 5 light red bags, 2 mirrored purple bags.
+drab olive bags contain 2 drab gold bags.
+bright lavender bags contain 1 dark salmon bag, 1 striped olive bag.
+plaid green bags contain 2 bright gold bags.
+dim purple bags contain 1 plaid yellow bag, 3 muted plum bags, 2 vibrant magenta bags.
+faded violet bags contain 3 mirrored violet bags.
+posh tomato bags contain 1 dark indigo bag, 2 pale yellow bags, 5 dull orange bags.
+dim silver bags contain 1 dotted white bag, 5 faded white bags.
+dotted red bags contain 2 dull yellow bags, 4 dim lavender bags, 1 light gold bag.
+bright indigo bags contain 5 pale gray bags, 3 posh white bags.
+faded fuchsia bags contain 4 muted green bags, 3 posh magenta bags.
+wavy silver bags contain 1 dotted violet bag, 3 drab tomato bags, 4 dark fuchsia bags.
+dim white bags contain 2 bright magenta bags.
+pale beige bags contain 5 dim orange bags, 5 vibrant red bags.
+vibrant orange bags contain 4 dull violet bags, 2 mirrored salmon bags, 1 drab lavender bag.
+clear fuchsia bags contain 1 mirrored olive bag, 4 mirrored chartreuse bags, 1 posh beige bag.
+vibrant indigo bags contain 5 dim lavender bags, 4 drab blue bags, 1 muted beige bag.
+dim brown bags contain 2 posh brown bags.
+plaid beige bags contain 1 dark tan bag, 5 clear teal bags, 2 light gray bags, 4 wavy lime bags.
+bright crimson bags contain 4 drab chartreuse bags, 4 vibrant blue bags, 5 mirrored lime bags, 2 muted plum bags.
+shiny purple bags contain 1 muted crimson bag.
+wavy bronze bags contain 1 dim brown bag, 3 light salmon bags, 1 muted teal bag, 3 plaid olive bags.
+faded bronze bags contain 2 striped blue bags, 2 posh white bags, 2 posh orange bags.
+dark orange bags contain 2 vibrant aqua bags, 5 dark maroon bags, 1 mirrored aqua bag.
+drab green bags contain 2 faded aqua bags, 5 posh crimson bags.
+clear white bags contain 3 plaid black bags, 2 posh white bags, 5 posh lavender bags, 1 dull purple bag.
+wavy black bags contain 4 bright magenta bags.
+posh crimson bags contain 3 dark yellow bags, 1 mirrored purple bag, 2 dark maroon bags, 5 shiny olive bags.
+dotted gray bags contain 4 posh maroon bags, 2 mirrored chartreuse bags, 5 wavy fuchsia bags.
+vibrant lavender bags contain 2 plaid coral bags, 4 posh brown bags, 4 dim tan bags.
+drab violet bags contain 4 muted gold bags.
+striped maroon bags contain 4 dotted lavender bags, 2 dark fuchsia bags, 3 bright olive bags.
+plaid white bags contain 2 wavy olive bags, 2 pale blue bags, 4 pale aqua bags.
+pale gold bags contain 4 bright teal bags, 2 posh bronze bags, 3 shiny maroon bags, 1 pale brown bag.
+vibrant olive bags contain 3 plaid green bags, 2 light maroon bags, 3 dotted salmon bags, 4 faded tomato bags.
+dotted maroon bags contain no other bags.
+light blue bags contain 2 dim violet bags, 1 vibrant beige bag.
+mirrored tan bags contain 4 drab brown bags, 1 striped orange bag, 5 light maroon bags, 2 dotted maroon bags.
+dark beige bags contain 1 drab maroon bag.
+light silver bags contain 1 shiny chartreuse bag, 2 dim turquoise bags.
+dull green bags contain 2 striped chartreuse bags, 2 mirrored gold bags, 4 dim fuchsia bags.
+faded silver bags contain 3 drab violet bags.
+bright beige bags contain 5 bright teal bags, 5 mirrored violet bags.
+striped gold bags contain 2 wavy beige bags, 4 dim black bags.
+wavy fuchsia bags contain 4 posh green bags.
+shiny blue bags contain 3 posh maroon bags.
+mirrored indigo bags contain 3 striped cyan bags, 2 vibrant blue bags, 5 wavy violet bags.
+dim tomato bags contain 4 dull orange bags, 5 shiny green bags, 1 plaid olive bag.
+plaid violet bags contain 1 dull violet bag, 4 plaid fuchsia bags.
+dark white bags contain 3 drab orange bags.
+drab indigo bags contain 3 dark red bags, 2 plaid tomato bags, 5 clear white bags.
+shiny beige bags contain 2 posh tomato bags.
+striped indigo bags contain 5 clear lavender bags, 5 dotted indigo bags, 1 muted cyan bag, 5 dark olive bags.
+drab cyan bags contain 1 drab orange bag, 4 posh gold bags.
+light red bags contain 4 dark indigo bags, 1 vibrant violet bag, 4 shiny magenta bags.
+muted gold bags contain 3 light maroon bags, 1 striped orange bag, 4 pale maroon bags.
+clear indigo bags contain 4 faded green bags, 3 clear crimson bags, 2 vibrant cyan bags.
+faded tan bags contain 5 bright gold bags.
+shiny salmon bags contain 1 bright lavender bag, 1 posh blue bag, 4 shiny coral bags.
+dull turquoise bags contain 5 drab yellow bags, 5 dotted plum bags, 5 plaid magenta bags.
+posh lime bags contain 4 wavy tan bags, 4 shiny tomato bags, 4 dim violet bags, 5 bright tan bags.
+pale green bags contain 1 wavy gray bag, 2 faded lavender bags, 1 vibrant yellow bag.
+mirrored gold bags contain 2 light gray bags, 5 wavy tan bags.
+mirrored green bags contain 1 faded violet bag.
+dark red bags contain 3 faded bronze bags, 4 dark green bags, 4 wavy crimson bags.
+bright tomato bags contain 4 faded bronze bags.
+mirrored crimson bags contain 5 faded red bags, 1 drab crimson bag.
+faded orange bags contain 2 muted teal bags, 5 pale maroon bags, 1 dark yellow bag.
+striped silver bags contain 4 mirrored lime bags, 1 dull tan bag, 1 pale fuchsia bag, 1 wavy purple bag.
+wavy aqua bags contain 4 vibrant aqua bags, 4 shiny fuchsia bags, 4 dotted turquoise bags, 4 striped olive bags.
+striped lavender bags contain 5 shiny lavender bags, 3 pale lime bags.
+vibrant white bags contain 2 dim bronze bags, 2 light red bags, 5 shiny gold bags.
+vibrant yellow bags contain 1 shiny turquoise bag, 5 dull beige bags, 4 dark gold bags, 5 dull tomato bags.
+striped green bags contain 5 striped tomato bags.
+muted silver bags contain 5 striped maroon bags, 5 light salmon bags, 4 clear maroon bags.
+light plum bags contain 5 mirrored blue bags, 2 vibrant coral bags, 5 dim brown bags, 2 striped yellow bags.
+posh yellow bags contain 1 mirrored salmon bag, 5 light plum bags.
+plaid magenta bags contain 3 dull plum bags, 2 mirrored tan bags.
+plaid tan bags contain 4 light turquoise bags, 4 faded purple bags, 3 mirrored crimson bags.
+shiny black bags contain 3 striped violet bags, 1 dim cyan bag, 2 dim white bags.
+wavy brown bags contain 2 plaid lavender bags.
+vibrant gold bags contain 1 clear tomato bag, 1 wavy olive bag, 2 faded magenta bags.
+clear brown bags contain 2 dim blue bags.
+dim fuchsia bags contain 2 bright gold bags, 5 wavy purple bags, 3 posh orange bags.
+muted turquoise bags contain 1 light turquoise bag, 3 vibrant plum bags, 5 posh maroon bags, 1 muted maroon bag.
+shiny coral bags contain 3 striped yellow bags.
+dotted coral bags contain 1 dark orange bag, 4 striped violet bags.
+shiny bronze bags contain 5 mirrored yellow bags, 4 light violet bags, 4 light crimson bags.
+dull cyan bags contain 2 dim cyan bags, 5 pale red bags.
+bright tan bags contain 4 pale gray bags, 4 posh brown bags, 3 shiny fuchsia bags.
+pale purple bags contain 5 wavy cyan bags, 5 dark salmon bags, 2 dark indigo bags, 1 plaid black bag.
+shiny gold bags contain 2 pale maroon bags, 5 pale purple bags, 4 posh brown bags, 1 dotted turquoise bag.
+dim tan bags contain 4 dark violet bags, 3 shiny blue bags.
+wavy green bags contain 3 plaid gray bags.
+pale orange bags contain 3 dim lime bags, 2 dark coral bags.
+faded maroon bags contain 5 clear black bags, 3 light lavender bags, 3 light black bags, 2 muted orange bags.
+drab teal bags contain 2 dotted crimson bags, 3 dim teal bags, 5 pale turquoise bags, 4 dark plum bags.
+bright orange bags contain 3 pale maroon bags, 1 pale bronze bag, 3 dotted maroon bags.
+posh coral bags contain 3 dim gold bags, 1 bright indigo bag, 3 clear black bags.
+mirrored bronze bags contain 5 dull violet bags, 3 vibrant red bags.
+pale lavender bags contain 2 pale purple bags, 1 pale red bag, 4 vibrant blue bags, 3 muted chartreuse bags.
+wavy lavender bags contain 3 drab chartreuse bags, 1 posh teal bag.
+pale blue bags contain 1 dark tan bag, 4 faded violet bags, 3 dim coral bags.
+striped yellow bags contain 2 pale red bags.
+shiny aqua bags contain 3 pale magenta bags.
+faded olive bags contain 1 vibrant white bag, 4 muted cyan bags.
+dark chartreuse bags contain 3 dim magenta bags, 3 dull plum bags, 2 pale lime bags.
+dim lime bags contain 3 muted white bags, 4 striped blue bags.
+wavy cyan bags contain 4 light maroon bags.
+light bronze bags contain 1 dull lime bag.
+muted beige bags contain 4 wavy blue bags, 2 dotted violet bags, 4 shiny orange bags.
+dim coral bags contain 4 wavy crimson bags, 3 mirrored tan bags, 2 wavy cyan bags, 5 light maroon bags.
+dark green bags contain 2 striped gray bags, 3 pale lavender bags, 1 striped lime bag.
+pale cyan bags contain 2 vibrant green bags, 1 mirrored lime bag, 5 vibrant chartreuse bags, 1 shiny lime bag.
+shiny crimson bags contain 4 dull aqua bags, 1 pale turquoise bag.
+pale black bags contain 3 vibrant olive bags, 2 dull aqua bags, 1 drab turquoise bag.
+striped crimson bags contain 4 dotted lavender bags, 2 clear orange bags.
+clear maroon bags contain 2 muted bronze bags, 3 vibrant olive bags, 1 striped lavender bag.
+dim olive bags contain 1 wavy lavender bag, 1 dotted salmon bag, 1 pale silver bag, 5 vibrant coral bags.
+dotted indigo bags contain 3 dark salmon bags, 2 shiny turquoise bags, 4 plaid coral bags.
+plaid orange bags contain 2 mirrored plum bags, 5 faded lime bags, 4 dotted brown bags, 2 pale tan bags.
+light maroon bags contain no other bags.
+light violet bags contain 5 clear yellow bags, 4 muted chartreuse bags.
+light lavender bags contain 3 striped olive bags, 1 posh black bag.
+muted lime bags contain 2 muted turquoise bags, 3 mirrored yellow bags, 5 clear gray bags.
+faded black bags contain 1 bright crimson bag, 1 dotted beige bag, 2 shiny magenta bags.
+wavy blue bags contain 5 vibrant plum bags, 5 shiny fuchsia bags, 2 posh orange bags, 1 wavy purple bag.
+dark turquoise bags contain 5 shiny tan bags, 2 dull silver bags, 2 muted lime bags, 2 mirrored tan bags.
+mirrored teal bags contain 4 pale brown bags, 5 drab lime bags, 5 striped beige bags.
+vibrant gray bags contain 5 bright yellow bags, 1 vibrant teal bag.
+clear purple bags contain 5 bright silver bags, 1 bright teal bag, 1 wavy lime bag, 4 striped blue bags.
+striped lime bags contain 1 mirrored violet bag, 3 dim cyan bags, 3 vibrant turquoise bags, 2 muted white bags.
+mirrored lavender bags contain 2 faded yellow bags.
+posh maroon bags contain 1 dotted salmon bag, 5 drab violet bags, 5 striped lime bags, 3 dotted olive bags.
+faded yellow bags contain 1 dull plum bag, 5 dim fuchsia bags.
+dull aqua bags contain 2 pale maroon bags.
+dark tan bags contain 4 dark salmon bags.
+dim maroon bags contain 4 posh aqua bags, 3 striped yellow bags.
+faded purple bags contain 5 clear teal bags, 2 dark olive bags.
+clear tomato bags contain 2 pale maroon bags.
+dull gray bags contain 5 light brown bags, 3 bright gold bags, 4 faded white bags, 3 vibrant coral bags.
+dull maroon bags contain 4 clear indigo bags, 5 shiny magenta bags, 3 drab tomato bags, 4 dim violet bags.
+pale coral bags contain 2 pale bronze bags, 2 wavy salmon bags.
+drab silver bags contain 3 dark coral bags, 5 shiny violet bags, 5 faded indigo bags.
+plaid black bags contain 1 dull red bag.
+plaid silver bags contain 4 clear cyan bags.
+dotted blue bags contain 2 plaid beige bags, 4 posh cyan bags, 4 shiny gray bags.
+dotted magenta bags contain 1 drab orange bag, 5 wavy aqua bags, 2 wavy lavender bags.
+clear aqua bags contain 4 striped magenta bags, 4 muted chartreuse bags.
+pale red bags contain no other bags.
+bright turquoise bags contain 1 wavy purple bag, 3 vibrant turquoise bags, 2 dark brown bags.
+vibrant magenta bags contain 5 drab brown bags, 2 striped olive bags, 5 light plum bags.
+dull brown bags contain 4 drab teal bags, 4 bright gold bags, 4 dim blue bags, 3 dotted teal bags.
+dotted olive bags contain 5 striped orange bags, 1 wavy cyan bag, 3 wavy crimson bags.
+bright teal bags contain 3 dim coral bags, 1 dark cyan bag, 4 bright indigo bags.
+shiny chartreuse bags contain 1 drab brown bag.
+bright lime bags contain 2 pale silver bags.
+vibrant crimson bags contain 4 shiny white bags, 4 pale black bags, 5 clear cyan bags, 1 bright tan bag.
+muted brown bags contain 5 drab purple bags.
+dotted aqua bags contain 1 dim gray bag, 1 dark indigo bag, 3 posh tan bags, 5 dim lime bags.
+muted tomato bags contain 1 faded orange bag, 3 vibrant aqua bags.
+bright cyan bags contain 4 dotted coral bags, 2 dull lime bags, 5 clear maroon bags.
+posh violet bags contain 1 light magenta bag, 4 pale maroon bags, 1 dark teal bag.
+wavy turquoise bags contain 1 shiny gray bag, 4 drab tan bags, 3 pale lavender bags.
+dark magenta bags contain 2 dull bronze bags.
+drab gray bags contain 4 dotted turquoise bags, 5 light aqua bags.
+dull coral bags contain 2 plaid black bags, 2 striped cyan bags, 3 faded bronze bags, 5 plaid crimson bags.
+vibrant chartreuse bags contain 5 pale turquoise bags.
+bright purple bags contain 5 vibrant salmon bags, 1 posh green bag, 4 vibrant beige bags.
+mirrored tomato bags contain 4 wavy beige bags, 5 striped tan bags, 2 pale aqua bags.
+shiny violet bags contain 3 shiny tan bags, 3 faded brown bags, 4 shiny green bags, 3 shiny orange bags.
+plaid lavender bags contain 1 light maroon bag.
+faded green bags contain 5 dark cyan bags, 2 clear teal bags, 5 muted olive bags.
+dotted salmon bags contain 3 dotted olive bags, 1 dark cyan bag.
+faded white bags contain 3 drab brown bags.
+striped black bags contain 2 dark green bags, 5 pale bronze bags, 2 plaid olive bags.
+dotted brown bags contain 1 drab salmon bag.
+dark crimson bags contain 1 vibrant teal bag, 2 dim gray bags, 1 posh orange bag, 3 faded tan bags.
+pale teal bags contain 5 dim violet bags.
+striped cyan bags contain 3 pale purple bags, 4 dull red bags, 1 dark indigo bag, 3 dark yellow bags.
+mirrored coral bags contain 2 shiny olive bags.
+shiny maroon bags contain 5 vibrant coral bags, 3 plaid maroon bags, 1 striped turquoise bag, 2 wavy violet bags.
+dull indigo bags contain 2 plaid magenta bags, 1 bright chartreuse bag.
+drab magenta bags contain 4 striped olive bags, 3 posh white bags.
+clear tan bags contain 4 light gold bags, 4 muted gold bags.
+dark gray bags contain 4 plaid blue bags, 5 drab brown bags, 3 pale gray bags, 3 mirrored violet bags.
+wavy teal bags contain 4 drab aqua bags, 3 pale salmon bags.
+dotted tan bags contain 2 pale bronze bags, 3 faded orange bags.
+bright brown bags contain 3 bright blue bags.
+clear blue bags contain 5 shiny crimson bags, 1 dark cyan bag.
+clear yellow bags contain 1 muted gold bag, 1 posh orange bag, 1 dull purple bag, 4 dark indigo bags.
+pale aqua bags contain 3 dim coral bags, 2 mirrored aqua bags.
+dull olive bags contain 1 dull yellow bag.
+muted violet bags contain 3 shiny tan bags.
+striped aqua bags contain 2 vibrant green bags, 2 faded coral bags, 2 dark cyan bags, 4 wavy beige bags.
+pale fuchsia bags contain 5 dull green bags, 2 dotted aqua bags.
+shiny brown bags contain 4 dim black bags.
+plaid coral bags contain 3 faded bronze bags, 2 pale lavender bags, 3 dotted tan bags, 2 wavy lavender bags.
+posh magenta bags contain 2 clear red bags, 4 dim brown bags.
+wavy purple bags contain 4 dim magenta bags.
+plaid fuchsia bags contain 2 striped olive bags, 3 light gray bags.
+dim violet bags contain 3 dark brown bags, 4 muted plum bags.
+light turquoise bags contain 5 clear brown bags, 5 muted chartreuse bags.
+dull white bags contain 4 wavy salmon bags, 3 dotted crimson bags, 1 dark coral bag, 1 pale chartreuse bag.
+light brown bags contain 2 plaid black bags, 3 light red bags.
+dotted purple bags contain 1 posh crimson bag, 4 vibrant red bags, 2 wavy beige bags.
+striped orange bags contain no other bags.
+clear green bags contain 3 light plum bags, 1 wavy lavender bag, 1 shiny olive bag.
+bright red bags contain 5 dotted turquoise bags, 3 dim aqua bags, 2 posh orange bags.
+dark bronze bags contain 2 pale yellow bags, 1 striped brown bag, 3 striped chartreuse bags.
+muted cyan bags contain 3 muted olive bags, 2 shiny red bags, 1 vibrant lavender bag, 5 drab gold bags.
+light coral bags contain 3 shiny gray bags, 5 dull bronze bags, 5 muted fuchsia bags, 5 clear magenta bags.
+shiny olive bags contain 4 dull cyan bags, 5 dark gray bags.
+drab orange bags contain no other bags.
+striped salmon bags contain 5 drab salmon bags, 5 pale plum bags.
+plaid cyan bags contain 2 bright blue bags, 1 mirrored gray bag, 5 faded violet bags.
+plaid teal bags contain 3 pale maroon bags, 1 clear teal bag.
+faded cyan bags contain 1 dim bronze bag, 3 light olive bags, 1 muted beige bag, 1 wavy teal bag.
+clear magenta bags contain 5 striped orange bags.
+dull black bags contain 1 shiny purple bag, 1 mirrored red bag, 4 dotted fuchsia bags, 3 vibrant crimson bags.
+mirrored blue bags contain 3 light brown bags.
+mirrored black bags contain 3 dim coral bags, 3 plaid purple bags.
+dim black bags contain 4 dim blue bags.
+pale plum bags contain 4 muted coral bags, 2 light purple bags.
+dark salmon bags contain 2 plaid blue bags, 4 vibrant turquoise bags, 3 posh white bags.
+striped red bags contain 1 dim plum bag.
+striped beige bags contain 1 dark tomato bag.
+clear beige bags contain 2 posh orange bags, 4 muted coral bags.
+bright blue bags contain 4 faded gold bags, 4 faded indigo bags.
+light purple bags contain 4 muted violet bags, 1 pale red bag.
+dim indigo bags contain 3 dim silver bags, 2 faded violet bags.
+dotted green bags contain 5 dotted chartreuse bags, 1 pale black bag.
+pale yellow bags contain 3 plaid tomato bags.
+drab tan bags contain 3 dim plum bags, 2 dark fuchsia bags.
+bright white bags contain 3 muted bronze bags.
+shiny turquoise bags contain 4 drab brown bags.
+pale maroon bags contain no other bags.
+faded indigo bags contain 1 faded tomato bag, 2 light red bags, 5 vibrant bronze bags.
+dotted black bags contain 1 clear brown bag, 5 mirrored olive bags, 4 dim brown bags, 2 drab red bags.
+light chartreuse bags contain 5 muted black bags.
+posh orange bags contain 4 light maroon bags, 1 muted white bag.
+vibrant turquoise bags contain 1 dark maroon bag, 1 shiny magenta bag, 2 dotted maroon bags.
+striped fuchsia bags contain 5 clear blue bags, 5 pale black bags, 1 mirrored maroon bag, 2 dotted maroon bags.
+dark violet bags contain 5 clear white bags.
+pale salmon bags contain 1 vibrant violet bag, 3 plaid olive bags.
+pale violet bags contain 4 shiny chartreuse bags, 5 dark salmon bags, 3 bright indigo bags, 4 dark orange bags.
+faded teal bags contain 2 dark gray bags, 2 posh black bags, 3 plaid maroon bags.
+drab yellow bags contain 4 mirrored blue bags, 4 mirrored violet bags, 3 dim salmon bags, 1 clear yellow bag.
+wavy indigo bags contain 2 shiny olive bags, 5 plaid aqua bags.
+shiny tan bags contain 2 wavy purple bags, 1 dotted aqua bag, 1 light violet bag.
+dull lime bags contain 1 dull coral bag.
+clear turquoise bags contain 1 vibrant fuchsia bag, 5 dull beige bags.
+dark blue bags contain 2 dark violet bags, 2 dotted maroon bags, 4 bright aqua bags, 4 clear black bags.
+drab black bags contain 2 dim gold bags, 1 plaid crimson bag.
+dotted bronze bags contain 5 dim bronze bags.
+mirrored cyan bags contain 3 muted salmon bags.
+light gray bags contain 1 faded gold bag, 4 faded coral bags, 4 faded silver bags, 2 faded tomato bags.
+vibrant blue bags contain 2 muted gold bags.
+dark maroon bags contain 3 mirrored violet bags, 3 muted gold bags, 3 drab brown bags, 4 plaid black bags.
+pale chartreuse bags contain 5 dotted teal bags, 4 bright gold bags.
+mirrored yellow bags contain 4 dim cyan bags.
+shiny plum bags contain 3 dull green bags, 3 vibrant olive bags, 3 dim tan bags.
+mirrored chartreuse bags contain 1 dark tan bag, 5 drab aqua bags.
+dark gold bags contain 4 drab yellow bags, 4 pale bronze bags.
+vibrant lime bags contain 3 dull salmon bags.
+dim blue bags contain 2 dull cyan bags, 2 dull purple bags, 1 dark indigo bag.
+dark brown bags contain 5 dull chartreuse bags.
+light tomato bags contain 5 posh teal bags, 3 wavy yellow bags, 5 bright olive bags, 4 pale brown bags.
+bright green bags contain 2 bright teal bags.
+shiny silver bags contain 2 mirrored indigo bags, 4 faded silver bags, 2 dark lavender bags.
+bright olive bags contain 5 drab turquoise bags.
+striped teal bags contain 1 vibrant tan bag.
+dotted yellow bags contain 1 clear tomato bag, 5 muted orange bags, 3 striped turquoise bags, 3 dim lime bags.
+posh white bags contain no other bags.
+plaid red bags contain 3 dotted teal bags, 2 light brown bags, 4 vibrant teal bags.
+drab purple bags contain 5 pale purple bags, 1 shiny blue bag, 2 shiny orange bags.
+vibrant maroon bags contain 3 shiny cyan bags, 5 striped lavender bags.
+striped brown bags contain 5 faded salmon bags, 4 clear violet bags, 1 plaid salmon bag, 5 dotted tomato bags.
+muted blue bags contain 1 drab chartreuse bag.
+striped blue bags contain 4 dark cyan bags.
+striped plum bags contain 2 wavy violet bags.
+clear violet bags contain 2 dotted crimson bags, 3 plaid magenta bags.
+clear teal bags contain 2 bright gold bags, 4 plaid black bags.
+dim gold bags contain 5 pale gray bags, 3 drab orange bags, 3 plaid black bags.
+wavy violet bags contain 3 dull beige bags.
+wavy lime bags contain 2 bright lavender bags.
+muted purple bags contain 3 wavy brown bags, 4 muted blue bags.
+shiny indigo bags contain 1 shiny aqua bag, 4 bright aqua bags, 2 clear turquoise bags.
+dim orange bags contain 5 striped lime bags.
+clear bronze bags contain 4 pale black bags, 4 bright olive bags.
+wavy gray bags contain 3 dotted teal bags, 2 striped lavender bags, 2 wavy aqua bags.
+dull tan bags contain 5 vibrant violet bags, 2 muted maroon bags, 5 vibrant plum bags, 3 shiny red bags.
+drab chartreuse bags contain 4 striped gray bags, 4 pale bronze bags, 5 dim aqua bags.
+plaid gray bags contain 1 shiny blue bag, 4 clear brown bags, 4 shiny tan bags, 4 plaid beige bags.
+drab plum bags contain 5 vibrant cyan bags, 3 vibrant aqua bags, 5 dim coral bags, 1 dull orange bag.
+clear gold bags contain 1 drab olive bag, 5 drab orange bags, 4 shiny tan bags.
+dull tomato bags contain 3 bright teal bags, 1 muted chartreuse bag.
+bright silver bags contain 1 dull chartreuse bag, 5 bright gold bags, 4 faded silver bags.
+clear black bags contain 5 dull orange bags, 3 dim black bags, 1 posh beige bag.
+striped olive bags contain 2 pale maroon bags.
+light fuchsia bags contain 5 pale silver bags, 4 dark olive bags, 1 clear magenta bag.
+posh indigo bags contain 2 wavy purple bags, 3 striped beige bags, 4 vibrant white bags.
+dark aqua bags contain 5 drab tomato bags, 4 faded red bags, 4 light magenta bags, 4 striped tomato bags.
+plaid olive bags contain 2 posh brown bags.
+wavy plum bags contain 3 shiny blue bags, 4 dark lavender bags, 5 pale violet bags.
+vibrant teal bags contain 4 dull purple bags, 4 dull plum bags.
+dotted gold bags contain 3 wavy maroon bags.
+drab brown bags contain no other bags.
+dull teal bags contain 5 wavy beige bags, 1 muted tomato bag, 1 drab aqua bag.
+mirrored plum bags contain 4 muted chartreuse bags, 5 dull orange bags, 3 clear black bags.
+wavy beige bags contain 4 pale violet bags, 5 dim tan bags, 3 pale fuchsia bags, 2 wavy tan bags.
+plaid lime bags contain 3 pale crimson bags.
+plaid brown bags contain 2 dull green bags.
+light black bags contain 1 faded gold bag, 1 bright tan bag.
+dim cyan bags contain 2 clear yellow bags, 3 plaid blue bags, 1 dull purple bag.
+drab coral bags contain 1 bright gray bag, 1 muted magenta bag, 5 mirrored lime bags, 1 mirrored olive bag.
+bright coral bags contain 3 plaid blue bags.
+mirrored silver bags contain 5 clear white bags.
+plaid tomato bags contain 5 dull red bags, 3 shiny green bags, 5 drab fuchsia bags, 3 dull tomato bags.
+faded plum bags contain 5 dark violet bags, 3 dim brown bags.
+light white bags contain 5 dotted teal bags, 2 dim tan bags.
+dull bronze bags contain 3 vibrant turquoise bags.
+vibrant coral bags contain 3 faded bronze bags.
+posh silver bags contain 5 wavy olive bags, 3 dotted red bags, 3 faded violet bags.
+dim yellow bags contain 4 pale tomato bags, 4 dim tan bags, 3 vibrant gold bags, 2 bright gold bags.
+bright salmon bags contain 5 shiny orange bags, 2 dark yellow bags, 5 muted gold bags, 4 dark fuchsia bags.
+light yellow bags contain 3 clear cyan bags.
+dim red bags contain 3 clear lavender bags, 1 muted bronze bag, 4 vibrant salmon bags.
+dark silver bags contain 1 dull brown bag, 1 wavy lavender bag, 2 shiny crimson bags, 1 clear tan bag.
+dull fuchsia bags contain 5 striped cyan bags, 4 mirrored violet bags.
+drab gold bags contain 5 posh lavender bags, 4 mirrored olive bags, 2 dark tan bags, 3 dotted olive bags.
+muted gray bags contain 1 striped magenta bag, 2 dull tomato bags, 5 plaid olive bags, 1 faded gray bag.
+bright bronze bags contain 1 clear silver bag, 4 dim lime bags.
+dark cyan bags contain 5 dark maroon bags, 3 dull red bags, 1 bright gold bag.
+dark plum bags contain 1 vibrant turquoise bag.
+wavy maroon bags contain 5 shiny gold bags, 1 drab black bag.
+light crimson bags contain 2 light plum bags, 3 plaid purple bags.
+wavy chartreuse bags contain 2 pale gray bags, 5 dim purple bags, 2 drab turquoise bags.
+plaid yellow bags contain 5 muted tan bags, 2 wavy cyan bags, 3 light gold bags, 1 dim gold bag.
+mirrored violet bags contain no other bags.
+wavy yellow bags contain 2 dim aqua bags, 1 dark fuchsia bag, 5 faded coral bags, 1 faded silver bag.
+plaid bronze bags contain 1 striped bronze bag.
+vibrant green bags contain 3 striped chartreuse bags, 3 pale lavender bags, 4 dotted lime bags, 4 plaid lavender bags.
+muted crimson bags contain 3 dim blue bags, 1 dull lime bag, 3 plaid indigo bags, 1 pale plum bag.
+posh cyan bags contain 5 drab brown bags, 5 faded blue bags.
+vibrant black bags contain 3 pale silver bags.
+light aqua bags contain 2 faded crimson bags, 3 dark bronze bags, 1 dim orange bag.
+mirrored red bags contain 3 light violet bags.
+dark lime bags contain 1 striped turquoise bag.
+mirrored olive bags contain 1 faded bronze bag, 1 drab aqua bag, 1 dark indigo bag, 3 posh white bags.
+striped chartreuse bags contain 2 mirrored gold bags.
+dotted lime bags contain 1 vibrant turquoise bag, 2 dotted turquoise bags, 5 dull red bags.
+vibrant bronze bags contain 1 posh green bag, 3 posh tan bags, 5 light salmon bags.
+dark teal bags contain 4 shiny lavender bags, 5 dull orange bags.
+shiny green bags contain 2 bright lavender bags, 3 shiny olive bags, 4 mirrored violet bags, 5 posh white bags.
+light magenta bags contain 2 pale maroon bags.
+pale magenta bags contain 5 dull aqua bags.
+dull plum bags contain 2 vibrant violet bags, 5 pale red bags, 2 wavy fuchsia bags.
+muted olive bags contain 5 bright teal bags.
+vibrant fuchsia bags contain 3 posh brown bags.
+dark olive bags contain 5 dim coral bags, 4 pale red bags, 5 drab aqua bags.
+posh purple bags contain 2 bright red bags, 4 pale coral bags, 1 dotted bronze bag.
+dark lavender bags contain 2 striped blue bags, 5 posh blue bags, 2 plaid green bags.
--- a/day7/main.hs
+++ b/day7/main.hs
@ -0,0 +1,154 @@
+#! /usr/bin/env -S"ANSWER=42" nix-shell
+#! nix-shell -p ghcid
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [attoparsec multiset containers pretty-simple])"
+#! nix-shell -i "ghcid -c 'ghci -Wall' -T main"
+
+{-# LANGUAGE OverloadedStrings #-}
+
+import Control.Applicative
+import Control.Monad.Zip
+import Data.Attoparsec.Text (Parser, parseOnly)
+import Data.Bool (bool)
+import Data.Map (Map)
+import Data.Monoid (Sum(..))
+import Data.MultiSet (MultiSet)
+import Data.Tree (Tree)
+import Text.Pretty.Simple
+-- import Debug.Trace (trace)
+import qualified Data.Attoparsec.Text as A
+import qualified Data.Map.Strict as M
+import qualified Data.MultiSet as B
+import qualified Data.Text as Text
+import qualified Data.Tree as T
+
+exampleData :: [String]
+exampleData =
+  [ "light red bags contain 1 bright white bag, 2 muted yellow bags."
+  , "dark orange bags contain 3 bright white bags, 4 muted yellow bags."
+  , "bright white bags contain 1 shiny gold bag."
+  , "muted yellow bags contain 2 shiny gold bags, 9 faded blue bags."
+  , "shiny gold bags contain 1 dark olive bag, 2 vibrant plum bags."
+  , "dark olive bags contain 3 faded blue bags, 4 dotted black bags."
+  , "vibrant plum bags contain 5 faded blue bags, 6 dotted black bags."
+  , "faded blue bags contain no other bags."
+  , "dotted black bags contain no other bags."
+  ]
+
+exampleData2 :: [String]
+exampleData2 =
+  [ "shiny gold bags contain 2 dark red bags."
+  , "dark red bags contain 2 dark orange bags."
+  , "dark orange bags contain 2 dark yellow bags."
+  , "dark yellow bags contain 2 dark green bags."
+  , "dark green bags contain 2 dark blue bags."
+  , "dark blue bags contain 2 dark violet bags."
+  , "dark violet bags contain no other bags."
+  ]
+
+
+data Color = Color String String
+  deriving (Show, Ord, Eq)
+
+-- An efficient implementation of multisets, also sometimes called bags.
+type Bag = MultiSet Color
+
+parseFullColor :: Parser Color
+parseFullColor = do
+  adjective <- A.many' A.letter
+  A.skipSpace
+  colorName <- A.many' A.letter
+  A.skipSpace
+  _ <- ("bags" <|> "bag")
+  pure $ Color adjective colorName
+
+parseBag' :: Parser Bag
+parseBag' = do
+  i <- A.decimal
+  A.skipSpace
+  c <- parseFullColor
+  pure $ B.insertMany c i B.empty
+
+parseNoBag :: Parser Bag
+parseNoBag = do
+  _ <- "no other bags"
+  pure $ B.empty
+
+parseBag :: Parser Bag
+parseBag = parseNoBag <|> parseBag'
+
+type Rules = Map Color Bag
+
+parseRule :: Parser Rules
+parseRule = do
+  k <- parseFullColor
+  A.skipSpace
+  _ <- "contain"
+  A.skipSpace
+  vx <- parseBag `A.sepBy` (", ")
+  _ <- "."
+  let v = B.unions vx
+  pure $ M.insert k v M.empty
+
+
+eitherToMaybe :: Either b a -> Maybe a
+eitherToMaybe (Right v) = Just v
+eitherToMaybe (Left _) = Nothing
+
+parseStrs :: [String] -> Maybe Rules
+parseStrs s = M.unions <$> parse s
+ where
+  parse = eitherToMaybe
+        . sequence
+        . map (parseOnly (parseRule <* A.endOfInput) . Text.pack)
+
+mkTree :: (Color,Int) -> Rules -> Tree (Color, Int)
+mkTree color rules = T.unfoldTree mkNode color
+  where
+    mkNode :: (Color, Int) -> ((Color, Int), [(Color, Int)])
+    mkNode n@(c,_) = (n, concat $ B.toOccurList <$> M.lookup c rules)
+
+mkSimpleTree :: Color -> Rules -> Tree Color
+mkSimpleTree color rules = T.unfoldTree mkNode color
+  where
+    mkNode :: Color -> (Color, [Color])
+    mkNode c = (c, fmap fst <$> concat $ B.toOccurList <$> M.lookup c rules)
+
+solvePart1 :: Color -> [String] -> Maybe Int
+solvePart1 color strs = do
+  rules <- parseStrs strs
+  let trees = map (\c -> mkSimpleTree c rules) (filter (/= color) $ M.keys rules)
+  let containColor = map (elem color) trees
+  pure $ getSum $ foldMap (Sum . bool 0 1) containColor
+  -- ^^ complicated exp for: pure $ length $ filter (== True) containColor
+
+updateTree :: Tree Int -> Tree Int
+updateTree t@(T.Node _ []) = t
+updateTree (T.Node v vx) = T.Node v (fmap ((fmap ((*) v)) . updateTree) vx)
+
+solvePart2 :: Color -> [String] -> Maybe ( Sum Int )
+solvePart2 color strs = do
+  rules <- parseStrs strs
+  let tree = mkTree (color,1) rules
+  pure $ foldMap Sum $ (updateTree . snd . munzip) tree
+
+main :: IO ()
+main = do
+  input <- lines <$> readFile "day7/input"
+  putStrLn ":: Day 7 - Part 1"
+  print $ exampleData
+  putStrLn ":: Tests"
+  print $ parseOnly (parseFullColor <* A.endOfInput) "light red bag"
+  print $ parseOnly (parseBag       <* A.endOfInput) "2 muted blue bags"
+  print $ parseOnly (parseBag       <* A.endOfInput) "3 muted red bages"
+  print $ parseOnly (parseRule      <* A.endOfInput) "dark orange bags contain 3 bright white bags, 4 muted yellow bags."
+  putStrLn ":: Parsing test data"
+  print $ parseStrs exampleData
+  putStrLn ":: Building tree"
+  pPrint $ mkTree (Color "shiny" "gold", 1) <$> (parseStrs exampleData)
+  putStrLn ":: Solving Part 1"
+  print $ solvePart1 (Color "shiny" "gold") exampleData
+  print $ solvePart1 (Color "shiny" "gold") input
+  putStrLn ":: Solving Part 2"
+  print $ solvePart2 (Color "shiny" "gold") exampleData
+  print $ solvePart2 (Color "shiny" "gold") exampleData2
+  print $ solvePart2 (Color "shiny" "gold") input
--- a/day8/input
+++ b/day8/input
@ -0,0 +1,643 @@
+acc -15
+jmp +164
+nop +157
+acc -12
+acc -19
+acc +41
+jmp +177
+acc +36
+acc +37
+nop +471
+jmp +433
+acc +24
+acc +13
+acc -12
+jmp +556
+jmp +1
+acc -15
+acc +33
+jmp +299
+jmp +344
+acc -3
+jmp +124
+acc +10
+nop +562
+acc +45
+jmp +386
+acc -3
+jmp +206
+acc -19
+acc +12
+jmp +424
+acc -18
+acc +23
+acc +12
+acc +0
+jmp +311
+nop +327
+jmp +301
+acc +20
+nop +375
+jmp +25
+acc -13
+acc +49
+acc +23
+acc -3
+jmp +346
+acc +2
+acc +3
+jmp +123
+acc -7
+nop +183
+jmp +165
+acc +47
+acc +34
+jmp +1
+jmp +359
+acc +12
+acc +16
+acc -3
+acc +0
+jmp +556
+acc +14
+acc -3
+jmp +559
+jmp +192
+jmp +495
+nop +264
+acc +3
+acc +47
+jmp +187
+acc -18
+jmp +1
+acc -12
+jmp -58
+acc +49
+nop +288
+jmp +145
+acc +46
+jmp +294
+acc +38
+nop +400
+jmp +373
+acc +7
+acc +31
+jmp +492
+acc +40
+acc +5
+acc +11
+jmp +263
+acc +29
+acc +10
+acc +21
+acc +14
+jmp +450
+nop +458
+acc +38
+nop +432
+acc +42
+jmp +191
+jmp +279
+nop +71
+acc -17
+jmp -64
+acc +17
+jmp +1
+acc +29
+jmp +506
+jmp +354
+acc +42
+acc +32
+jmp -40
+jmp +184
+acc +41
+acc -7
+acc +10
+acc +38
+jmp +100
+jmp +104
+jmp +245
+jmp +335
+jmp +20
+acc +3
+jmp +490
+jmp -62
+acc +34
+acc +34
+acc -1
+jmp +6
+acc +5
+acc -9
+acc -19
+jmp +397
+jmp +253
+acc +9
+jmp +270
+acc +8
+acc -16
+acc +32
+acc +48
+jmp +258
+acc +4
+acc +37
+nop +319
+jmp +318
+jmp -4
+acc -5
+jmp +32
+nop -86
+jmp +306
+acc -13
+acc +50
+acc -16
+jmp -53
+acc +31
+jmp +52
+acc -11
+jmp +89
+acc +21
+jmp +126
+acc +44
+acc +49
+nop +177
+jmp +44
+acc +8
+jmp +166
+acc +20
+acc -8
+acc +38
+acc +10
+jmp +311
+jmp +21
+acc -10
+nop +84
+acc -7
+acc +13
+jmp +78
+jmp +1
+jmp +366
+acc -6
+acc -12
+jmp -142
+nop +223
+jmp +42
+acc -6
+nop +227
+nop +193
+acc +23
+jmp +83
+acc -10
+acc +12
+jmp +1
+acc -8
+acc +3
+nop +28
+jmp +301
+acc +23
+jmp -170
+nop -79
+acc +21
+acc +37
+jmp +138
+acc +37
+acc +24
+nop +413
+acc -9
+jmp -179
+acc -1
+acc -10
+nop +261
+acc -19
+jmp +168
+acc -16
+acc +19
+acc +17
+acc +21
+jmp -9
+jmp +46
+acc +4
+nop +398
+acc +28
+jmp +396
+acc +11
+jmp +384
+jmp +375
+acc +25
+acc +30
+acc -11
+jmp +371
+jmp +249
+acc -10
+acc -15
+jmp -7
+jmp +38
+acc +29
+acc +15
+acc +46
+jmp -77
+acc +43
+jmp -83
+jmp -42
+acc +30
+acc +44
+acc +33
+acc +14
+jmp +326
+acc -3
+nop +49
+acc +12
+jmp +63
+acc -13
+acc -19
+acc -17
+jmp +126
+jmp +293
+acc +16
+jmp -185
+acc -12
+jmp -92
+acc -13
+acc +19
+acc -1
+jmp -138
+acc +28
+nop -243
+nop +352
+acc +43
+jmp +249
+acc -5
+acc +36
+jmp -217
+nop +197
+nop -106
+acc +30
+jmp +194
+acc +7
+acc -16
+nop +128
+jmp -239
+jmp -258
+acc +11
+nop -74
+acc +42
+acc +40
+jmp +72
+jmp -207
+nop +337
+nop -240
+nop -169
+jmp -55
+nop +165
+acc +27
+acc +4
+jmp -169
+acc -2
+jmp +69
+acc +0
+jmp -250
+acc +11
+acc +45
+acc +31
+jmp +195
+acc -10
+acc -8
+nop -283
+acc -2
+jmp +63
+acc +17
+acc +12
+acc +0
+nop +243
+jmp +190
+acc +17
+acc -18
+jmp +78
+acc +7
+acc +33
+jmp +244
+nop +29
+acc +20
+nop +150
+acc +29
+jmp -43
+acc +45
+nop -132
+acc +16
+acc +14
+jmp -237
+jmp -199
+acc -4
+jmp +179
+acc +13
+acc +15
+acc +6
+acc +46
+jmp -222
+acc -8
+acc +15
+jmp -26
+acc +38
+jmp +1
+nop +266
+jmp +44
+acc -13
+nop +209
+acc +21
+jmp +201
+acc +8
+acc +18
+jmp +190
+acc +35
+jmp -238
+jmp +69
+acc -11
+nop -182
+jmp -221
+acc -16
+acc -5
+acc +7
+jmp +39
+acc +26
+acc +43
+acc +20
+jmp +92
+acc +22
+jmp +81
+acc +32
+acc -13
+jmp +30
+acc +1
+jmp +201
+acc +4
+jmp -165
+acc -17
+jmp -84
+acc -16
+acc +2
+acc +47
+jmp +54
+jmp -195
+acc +33
+acc -17
+jmp -18
+jmp +256
+acc +1
+jmp -244
+acc +28
+acc +35
+jmp +189
+nop +32
+acc +9
+jmp +24
+acc +21
+acc +14
+acc +17
+jmp -67
+acc +21
+jmp -297
+acc +36
+acc +14
+acc -13
+jmp +115
+acc -2
+acc -13
+jmp -182
+nop +119
+acc -4
+acc +44
+acc -14
+jmp +61
+acc +41
+jmp -13
+nop -116
+jmp -294
+jmp +7
+jmp +17
+acc -14
+acc +42
+acc -6
+acc +24
+jmp +151
+nop -374
+nop -375
+acc +4
+jmp -268
+nop -27
+acc +16
+acc +2
+jmp -206
+jmp -320
+nop -196
+jmp +168
+nop +36
+acc +34
+jmp -402
+acc +36
+acc +38
+acc -11
+nop +17
+jmp -182
+acc +15
+jmp -145
+acc +43
+jmp -79
+jmp -391
+jmp -155
+nop -94
+acc +0
+acc +9
+jmp -441
+acc +3
+acc +6
+acc +50
+nop -334
+jmp +163
+acc +18
+acc -11
+jmp +21
+acc +10
+acc +4
+nop +132
+jmp -348
+acc +18
+nop -1
+acc -4
+nop +148
+jmp +165
+jmp +146
+jmp -460
+jmp -14
+acc +26
+nop -388
+nop -353
+jmp +119
+acc +26
+acc -1
+acc +9
+jmp -285
+acc +37
+jmp -345
+jmp -178
+acc +7
+acc +13
+jmp -39
+acc +29
+nop -200
+acc +50
+acc +24
+jmp -160
+acc +18
+jmp +63
+acc -11
+acc +1
+acc -6
+acc +33
+jmp -90
+acc -3
+acc +11
+acc +45
+jmp -197
+jmp -169
+acc +7
+acc -4
+jmp -281
+acc +48
+nop +19
+nop -25
+nop +9
+jmp -274
+nop -126
+acc +22
+acc -4
+jmp -408
+acc +1
+acc +0
+jmp +98
+acc +25
+acc +12
+acc -19
+jmp -90
+acc +44
+acc +20
+acc +21
+jmp -192
+acc -12
+jmp -70
+nop +3
+acc +17
+jmp -349
+acc +20
+acc -7
+acc +6
+nop -43
+jmp +53
+acc +34
+acc +48
+acc -4
+acc +8
+jmp -126
+acc +23
+acc +25
+jmp -349
+acc -4
+jmp -272
+jmp -129
+nop -366
+jmp -292
+acc +29
+nop -269
+acc +50
+nop -254
+jmp -321
+jmp -23
+acc +11
+nop -425
+nop -150
+acc -9
+jmp -467
+acc +18
+acc +27
+jmp -338
+jmp +1
+acc +21
+acc +27
+acc -11
+jmp -160
+acc +27
+acc +15
+acc +0
+acc +41
+jmp -386
+acc -10
+acc +14
+jmp -217
+nop -484
+acc +47
+jmp -529
+acc -10
+acc +48
+acc +0
+jmp -430
+acc +45
+acc -8
+acc +3
+nop -103
+jmp -387
+acc -16
+acc +39
+jmp +1
+acc +17
+jmp -350
+jmp -328
+acc +30
+acc +28
+jmp -309
+nop -361
+acc +1
+nop -468
+jmp -212
+acc +29
+acc -4
+jmp -249
+acc +45
+acc +30
+acc +40
+acc -17
+jmp -579
+acc +25
+jmp -525
+nop -217
+acc +17
+acc +3
+jmp -142
+nop +18
+jmp -493
+jmp +1
+jmp -495
+jmp -360
+acc +7
+acc +30
+acc -3
+nop -449
+jmp -326
+acc -10
+acc -8
+jmp -371
+acc +22
+acc +48
+acc +6
+acc +18
+jmp -59
+acc +17
+acc +14
+jmp -250
+acc +19
+acc +25
+acc -14
+acc -17
+jmp -517
+acc +29
+acc -4
+acc +9
+acc +17
+jmp +1
--- a/day8/main.hs
+++ b/day8/main.hs
@ -0,0 +1,140 @@
+#! /usr/bin/env -S"ANSWER=42" nix-shell
+#! nix-shell -p ghcid
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [pretty-simple vector containers])"
+#! nix-shell -i "ghcid -c 'ghci' -T main"
+
+{-# OPTIONS_GHC -Wall -Wincomplete-uni-patterns #-}
+{-# OPTIONS_GHC -Wno-unused-top-binds -Wno-unused-local-binds #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+import Text.Pretty.Simple
+-- import Data.List.NonEmpty (NonEmpty(..))
+-- import qualified Data.List.NonEmpty as NE
+import Data.Vector (Vector)
+import Debug.Trace (trace)
+import Data.List (unfoldr, zip4, unzip4)
+import Data.IntMap.Strict (IntMap)
+import qualified Data.Vector as V
+import qualified Data.IntMap.Strict as M
+
+data Op = OpNop !Int
+        | OpJmp !Int
+        | OpAcc !Int
+  deriving (Show, Ord, Eq)
+
+data VMState = VMRun | VMHalt
+  deriving (Show, Ord, Eq)
+
+data VirtualMachine = VM
+  { pgmCounter      :: !Int
+  , pgmAccumulator  :: !Int
+  , pgmInstructions :: Vector Op
+  , vmState         :: VMState
+  }
+  deriving (Show, Ord, Eq)
+
+initialVM :: Vector Op -> VirtualMachine
+initialVM ins = VM 1 0 ins VMRun
+
+stepVM :: VirtualMachine -> Maybe (VirtualMachine, VirtualMachine)
+stepVM current@(VM c a ins VMRun) = Just (current, checkHalt next)
+  where
+    next = go (ins V.! (c-1))
+
+    go (OpNop _)        = VM (c+1) a     ins VMRun
+    go (OpJmp n)        = VM (c+n) a     ins VMRun
+    go (OpAcc n)        = VM (c+1) (a+n) ins VMRun
+
+    checkHalt vm0@(VM c0 a0 _ _) | c0 == lastCount + 1 =
+      trace ("halted, acc="<>show a0) $ vm0 { vmState = VMHalt }
+    checkHalt vm0@(VM _ _ _ _)  | otherwise =
+      vm0
+
+    lastCount = V.length ins
+stepVM (VM _ _ _ VMHalt) = Nothing
+
+exampleData :: [String]
+exampleData =
+  [ "nop +0"
+  , "acc +1"
+  , "jmp +4"
+  , "acc +3"
+  , "jmp -3"
+  , "acc -99"
+  , "acc +1"
+  , "jmp -4"
+  , "acc +6"
+  ]
+
+vmFromInput :: [String] -> VirtualMachine
+vmFromInput input = initialVM (ins input)
+  where
+    ins = V.fromList . map parseOp
+
+parseOp :: String -> Op
+parseOp = go . (\(x,y)-> (x,tail y)) . break (== ' ')
+  where
+    go ("nop",'+':s) = OpNop (read s :: Int)
+    go ("acc",'+':s) = OpAcc (read s :: Int)
+    go ("jmp",'+':s) = OpJmp (read s :: Int)
+    go ("nop",s) = OpNop (read s :: Int)
+    go ("acc",s) = OpAcc (read s :: Int)
+    go ("jmp",s) = OpJmp (read s :: Int)
+    go s@_ = trace (show s) $ undefined
+
+-- Find smallest looping prefix in list of Int, returns associated pgmAccumulator
+solvePart1 :: VirtualMachine -> Int
+solvePart1 vm0 =
+  snd . last $ shortestCycleOn $ (\vm -> (pgmCounter vm, pgmAccumulator vm)) <$> unfoldr stepVM vm0
+
+-- Shortest cycle in [Int]
+shortestCycle :: [Int] -> [Int]
+shortestCycle ix = reverse $ go M.empty ix []
+  where
+    go :: (IntMap ()) -> [Int] -> [Int] -> [Int]
+    go mem (x:_ ) ys | (mem M.!? x) /= Nothing = ys
+    go mem (x:xs) ys | otherwise               = go (M.insert x () mem) xs (x:ys)
+    go _ [] ys                                 = ys
+
+shortestCycleOn :: [(Int,Int)] -> [(Int,Int)]
+shortestCycleOn tx = zip (shortestCycle cx) ax
+  where
+    (cx, ax) = unzip tx
+
+shortestCycleVm :: [VirtualMachine] -> [VirtualMachine]
+shortestCycleVm vx = (\(a,b,c,d) -> VM a b c d) <$> zip4 (shortestCycle cx) ax ins state
+  where
+    (cx, ax, ins, state) = unzip4 $ (\(VM a b c d) -> (a,b,c,d)) <$> vx
+
+-- Try lots of permutations of OpNop -> OpJmp, or OpJmp -> OpNop
+-- until the VirtualMachine halts, and read the value of the accumulator
+solvePart2 :: Vector Op -> Vector VMState
+solvePart2 = fmap (vmState . last . shortestCycleVm . unfoldr stepVM . initialVM) . swapInstructions
+
+swapInstructions :: Vector Op -> Vector (Vector Op)
+swapInstructions ins = V.imap swap ins
+  where
+    swap i (OpNop v) = ins V.// [(i,OpJmp v)]
+    swap i (OpJmp v) = ins V.// [(i,OpNop v)]
+    swap _ (OpAcc _) = ins
+
+main :: IO ()
+main = do
+  putStrLn "Day 8 - Part 1"
+  putStrLn ":: Tests"
+  print exampleData
+  print $ parseOp <$> exampleData
+  putStrLn ":: Solving part 1"
+  pPrint $ solvePart1 (vmFromInput exampleData)
+  input <- lines <$> readFile "day8/input"
+  pPrint $ solvePart1 (vmFromInput input)
+  putStrLn ":: Tests"
+  let miniIns = V.fromList [OpJmp 2, OpNop 0, OpAcc (-8)]
+  pPrint $ length $ swapInstructions $ miniIns
+  let miniVM = initialVM $ V.fromList [ OpNop 0 ]
+  pPrint $ miniVM { vmState = VMHalt }
+  pPrint $ (unfoldr stepVM) $ miniVM
+  putStrLn ":: Solving part 2"
+  pPrint $ solvePart2 $ V.fromList $ parseOp <$> exampleData
+  pPrint $ solvePart2 $ V.fromList $ parseOp <$> input
+
--- a/day9/input
+++ b/day9/input
--- a/day9/main.hs
+++ b/day9/main.hs
@ -0,0 +1,75 @@
+#! /usr/bin/env -S"ANSWER=42" nix-shell
+#! nix-shell -p ghcid
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [pretty-simple containers])"
+#! nix-shell -i "ghcid -c 'ghci' -T main"
+
+{-# OPTIONS_GHC -Wall -Wincomplete-uni-patterns #-}
+{-# OPTIONS_GHC -Wno-unused-top-binds -Wno-unused-imports #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+import Data.IntMap.Strict (IntMap)
+import Data.IntSet (IntSet)
+import Data.List (inits, tails, sortOn)
+import Data.Monoid
+import Debug.Trace (trace)
+import Text.Pretty.Simple
+import qualified Data.IntMap.Strict as M
+import qualified Data.IntSet as S
+
+
+exampleData :: [Int]
+exampleData = [ 35,20,15,25,47,40,62,55,65,95,102,117,150
+              , 182,127,219,299,277,309,576 ];
+
+pairSums :: [Int] -> IntSet
+pairSums xs = S.fromList $ do
+  i1 <- xs
+  i2 <- xs
+  pure (i1 + i2)
+
+isSumOfPreamble :: Int -> [Int] -> Bool
+isSumOfPreamble size xs = go tx
+  where
+    go (x:_)  = x `S.member` (pairSums preamble)
+    go ([])   = False
+    (preamble, tx) = splitAt size xs
+
+solvePart1 :: Int -> [Int] -> (Int,Bool)
+solvePart1 size message =
+  head $ dropWhile (snd) $
+  map go ( takeWhile ((> size) . length) $ tails message )
+  where
+    go xs = (head $ drop size xs,isSumOfPreamble size xs)
+
+
+--------------------------------------------------------------------------------
+
+sortedContiguousSubLists :: [Int] -> [[Int]]
+sortedContiguousSubLists =
+  dropWhile (== []) . sortOn length . concat . fmap inits . tails
+
+listSums :: [[Int]] -> IntMap [Int]
+listSums xss = M.fromList $ do
+  xs <- xss
+  pure $ (getSum $ foldMap Sum xs, xs)
+
+solvePart2 :: Int -> [Int] -> Int
+solvePart2 target message = (\x -> minimum x + maximum x) $  bigMap M.! target
+  where
+    bigMap = listSums $ sortedContiguousSubLists message
+
+main :: IO ()
+main = do
+  putStrLn "Test"
+  print exampleData
+  print $ 1 `S.member` (pairSums [])
+  print $ pairSums exampleData
+  putStrLn "Day 9 - Part 1"
+  print $ solvePart1 5 exampleData
+  input <- lines <$> readFile "day9/input"
+  print $ solvePart1 25 $ map read input
+  putStrLn "Test"
+  print $ take 10 $ drop 20 $ sortedContiguousSubLists exampleData
+  putStrLn "Day 9 - Part 2"
+  print $ solvePart2 127 exampleData
+  print $ solvePart2 3199139634 $ map read input
--- a/template.hs
+++ b/template.hs
@ -1,10 +1,16 @@
 #! /usr/bin/env -S"ANSWER=42" nix-shell
 #! nix-shell -p ghcid
-#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [shower])"
-#! nix-shell -i "ghcid -c 'ghci -Wall' -T main"
+#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [pretty-simple])"
+#! nix-shell -i "ghcid -c 'ghci' -T main"

+{-# OPTIONS_GHC -Wall -Wincomplete-uni-patterns #-}
+{-# OPTIONS_GHC -Wno-unused-top-binds -Wno-unused-imports #-}
+{-# OPTIONS_GHC -Wno-unused-matches #-}
 {-# LANGUAGE OverloadedStrings #-}

+import Debug.Trace (trace)
+import Text.Pretty.Simple
+
 main :: IO ()
 main = do
-  putStrLn "Day 1 - Part 1"
+  putStrLn ":: Day x - Part 1"
Author	SHA1	Message	Date
EEva (JPotier)	e0ea0a26c8	Day 15, part 1 and 2: slow solution	2020-12-29 14:32:41 +02:00
EEva (JPotier)	400d1cdc57	Initial commit	2020-12-29 10:47:28 +02:00
Martin Potier	6aba6f131e	Day 13 Cleaned up	2020-12-21 15:34:56 +02:00
Martin Potier	f8d0b6c0da	Day 13 (dirty)	2020-12-21 15:27:51 +02:00
Martin Potier	6ee8b3fafa	A bit faster with Parallel, but still too slow	2020-12-18 16:23:47 +02:00
Martin Potier	7c8cb639cb	Still too slow	2020-12-18 14:36:58 +02:00
Martin Potier	f41863a68b	Best effort	2020-12-17 15:54:32 +02:00
EEva (JPotier)	2240fd1325	In progress	2020-12-15 08:27:32 +02:00
Martin Potier	0e498f3caa	Part 1	2020-12-14 14:53:53 +02:00
EEva (JPotier)	47bafe66dc	In progress	2020-12-13 18:50:00 +02:00
EEva (JPotier)	538fba7063	Part 2 With some approximation	2020-12-13 17:33:04 +02:00
EEva (JPotier)	c15d4ee29d	Part 1	2020-12-13 16:28:56 +02:00
EEva (JPotier)	3997886348	Day 12 in progress	2020-12-13 15:15:04 +02:00
Martin Potier	d720534eaf	Day 10 - part 2 yeaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaah	2020-12-11 09:30:17 +02:00
Martin Potier	a1a4a6fb52	Almost there	2020-12-11 00:18:39 +02:00
Martin Potier	fec46e87e0	Day 10 - Part 1	2020-12-10 16:10:39 +02:00
Martin Potier	8d16541413	Day 9 - Part 2 Hope you have a fast machine. This is long to compute :)	2020-12-10 15:25:15 +02:00
Martin Potier	0305b145a7	Part 1 done	2020-12-10 14:26:48 +02:00
Martin Potier	fa87faaa02	Initial commit for day9	2020-12-10 13:30:34 +02:00
Martin Potier	09ca90be06	Bad Haskell, Debug.Trace ftw!	2020-12-10 12:49:39 +02:00
Martin Potier	4faaf34bf8	Day 8 - still in progress	2020-12-09 23:30:18 +02:00
Martin Potier	f0c7f30103	Part 1	2020-12-09 19:59:35 +02:00
Martin Potier	2ee9fa16c4	tmp	2020-12-09 14:05:30 +02:00
Martin Potier	54ddd70f1d	Day 8 in progress	2020-12-09 14:04:43 +02:00
Martin Potier	a0ec7f0b63	Init day8	2020-12-08 22:26:09 +02:00
Martin Potier	f173da9ec7	Day7 Part 2	2020-12-08 22:21:45 +02:00
Martin Potier	e387598fd1	Fun with Sum	2020-12-08 17:22:20 +02:00
Martin Potier	207769dccc	Part 1 down	2020-12-08 17:17:47 +02:00
Martin Potier	b68ac986af	Add exampleData	2020-12-07 22:07:42 +02:00
Martin Potier	629e9767c5	Day7 input	2020-12-07 20:35:03 +02:00
Martin Potier	97f5bd536f	Finished day 6	2020-12-07 20:32:40 +02:00
Martin Potier	b344686716	wip	2020-12-07 16:54:34 +02:00
Martin Potier	f7d651ff92	Day 6, input	2020-12-07 12:13:02 +02:00
Martin Potier	19975730a5	Day 5 - Part 2	2020-12-07 12:11:12 +02:00
Martin Potier	640efa334b	Day 5 - Part 1	2020-12-07 11:57:34 +02:00