/ Uiua / 2024 / 20.ua
20.ua
 1  &fras ⊣ &args
 2  
 3  ⊜∘⊸≠@\n
 4  
 5  °¤⊸path(▽≠@#:⟜⊡⊂⊃+-⋯1_2¤|=@S⊡)⊢⊚⊸=@E
 6  
 7  Solve ← (
 8    ♭₋₁⊞(⊟⟜+)⊸:▽∩♭₋₁≥/+°⍉⌵⟜:⊞⊟.⍜-⇡⊃¯+₁.
 9    ⊙⊙◌▽◡(≠@#⬚@#⊡⊣⤸1⊙⋅∘)
10    °⊟⤸1 ⊙(⍜⊡∵◌⟜⊃(°⊚|⇡⧻))
11    /+≥100-+⊃(/+⍉⌵-|∩⊡⊙,)
12  )
13  
14  ⊃(Solve20|Solve2)