$ 467..114.. $ ...*...... $ ..35..633. $ ......#... $ 617*...... $ .....+.58. $ ..592..... $ ......755. $ ...$.*.... $ .664.598.. TestInput ← Table ← ⊜(⊂:@.)≠@\n. Adjacency ← ↯¯1_2-1⇡3_3 Numbers ← ⊜⋕×⊃(≤@9|≥@0).♭ Classify ← ⍜(♭|⍜(⊜□|≡(□↯⧻°□)⊃(∘|+@\x80⇡⧻))×⊃(≤@9|≥@0).) PartI ← ( ×⊃(<@\x80|≠@.|∘) ≡(↥↥⬚0⊃(↻1|↻¯1|∘))↥↥⬚0⊃(↻1|↻¯1|∘) /+⊏-@\x80⊝▽≥@\x80.▽∩♭ ) PartII ← ( ⊚=@*. ⊠+:Adjacency ≡(□⊝▽≥@\x80.≡(⊡)⊙¤)⊙¤ /+≡(/×⊏-@\x80°□)⊙¤▽=2≡⧻. ) ⊃(Classify|Numbers) Table TestInput ⊃(PartI|PartII) ⊃(Classify|Numbers) Table &fras "day03.in" ⊃(PartI|PartII)