CODE FESTIVAL 2016 Relay: B - 鏡文 / Mirror String
hanada3355さんが自明に$1$byte縮む解を出してたから提出しなおした。 %20さんのも気になったから弄ったら$1$byte縮んだ。両方$47$byteの暫定最短になった。
implementation
私が何も見ずに書いたperl $51$byte。
s/\n//,print(reverse cmp y/bdpq/dbqp/r?No:Yes)for<>
%20さんの提出は同様の方向性の$48$byteで、$_=$/.<>
で先頭に改行を付与し、cmp
でなく=~
で一致判定するもの。