diff --git a/2022/day05.hs b/2022/day05.hs new file mode 100644 index 0000000..ca99a63 --- /dev/null +++ b/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 diff --git a/2022/inputs/day05 b/2022/inputs/day05 new file mode 100644 index 0000000..053f98d --- /dev/null +++ b/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 diff --git a/2022/inputs/day05.test b/2022/inputs/day05.test new file mode 100644 index 0000000..84933bb --- /dev/null +++ b/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