day5

2022/day05.hs

@@ -0,0 +1,47 @@
+import Data.List (transpose, delete)
+import Data.List.Split (chunksOf, splitOn)
+import Data.Char (isSpace)
+import Debug.Trace (traceShowId, traceShow)
+
+data Command = Move {amount :: Int, from :: Int, to :: Int} deriving Show
+
+type State = [[Char]]
+
+parseInit :: [String] -> State
+parseInit s = map (dropWhile isSpace . init . (!!1)) (chunksOf 4 $ transpose s)
+
+parseCmds :: [String] -> [Command]
+parseCmds s = map readCmd s where
+    readCmd s = let w = words s in Move (read (w !! 1)) (read (w !! 3) - 1) (read (w !! 5) - 1)
+
+listApp :: Int -> (a -> a) -> [a] -> [a]
+listApp 0 f (x:xs) = f x : xs
+listApp n f (x:xs) = x : listApp (n-1) f xs
+
+move1 :: (Int, Int) -> State -> State
+move1 (from, to) state = addTo $ popFrom state where
+    popFrom = listApp from tail
+    elem = head (state !! from)
+    addTo = listApp to (elem:)
+
+moveN :: Command -> State -> State
+moveN (Move 0 from to) = id
+moveN (Move n from to) = moveN (Move (n-1) from to) . move1 (from,to)
+
+moveN2 :: Command -> State -> State
+moveN2 (Move amount from to) state = addTo $ popFrom state where
+    popFrom = listApp from (drop amount)
+    elems = take amount (state !! from)
+    addTo = listApp to (elems ++ )
+
+main :: IO ()
+main = do
+    [init', cmds'] <- splitOn [""] . lines <$> getContents
+    let init = parseInit init'
+    let cmds = parseCmds cmds'
+
+    putStr "part 1: "
+    print $ map head $ foldl (flip moveN) init cmds
+
+    putStr "part 2: "
+    print $ map head $ foldl (flip moveN2) init cmds

2022/inputs/day05

