10 lines
392 B
Plaintext
10 lines
392 B
Plaintext
# %s/\(.\) \(.\)/"\1\2"_/
|
||
# %s/_$//
|
||
DecodeChar ← ((@S|@P)↥=@B∶=@Y.|⋅∘∶@R)↥=@A∶=@X..
|
||
CharValue ← |1 ⋅∘∶/(((3|2)=@P|⋅∘∶1)=@R.DecodeChar)
|
||
Battle ← ×3+1↥¯1↧1(∘|¯∘)×=0◿2,≠0.¯/-∵(⋅∘∶(=@P.|2)=@S.)
|
||
BattleChar ← |1 +CharValue∶Battle⊂/DecodeChar.
|
||
# @A_@X Rock -- @R
|
||
# @B_@Y Paper -- @P
|
||
# @C_@Z Scissors -- @S
|
||
/+≡BattleChar <input> |