Day 5 much faster iterative solution.

jayfoad · Dec 5, 2018 · 9b3b265 · 9b3b265
1 parent f033f1d
commit 9b3b265
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/p5iterative.dyalog b/p5iterative.dyalog
@@ -0,0 +1,4 @@
+p←⎕UCS⊃⊃⎕NGET'p5.txt'1
+f←{a←⍬ ⋄ _←{32=|⍵-⊃⌽a:a↓⍨←¯1 ⋄ a,←⍵}¨⍵ ⋄ a}
+≢q←f p ⍝ part 1
+⌊/{≢f q~⍵,⍵+32}¨⎕UCS ⎕A ⍝ part 2