@@ -0,0 +1,513 @@
+                [B]     [L]     [S]
+        [Q] [J] [C]     [W]     [F]
+    [F] [T] [B] [D]     [P]     [P]
+    [S] [J] [Z] [T]     [B] [C] [H]
+    [L] [H] [H] [Z] [G] [Z] [G] [R]
+[R] [H] [D] [R] [F] [C] [V] [Q] [T]
+[C] [J] [M] [G] [P] [H] [N] [J] [D]
+[H] [B] [R] [S] [R] [T] [S] [R] [L]
+ 1   2   3   4   5   6   7   8   9 
+
+move 8 from 7 to 1
+move 9 from 1 to 9
+move 4 from 5 to 4
+move 4 from 6 to 1
+move 3 from 8 to 5
+move 6 from 5 to 9
+move 1 from 5 to 1
+move 4 from 4 to 9
+move 7 from 3 to 7
+move 6 from 7 to 3
+move 1 from 8 to 7
+move 2 from 7 to 6
+move 1 from 8 to 9
+move 1 from 6 to 3
+move 4 from 3 to 5
+move 5 from 1 to 3
+move 1 from 1 to 8
+move 2 from 3 to 4
+move 1 from 4 to 1
+move 7 from 9 to 2
+move 1 from 6 to 3
+move 2 from 1 to 9
+move 20 from 9 to 7
+move 6 from 4 to 9
+move 1 from 2 to 9
+move 6 from 9 to 4
+move 1 from 4 to 6
+move 1 from 8 to 6
+move 1 from 4 to 7
+move 5 from 2 to 3
+move 2 from 6 to 4
+move 3 from 9 to 5
+move 5 from 3 to 5
+move 3 from 3 to 8
+move 3 from 5 to 6
+move 1 from 9 to 8
+move 5 from 4 to 5
+move 3 from 4 to 9
+move 1 from 8 to 2
+move 2 from 8 to 2
+move 11 from 5 to 6
+move 16 from 7 to 1
+move 2 from 1 to 7
+move 14 from 6 to 1
+move 11 from 1 to 6
+move 2 from 1 to 4
+move 4 from 3 to 4
+move 9 from 2 to 4
+move 2 from 4 to 8
+move 2 from 5 to 3
+move 9 from 4 to 7
+move 2 from 3 to 2
+move 1 from 2 to 7
+move 1 from 8 to 4
+move 4 from 1 to 4
+move 1 from 9 to 1
+move 7 from 4 to 7
+move 2 from 6 to 5
+move 1 from 8 to 6
+move 1 from 4 to 2
+move 10 from 1 to 6
+move 5 from 7 to 3
+move 1 from 4 to 7
+move 2 from 1 to 2
+move 2 from 2 to 4
+move 4 from 3 to 4
+move 18 from 7 to 6
+move 6 from 6 to 4
+move 1 from 7 to 4
+move 1 from 7 to 6
+move 11 from 4 to 5
+move 14 from 5 to 9
+move 1 from 8 to 7
+move 8 from 6 to 2
+move 2 from 4 to 5
+move 7 from 9 to 1
+move 6 from 9 to 7
+move 5 from 1 to 8
+move 1 from 3 to 6
+move 10 from 6 to 3
+move 1 from 9 to 6
+move 1 from 5 to 4
+move 4 from 3 to 8
+move 1 from 5 to 9
+move 9 from 2 to 3
+move 1 from 9 to 5
+move 4 from 8 to 4
+move 1 from 5 to 3
+move 5 from 8 to 7
+move 5 from 7 to 2
+move 3 from 4 to 1
+move 8 from 6 to 5
+move 1 from 7 to 9
+move 4 from 1 to 3
+move 2 from 4 to 6
+move 5 from 5 to 2
+move 4 from 6 to 9
+move 1 from 1 to 2
+move 1 from 5 to 6
+move 7 from 2 to 8
+move 5 from 6 to 8
+move 4 from 7 to 9
+move 15 from 3 to 9
+move 1 from 7 to 3
+move 1 from 5 to 3
+move 6 from 2 to 6
+move 1 from 5 to 2
+move 2 from 3 to 9
+move 1 from 6 to 8
+move 5 from 8 to 9
+move 2 from 3 to 8
+move 3 from 3 to 6
+move 11 from 9 to 4
+move 1 from 2 to 1
+move 2 from 8 to 4
+move 1 from 1 to 4
+move 7 from 4 to 7
+move 9 from 6 to 3
+move 4 from 7 to 8
+move 4 from 7 to 6
+move 19 from 9 to 4
+move 7 from 8 to 5
+move 5 from 3 to 6
+move 6 from 6 to 9
+move 3 from 3 to 5
+move 1 from 3 to 9
+move 8 from 4 to 5
+move 2 from 9 to 6
+move 3 from 8 to 2
+move 1 from 8 to 4
+move 1 from 2 to 5
+move 19 from 4 to 1
+move 2 from 5 to 7
+move 2 from 2 to 4
+move 13 from 5 to 2
+move 1 from 5 to 1
+move 2 from 6 to 9
+move 1 from 8 to 7
+move 9 from 9 to 3
+move 2 from 3 to 8
+move 1 from 4 to 2
+move 5 from 6 to 7
+move 1 from 4 to 6
+move 2 from 8 to 7
+move 7 from 1 to 5
+move 1 from 6 to 7
+move 10 from 1 to 8
+move 1 from 1 to 3
+move 1 from 1 to 2
+move 6 from 5 to 3
+move 4 from 5 to 3
+move 5 from 7 to 1
+move 3 from 1 to 2
+move 4 from 7 to 5
+move 8 from 3 to 6
+move 2 from 1 to 7
+move 4 from 5 to 8
+move 7 from 3 to 5
+move 3 from 7 to 2
+move 1 from 7 to 3
+move 12 from 2 to 8
+move 23 from 8 to 2
+move 16 from 2 to 6
+move 1 from 9 to 6
+move 7 from 5 to 7
+move 7 from 2 to 4
+move 2 from 3 to 8
+move 1 from 1 to 9
+move 5 from 8 to 1
+move 2 from 3 to 9
+move 2 from 7 to 1
+move 4 from 1 to 3
+move 4 from 7 to 2
+move 2 from 1 to 4
+move 11 from 2 to 9
+move 3 from 3 to 4
+move 1 from 9 to 1
+move 2 from 2 to 7
+move 4 from 4 to 8
+move 2 from 9 to 5
+move 2 from 5 to 7
+move 4 from 4 to 6
+move 1 from 3 to 8
+move 1 from 9 to 8
+move 4 from 4 to 2
+move 2 from 1 to 3
+move 1 from 8 to 4
+move 2 from 3 to 5
+move 3 from 9 to 7
+move 2 from 8 to 9
+move 1 from 9 to 6
+move 2 from 7 to 3
+move 2 from 8 to 1
+move 1 from 4 to 9
+move 18 from 6 to 2
+move 1 from 6 to 5
+move 1 from 5 to 9
+move 18 from 2 to 3
+move 1 from 8 to 7
+move 2 from 5 to 9
+move 1 from 1 to 4
+move 3 from 2 to 1
+move 9 from 9 to 4
+move 7 from 4 to 6
+move 2 from 7 to 3
+move 2 from 4 to 9
+move 7 from 6 to 7
+move 3 from 7 to 2
+move 7 from 6 to 3
+move 2 from 6 to 9
+move 24 from 3 to 9
+move 2 from 6 to 8
+move 1 from 4 to 2
+move 2 from 8 to 5
+move 31 from 9 to 3
+move 6 from 7 to 4
+move 35 from 3 to 7
+move 1 from 1 to 8
+move 1 from 5 to 7
+move 1 from 5 to 4
+move 1 from 3 to 9
+move 1 from 8 to 2
+move 3 from 1 to 7
+move 7 from 4 to 5
+move 1 from 9 to 8
+move 4 from 5 to 6
+move 2 from 5 to 2
+move 6 from 2 to 5
+move 2 from 5 to 7
+move 2 from 2 to 1
+move 2 from 5 to 4
+move 1 from 8 to 4
+move 3 from 4 to 6
+move 4 from 6 to 7
+move 1 from 5 to 2
+move 2 from 6 to 9
+move 1 from 6 to 4
+move 1 from 4 to 8
+move 2 from 9 to 6
+move 1 from 8 to 9
+move 34 from 7 to 9
+move 6 from 7 to 3
+move 1 from 7 to 2
+move 1 from 5 to 8
+move 1 from 8 to 6
+move 6 from 7 to 4
+move 1 from 7 to 3
+move 7 from 3 to 5
+move 6 from 4 to 6
+move 31 from 9 to 1
+move 3 from 5 to 7
+move 24 from 1 to 3
+move 1 from 2 to 4
+move 3 from 9 to 1
+move 14 from 3 to 5
+move 1 from 4 to 3
+move 1 from 9 to 7
+move 8 from 3 to 7
+move 1 from 2 to 9
+move 7 from 1 to 5
+move 3 from 6 to 8
+move 3 from 6 to 1
+move 1 from 1 to 3
+move 4 from 3 to 2
+move 4 from 2 to 3
+move 2 from 5 to 1
+move 9 from 7 to 4
+move 1 from 6 to 5
+move 1 from 1 to 7
+move 3 from 8 to 9
+move 5 from 4 to 2
+move 3 from 2 to 3
+move 1 from 2 to 3
+move 2 from 4 to 1
+move 2 from 9 to 4
+move 1 from 9 to 3
+move 1 from 6 to 1
+move 1 from 9 to 6
+move 25 from 5 to 4
+move 4 from 1 to 9
+move 2 from 3 to 7
+move 2 from 6 to 9
+move 2 from 9 to 5
+move 6 from 7 to 1
+move 5 from 3 to 6
+move 10 from 4 to 3
+move 10 from 4 to 8
+move 2 from 4 to 2
+move 5 from 1 to 9
+move 2 from 6 to 4
+move 6 from 9 to 6
+move 7 from 6 to 4
+move 3 from 9 to 4
+move 3 from 2 to 4
+move 4 from 3 to 8
+move 2 from 5 to 3
+move 10 from 4 to 9
+move 4 from 9 to 7
+move 5 from 9 to 5
+move 4 from 5 to 1
+move 9 from 4 to 6
+move 10 from 1 to 3
+move 1 from 5 to 4
+move 3 from 4 to 5
+move 2 from 5 to 7
+move 1 from 7 to 3
+move 1 from 6 to 9
+move 11 from 8 to 6
+move 14 from 6 to 5
+move 1 from 4 to 7
+move 7 from 5 to 3
+move 3 from 5 to 4
+move 2 from 9 to 5
+move 2 from 4 to 3
+move 2 from 7 to 4
+move 11 from 3 to 9
+move 2 from 8 to 2
+move 2 from 2 to 3
+move 1 from 8 to 2
+move 1 from 2 to 9
+move 3 from 4 to 5
+move 2 from 6 to 9
+move 1 from 1 to 8
+move 10 from 9 to 7
+move 2 from 9 to 3
+move 23 from 3 to 9
+move 4 from 6 to 4
+move 9 from 5 to 6
+move 1 from 5 to 3
+move 5 from 6 to 7
+move 1 from 1 to 7
+move 1 from 3 to 9
+move 4 from 6 to 7
+move 1 from 8 to 7
+move 1 from 7 to 5
+move 1 from 5 to 1
+move 12 from 7 to 6
+move 9 from 9 to 3
+move 6 from 6 to 4
+move 8 from 7 to 3
+move 3 from 7 to 4
+move 6 from 3 to 1
+move 10 from 4 to 8
+move 10 from 8 to 7
+move 2 from 3 to 7
+move 9 from 3 to 8
+move 2 from 6 to 3
+move 10 from 7 to 1
+move 3 from 4 to 6
+move 5 from 8 to 5
+move 3 from 5 to 7
+move 1 from 3 to 2
+move 1 from 2 to 6
+move 6 from 9 to 1
+move 12 from 1 to 3
+move 3 from 6 to 9
+move 3 from 1 to 7
+move 1 from 3 to 2
+move 7 from 1 to 7
+move 1 from 2 to 7
+move 2 from 6 to 4
+move 1 from 4 to 5
+move 3 from 8 to 7
+move 2 from 6 to 3
+move 2 from 6 to 1
+move 1 from 3 to 8
+move 5 from 3 to 4
+move 2 from 8 to 5
+move 14 from 7 to 4
+move 1 from 3 to 2
+move 1 from 3 to 7
+move 7 from 7 to 4
+move 2 from 5 to 3
+move 2 from 1 to 4
+move 9 from 4 to 6
+move 1 from 1 to 2
+move 4 from 9 to 4
+move 8 from 9 to 3
+move 2 from 2 to 7
+move 13 from 4 to 8
+move 4 from 4 to 1
+move 2 from 7 to 6
+move 12 from 3 to 2
+move 11 from 2 to 9
+move 6 from 4 to 9
+move 18 from 9 to 4
+move 2 from 1 to 6
+move 6 from 8 to 1
+move 13 from 6 to 5
+move 8 from 4 to 5
+move 1 from 2 to 9
+move 8 from 1 to 4
+move 7 from 4 to 8
+move 4 from 3 to 5
+move 10 from 8 to 5
+move 13 from 5 to 8
+move 12 from 4 to 5
+move 2 from 9 to 8
+move 29 from 5 to 9
+move 24 from 9 to 2
+move 23 from 2 to 4
+move 5 from 9 to 2
+move 7 from 5 to 7
+move 1 from 5 to 1
+move 7 from 4 to 8
+move 14 from 8 to 1
+move 5 from 2 to 6
+move 16 from 4 to 7
+move 8 from 1 to 6
+move 1 from 2 to 8
+move 20 from 7 to 6
+move 11 from 6 to 4
+move 3 from 1 to 5
+move 3 from 4 to 3
+move 8 from 4 to 9
+move 8 from 6 to 1
+move 2 from 1 to 4
+move 3 from 5 to 2
+move 12 from 8 to 2
+move 1 from 7 to 1
+move 1 from 3 to 5
+move 1 from 7 to 8
+move 1 from 7 to 3
+move 12 from 2 to 8
+move 13 from 6 to 4
+move 2 from 1 to 9
+move 3 from 2 to 6
+move 3 from 9 to 7
+move 5 from 9 to 1
+move 4 from 6 to 4
+move 2 from 3 to 6
+move 1 from 5 to 9
+move 1 from 6 to 7
+move 9 from 1 to 5
+move 11 from 8 to 3
+move 1 from 6 to 8
+move 3 from 7 to 1
+move 1 from 8 to 7
+move 2 from 8 to 9
+move 7 from 1 to 2
+move 17 from 4 to 7
+move 1 from 8 to 6
+move 4 from 7 to 2
+move 4 from 9 to 7
+move 4 from 2 to 3
+move 1 from 1 to 4
+move 2 from 4 to 3
+move 9 from 5 to 4
+move 1 from 6 to 8
+move 6 from 2 to 1
+move 5 from 1 to 9
+move 9 from 4 to 3
+move 1 from 4 to 6
+move 2 from 9 to 7
+move 1 from 1 to 5
+move 1 from 2 to 7
+move 1 from 8 to 9
+move 1 from 6 to 8
+move 1 from 5 to 4
+move 1 from 8 to 7
+move 23 from 3 to 7
+move 36 from 7 to 6
+move 33 from 6 to 1
+move 1 from 4 to 8
+move 7 from 1 to 5
+move 1 from 8 to 1
+move 3 from 7 to 2
+move 24 from 1 to 3
+move 7 from 7 to 3
+move 3 from 5 to 1
+move 4 from 5 to 3
+move 1 from 9 to 8
+move 2 from 9 to 6
+move 1 from 8 to 5
+move 3 from 2 to 5
+move 30 from 3 to 5
+move 1 from 6 to 7
+move 6 from 1 to 8
+move 7 from 3 to 2
+move 1 from 7 to 5
+move 2 from 3 to 2
+move 2 from 6 to 8
+move 1 from 6 to 1
+move 7 from 5 to 8
+move 8 from 8 to 7
+move 20 from 5 to 8
+move 2 from 9 to 7
+move 8 from 2 to 1
+move 7 from 7 to 3
+move 1 from 2 to 1
+move 3 from 7 to 9
+move 4 from 8 to 3
+move 5 from 5 to 6
+move 1 from 5 to 9
+move 4 from 9 to 4
+move 1 from 5 to 9
+move 2 from 3 to 6
+move 1 from 5 to 8
+move 7 from 6 to 3
+move 1 from 4 to 1
+move 7 from 3 to 2
+move 3 from 3 to 5
+move 2 from 4 to 7

2022/inputs/day05.test

@@ -0,0 +1,9 @@
+    [D]    
+[N] [C]    
+[Z] [M] [P]
+ 1   2   3 
+
+move 1 from 2 to 1
+move 3 from 1 to 3
+move 2 from 2 to 1
+move 1 from 1 to 2