Compare commits
No commits in common. "main" and "day4" have entirely different histories.
18 changed files with 3 additions and 7184 deletions
95
day10/input
95
day10/input
|
|
@ -1,95 +0,0 @@
|
||||||
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
|
|
||||||
|
|
@ -1,92 +0,0 @@
|
||||||
#! /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
|
|
||||||
786
day12/input
786
day12/input
|
|
@ -1,786 +0,0 @@
|
||||||
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
|
|
||||||
130
day12/main.hs
130
day12/main.hs
|
|
@ -1,130 +0,0 @@
|
||||||
#! /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
|
|
||||||
|
|
@ -1,2 +0,0 @@
|
||||||
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
|
|
||||||
129
day13/main.hs
129
day13/main.hs
|
|
@ -1,129 +0,0 @@
|
||||||
#! /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
|
|
||||||
|
|
@ -1,73 +0,0 @@
|
||||||
#! /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
|
|
||||||
|
|
||||||
965
day5/input
965
day5/input
|
|
@ -1,965 +0,0 @@
|
||||||
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
|
|
||||||
47
day5/main.hs
47
day5/main.hs
|
|
@ -1,47 +0,0 @@
|
||||||
#! /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
|
|
||||||
2178
day6/input
2178
day6/input
File diff suppressed because it is too large
Load diff
72
day6/main.hs
72
day6/main.hs
|
|
@ -1,72 +0,0 @@
|
||||||
#! /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
|
|
||||||
|
|
||||||
594
day7/input
594
day7/input
|
|
@ -1,594 +0,0 @@
|
||||||
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.
|
|
||||||
154
day7/main.hs
154
day7/main.hs
|
|
@ -1,154 +0,0 @@
|
||||||
#! /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
|
|
||||||
643
day8/input
643
day8/input
|
|
@ -1,643 +0,0 @@
|
||||||
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
|
|
||||||
140
day8/main.hs
140
day8/main.hs
|
|
@ -1,140 +0,0 @@
|
||||||
#! /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
|
|
||||||
|
|
||||||
1000
day9/input
1000
day9/input
File diff suppressed because it is too large
Load diff
75
day9/main.hs
75
day9/main.hs
|
|
@ -1,75 +0,0 @@
|
||||||
#! /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
|
|
||||||
12
template.hs
12
template.hs
|
|
@ -1,16 +1,10 @@
|
||||||
#! /usr/bin/env -S"ANSWER=42" nix-shell
|
#! /usr/bin/env -S"ANSWER=42" nix-shell
|
||||||
#! nix-shell -p ghcid
|
#! nix-shell -p ghcid
|
||||||
#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [pretty-simple])"
|
#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [shower])"
|
||||||
#! nix-shell -i "ghcid -c 'ghci' -T main"
|
#! nix-shell -i "ghcid -c 'ghci -Wall' -T main"
|
||||||
|
|
||||||
{-# OPTIONS_GHC -Wall -Wincomplete-uni-patterns #-}
|
|
||||||
{-# OPTIONS_GHC -Wno-unused-top-binds -Wno-unused-imports #-}
|
|
||||||
{-# OPTIONS_GHC -Wno-unused-matches #-}
|
|
||||||
{-# LANGUAGE OverloadedStrings #-}
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
|
|
||||||
import Debug.Trace (trace)
|
|
||||||
import Text.Pretty.Simple
|
|
||||||
|
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = do
|
main = do
|
||||||
putStrLn ":: Day x - Part 1"
|
putStrLn "Day 1 - Part 1"
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue