diff --git a/p24.dyalog b/p24.dyalog
index 8fa8c80..e329a82 100644
--- 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