14.ua
1 &fras ⊣ &args 2 3 ⊜∘≠@\n. 4 5 FoldScan! ← ↘1⇌∧(⊂^0⊙⊸⊢)⊙¤ 6 7 Rounded ← -=@O⟜(+⇌∩(FoldScan!(×≠@#⟜(+=@O)) ⟜(↯⊙0△⊢))⊸⇌) 8 Steps ← -1\(×⊸+)≠@# 9 Slide ← ⨬(@.|@O|@#)+=@#⟜(>⊃Steps Rounded) 10 Cycle ← ⍥(⍉⇌Slide)4 11 Load ← /+♭×=@O⇌⟜(+1⇡⧻) 12 13 B ← ⍥Cycle ⍜-(◿:)⊙1000000000 ⟜-⊃get⋅⧻ ⍢(Cycle⟜insert⊙⊸⧻|¬has) :map.[]. 14 15 ∩Load ⊃B Slide