17.ua
1 # Experimental! 2 3 &fras ⊣ &args 4 5 ⊃↙↘3⊜⋕⊸∊+@0⇡10 6 7 Combo ← ⊏⊗:⇡3-4⊙⊂⟜: 8 9 Adv ← ⍜⊢⍜⋯𝄈↘:⊸Combo 10 Bxl ← ⍜⊏₁⍜∩⋯⬚0≠: 11 Bst ← ⍜⊏₁◌:◿8⊸Combo 12 Jnz ← ⨬(◌|⊙(-2|◌):)≠0⊢, 13 Bxc ← ⍜↘₁⍜°⊟⊸⍜∩⋯⬚0≠◌ 14 Out ← ⊙⊙⊙⊂⤚⋅⊙⊙⊙∘◿8⊸Combo 15 Bdv ← ⍜⊏₁◌:⍜⋯𝄈↘⊢,⊸Combo 16 Cdv ← ⍜⊏₂◌:⍜⋯𝄈↘⊢,⊸Combo 17 18 Step ← ⊙+₂⨬(Adv|Bxl|Bst|Jnz|Bxc|Out|Bdv|Cdv) °⊟⊏+⇡2◡⋅⊙∘ 19 Run ← ⋅⋅◌⍢(Step|>⋅⊙⧻)⊙(0|[]) 20 21 Check ← ≍⊙↙: ¯⊙(⊸Run⍜⊢◌:) 22 23 ◠(/◇(⊂⊂)@,°⋕Run) 24 /↧⊣⊣⍉ path(▽:⟜≡(Check°⊟)⊙∩¤+⍉⊟0⇡8¤⍜°⊟⊓+₁×₈|=⊓⊢⋅⧻)0_0 25 ∩&p