From 8696bddbb67905551e6b26f028b559a51ae44cd1 Mon Sep 17 00:00:00 2001
From: Jay Foad <jay.foad@gmail.com>
Date: Mon, 3 Dec 2018 13:21:28 +0000
Subject: [PATCH] Tweak.

---
 p3.dyalog | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/p3.dyalog b/p3.dyalog
index 588ecd5..59d0025 100644
--- a/p3.dyalog
+++ b/p3.dyalog
@@ -1,4 +1,5 @@
 p←⍎¨¨'\d+'⎕S'&'¨⊃⎕NGET'p3.txt'1
-g←1000 1000⍴0 ⋄ {(a b c d e)←⍵ ⋄ g[b c∘+¨⍳d e]+←1}¨p ⍝ grid
+q←{(a b c d e)←⍵ ⋄ b c∘+¨⍳d e}¨p
+g←1000 1000⍴0 ⋄ {g[⍵]+←1}¨q ⍝ grid
 +/,1<g ⍝ part 1
-⊃⊃p/⍨{(a b c d e)←⍵ ⋄ ∧/,1=g[b c∘+¨⍳d e]}¨p ⍝ part 2
+⊃⊃p/⍨{∧/,1=g[⍵]}¨q ⍝ part 2