From 0fc18bbf6183b19c678520194652e145e61bb2e6 Mon Sep 17 00:00:00 2001
From: Jay Foad <jay.foad@gmail.com>
Date: Mon, 3 Dec 2018 13:08:23 +0000
Subject: [PATCH] Tweaks.

---
 p1.dyalog | 4 ++--
 p2.dyalog | 2 +-
 p3.dyalog | 5 ++---
 3 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/p1.dyalog b/p1.dyalog
index 2a19cd6..be8b756 100644
--- a/p1.dyalog
+++ b/p1.dyalog
@@ -1,4 +1,4 @@
 p←⍎¨⊃⎕NGET'p1.txt'1
 +/p ⍝ part 1
-q←+\1E6⍴p
-q⊃⍨1⍳⍨(q⍳q)≠⍳≢q ⍝ part 2
+q←+\2E5⍴p
+⊃q/⍨(q⍳q)≠⍳≢q ⍝ part 2
diff --git a/p2.dyalog b/p2.dyalog
index 94b5b94..1e33b71 100644
--- a/p2.dyalog
+++ b/p2.dyalog
@@ -1,3 +1,3 @@
 p←⊃⎕NGET'p2.txt'1
 ×/+/2 3∘.∊{≢⍵}⌸¨p ⍝ part 1
-{⍵⊃⍨⊃⍸25=≢¨⍵},∘.{⍺/⍨⍺=⍵}⍨p ⍝ part 2
+⊃{⍵/⍨25=≢¨⍵},∘.{⍺/⍨⍺=⍵}⍨p ⍝ part 2
diff --git a/p3.dyalog b/p3.dyalog
index 0384f00..588ecd5 100644
--- a/p3.dyalog
+++ b/p3.dyalog
@@ -1,5 +1,4 @@
 p←⍎¨¨'\d+'⎕S'&'¨⊃⎕NGET'p3.txt'1
-g←1000 1000⍴0 ⍝ grid
-{(a b c d e)←⍵ ⋄ g[(⊂c b)+⍳e d]+←1}¨p
+g←1000 1000⍴0 ⋄ {(a b c d e)←⍵ ⋄ g[b c∘+¨⍳d e]+←1}¨p ⍝ grid
 +/,1<g ⍝ part 1
-⊃⊃p/⍨{(a b c d e)←⍵ ⋄ ∧/,1=g[(⊂c b)+⍳e d]}¨p ⍝ part 2
+⊃⊃p/⍨{(a b c d e)←⍵ ⋄ ∧/,1=g[b c∘+¨⍳d e]}¨p ⍝ part 2