Day 8 solution.

jayfoad · Dec 10, 2018 · 2a14813 · 2a14813
1 parent 4a4bb29
commit 2a14813
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/p8.dyalog b/p8.dyalog
@@ -0,0 +1,4 @@
+p←⍎⊃⊃⎕NGET'p8.txt' 1
+e←{⍵≡⍬:⍬ ⋄ ⍺⍺¨⍵}
+n←0 ⋄ {a b←p[(n+←2)⊢n+⍳2] ⋄ +/p[(n+←b)⊢n+⍳b],∇ e⍳a}0 ⍝ part 1
+n←0 ⋄ {a b←p[(n+←2)⊢n+⍳2] ⋄ c←∇ e⍳a ⋄ m←p[(n+←b)⊢n+⍳b] ⋄ a=0:+/m ⋄ +/c[m∩⍳a]}0 ⍝ part 2