From e4d491af57f3b85fe9c0e03a9964c25fae04d527 Mon Sep 17 00:00:00 2001
From: Jay Foad <jay.foad@gmail.com>
Date: Wed, 2 Jan 2019 11:53:39 +0000
Subject: [PATCH] Day 17 solution.

---
 p17.dyalog | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 p17.dyalog

diff --git a/p17.dyalog b/p17.dyalog
new file mode 100644
index 0000000..5695ec5
--- /dev/null
+++ b/p17.dyalog
@@ -0,0 +1,14 @@
+⎕IO←0
+c←⊃¨p←⊃⎕NGET'p17.txt'1
+p←⍎¨¨'\d+'⎕S'&'¨p
+a b←(⌊/,⌈/)∊1↓¨p/⍨c='x'
+g←(1+b)1000⍴''
+to←{⍺+⍳⍵-⍺}
+{g[⍵[1] to 1+⍵[2];⍵[0]]←'#'}¨p/⍨c='x'
+{g[⍵[0];⍵[1] to 1+⍵[2]]←'#'}¨p/⍨c='y'
+d←{x y←⍵ ⋄ t←y↓g[;x] ⋄ n←1⍳⍨t∊'#~' ⋄ g[y+⍳n;x]←'|' ⋄ _←f⍣(n<t⍳'|')⊢x(y+n-1)}
+e←{x y←⍵ ⋄ t←⍺∊⍨x⌽y⌷g ⋄ x+(-1⍳⍨⌽t)(t⍳1)}
+f←{x y←⍵ ⋄ i j←'| 'e ⍵+0 1 ⋄ k l←'#'e ⍵ ⋄ g[y;(i⌈k)to j⌊l]←'|~'⊃⍨⍱/t←i l>k j ⋄ ⍱/t:∇⍵-0 1 ⋄ d¨y,⍨¨t/(i-1)j}
+d 500 0
++/,'|~'∊⍨a↓g ⍝ part 1
++/,'~'=a↓g ⍝ part 2