From ff4ac77618d5d2720cf739a4316fe649a728ef0d Mon Sep 17 00:00:00 2001
From: Jay Foad <jay.foad@gmail.com>
Date: Thu, 6 Dec 2018 11:14:12 +0000
Subject: [PATCH] Day 1 part 2 neater on one line.

---
 p1.dyalog | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/p1.dyalog b/p1.dyalog
index db912ee..0a01b28 100644
--- a/p1.dyalog
+++ b/p1.dyalog
@@ -1,4 +1,3 @@
 p←⍎¨⊃⎕NGET'p1.txt'1
 +/p ⍝ part 1
-q←(⊢,⊢+(⊃⌽))⍣(⊢≢(∪⊢))+\p
-⊃q/⍨(q⍳q)≠⍳≢q ⍝ part 2
+{⍬≢z←⍵/⍨(⍵⍳⍵)≠⍳≢⍵:⊃z ⋄ ∇⍵,⍵+⊃⌽⍵}+\p ⍝ part 2