|
|
# NOTE: `Parse` and `ParseII` are out-of-date as of Uiua 0.5
|
|
|
|
|
|
$ Game 1: 3 blue, 4 red; 1 red, 2 green, 6 blue; 2 green
|
|
|
$ Game 2: 1 blue, 2 green; 3 green, 4 blue, 1 red; 1 green, 1 blue
|
|
|
$ Game 3: 8 green, 6 blue, 20 red; 5 blue, 4 red, 13 green; 5 green, 1 red
|
|
|
$ Game 4: 1 green, 3 red, 6 blue; 3 green, 6 red; 3 green, 15 blue, 14 red
|
|
|
$ Game 5: 6 red, 1 blue, 3 green; 2 blue, 1 red, 2 green
|
|
|
TestInput ←
|
|
|
|
|
|
# Original parsing solution
|
|
|
Colors ← {"red" "green" "blue"}
|
|
|
Parse ← (
|
|
|
⊔⊢⇌↘1 regex "Game (\\d+): (.*)"
|
|
|
⊜(□⊜(⇌⊜((parse⊔⋅∘|⊙;)<3.⊃(⊗⊙Colors|∘)□)≠@ .)≠@,.)≠@;.
|
|
|
≡(
|
|
|
∧(⍜⊡+⊙:⍘⊟)⊃⊔0_0_0
|
|
|
)
|
|
|
)
|
|
|
|
|
|
# Somewhat optimized second take on parsing
|
|
|
ColorsII ← "rgb"
|
|
|
ParseII ← (
|
|
|
↘+2⊗@:.
|
|
|
⬚0⊜(⊕∘⍘⊟⍉∵(⊟⊃(⊗⊙ColorsII⊢|parse↘2)⇌⊔) regex "\\d+ [rgb]")≠@;.
|
|
|
↯¯1_3
|
|
|
)
|
|
|
|
|
|
PartI ← /×≤12_13_14/↥
|
|
|
PartII ← /×/↥
|
|
|
|
|
|
/+×+1⇡⧻.⊜(PartI ParseII)≠@\n.TestInput
|
|
|
/+×+1⇡⧻.⊜(PartI ParseII)≠@\n.&fras "day02.in"
|
|
|
|
|
|
/+⊜(PartII ParseII)≠@\n.TestInput
|
|
|
/+⊜(PartII ParseII)≠@\n.&fras "day02.in"
|
|
|
|
|
|
⊙⋅∘⍜now⊜(□ Parse)≠@\n.&fras "day02.in"
|
|
|
⊙⋅∘⍜now⊜(□ ParseII)≠@\n.&fras "day02.in"
|