Day 4 solution.

jayfoad · Dec 4, 2018 · 230c993 · 230c993
1 parent 2492f31
commit 230c993
Show file tree

Hide file tree

Showing 2 changed files with 1,080 additions and 0 deletions.
diff --git a/p4.dyalog b/p4.dyalog
@@ -0,0 +1,7 @@
+⎕IO←0
+p←{⍵[⍋⍵]}⊃⎕NGET'p4.txt'1
+a←4000 60⍴0
+s←⍬ ⋄ {e←⍎⊃⌽n←'\d+'⎕S'&'⊢⍵ ⋄ 6=≢n:g∘←e ⋄ s≡⍬:s∘←e ⋄ a[g;s+⍳e-s]+←1 ⋄ s∘←⍬}¨p
+f←{⊃⍸⍵=⌈/,⍵} ⍝ coordinates of maximum value
+{⍵×f ⍵⌷a}f+/a ⍝ part 1
+×/f a ⍝ part 2