commit 515bb228853d0564c5ba149313fac1fa125549b2 parent 7be6bfbcdbed236121b38d2e8e641b9387689597 Author: mpizzzle <m@michaelpercival.xyz> Date: Fri, 10 Dec 2021 21:51:50 +0000 minor formatting Diffstat:
| M | 2021/puzzle_4.apl | | | 10 | +++++----- |
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/2021/puzzle_4.apl b/2021/puzzle_4.apl @@ -3,12 +3,12 @@ input← ⎕FIO[49] 'files/4.txt' numbers← 1 + ⍎↑ input -table_rows← 1 + ⍎ ¨ ((⍴ s) ⍴ ⍉ ⊃ ⊃ { 0 < ⍴ ⍵ } ¨ s) / (s← 1↓ input) -tables← {⊃ (⊂ (5 × ⍵ ) + ⍳5)⌷ table_rows} ¨ (⍳((⍴ table_rows) ÷ 5)) - 1 +table_rows← 1 + ⍎ ¨ ((⍴ s) ⍴ ⍉ ∊ { 0 < ⍴ ⍵ } ¨ s) / s← 1↓ input +tables← {⊃ (⊂ (⍵ × 5) + ⍳5)⌷ table_rows} ¨ 1 -⍨ ⍳5 ÷⍨ ⍴ table_rows -p← { +/{ (+/+⌿(⍵ - 0 >⍨ ⍵ ) ) × ((0 ∊ +⌿⊃ ⍵ )∨ (0 ∊ +/⊃ ⍵ )) } ¨ ⍵ } -b← { ⊃ {(⍺ ≠ ⍵ ) × ⍵ }/((⌽ (⍵ ↑ numbers)),⊂ tables) } +p← { +/{ (+/+⌿⍵ - 0 >⍨ ⍵ ) × (0 ∊ +⌿⊃ ⍵ )∨ 0 ∊ +/⊃ ⍵ } ¨ ⍵ } +b← { ⊃ { ⍵ × ⍺ ≠ ⍵ }/(⌽ ⍵ ↑ numbers),⊂ tables } -(i⊃ a) × ((i← ↑ { ⍵ / 1 t⍴ ⍳t← ≢ ⍵ } a← {p b ⍵ } ¨ ⍳⍴ numbers > 0) ⊃ numbers) - 1 ⍝ part 1 +(i⊃ a) × ((i← ↑ { ⍵ /1 t⍴ ⍳t← ≢ ⍵ } a← {p b ⍵ } ¨ ⍳⍴ numbers > 0) ⊃ numbers) - 1 ⍝ part 1 )OFF