18.ua
1 &fras ⊣ &args 2 3 ParseInst ← ⊃↘↙2 ↘1⊢regex"^([RDLU]) (\\d+) \\(#(.{5})([0123])\\)$" 4 ParseHex ← ∧(+×16:)⊙0⊗⊙"0123456789abcdef" 5 ParseA ← ≡⍜°⊟⊓(⊗⊙"RDLU"◇⊢|⋕) 6 ParseB ← ≡(⍜°⊟⊓(⋕|ParseHex°□)⇌) 7 Solve ← ( 8 ⊙(0 0 0) 9 ◌∧(⊃(⨬(+|◌|-|◌)|⨬(◌|+|◌|-)⊙×|+⋅⊙⋅⋅∘)°⊟) 10 +1+÷2: 11 ) 12 13 ⊜ParseInst≠@\n. 14 ∩Solve ⊓ParseB ParseA