Day 24 part 2 slicker with ⍸⍣¯1

jayfoad · Dec 24, 2020 · cf4eb88 · cf4eb88
1 parent 37bf53c
commit cf4eb88
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/p24.dyalog b/p24.dyalog
@@ -3,4 +3,4 @@ p←{⊃+/⍎¨'[ns]?.'⎕S'&'⊢⍵}¨⊃⎕NGET'p24.txt'1
 +/2|{≢⍵}⌸p ⍝ part 1
 A←3 3⍴1 1 0 1 0 1 0 1 1
 f←{2=n+⍵∧1=n←{+/,A×⍵}⌺3 3⊢⍵}{0⍪0⍪⍨0,0,⍨⍵}
-+/,f⍣100{a←0⍴⍨⊃⌈/⍵ ⋄ a[⍵]+←1 ⋄ 2|a}1+p-⌊/p ⍝ part 2
++/,f⍣100⊢2|⍸⍣¯1{(⊂⍋⍵)⌷⍵}1+p-⌊/p ⍝ part 2