嘘を吐いてまでgolfしたが、%20さんのperlに敗北した。そのうち撃墜されてしまうはず。

implementation

嘘解法 $40$byte bash + sed (https://yukicoder.me/submissions/152438):

#!/bin/bash
sed -e/{^XX/cWe,OOO/cEa,XXX/cWe}st -ecNA

普通に実装したやつ:

#!/bin/sed -f
:
/^OOO/cEast
/^XXX/cWest
s/.//
t
cNA