Day 5 inspired by a Haskell solution using foldr.

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