Day 20

jayfoad · Dec 20, 2022 · a1ffe67 · a1ffe67
1 parent 10af39a
commit a1ffe67
Show file tree

Hide file tree

Showing 2 changed files with 5,006 additions and 0 deletions.
diff --git a/p20.dyalog b/p20.dyalog
@@ -0,0 +1,6 @@
+⎕IO←0 ⋄ ⎕PP←17
+q←811589153×p←⍎¨⊃⎕NGET'p20.txt'1
+f←{n←1+(¯1+≢⍵)|⍺⊃⍺⍺ ⋄ (n|¯1+⊢)@(n>⊢)(≢⍵)|⍵-⍺⊃⍵}
+g←{+/⍺/⍨⍵∊(≢⍵)|1E3 2E3 3E3+(⍺⍳0)⊃⍵}
+p g⊃p f/(⌽,⊂)⍳≢p ⍝ part 1
+q g⊃q f/{⍵,⍨⌽∊10/⍵}⊂⍳≢q ⍝ part 2