From 6baeb4a5b280f32a36d5992ad64f6f9916077a5c Mon Sep 17 00:00:00 2001
From: Jay Foad <jay.foad@gmail.com>
Date: Wed, 5 Dec 2018 11:17:01 +0000
Subject: [PATCH] Day 5 inspired by a Haskell solution using foldr.

---
 p5foldr.dyalog | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 p5foldr.dyalog

diff --git a/p5foldr.dyalog b/p5foldr.dyalog
new file mode 100644
index 0000000..4a8c5ca
--- /dev/null
+++ 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