Tweaks.

jayfoad · Dec 3, 2018 · 0fc18bb · 0fc18bb
1 parent 743e1bd
commit 0fc18bb
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 6 deletions.
diff --git 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
@@ -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
@@ -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