Day 1 part 2 neater on one line.

jayfoad · Dec 6, 2018 · ff4ac77 · ff4ac77
1 parent d4315cf
commit ff4ac77
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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