Yukicoder No.495 (^^*) Easy
perl $30$byteを提出。
print~~s/\*\)//g,$",y/*//for<>
左向き*)
を数えつつ除去し、残る*
を数えれば右向きの数になる。
s///g
はlistを返すので~~
は整数化、y///
は整数を返すのでそのまま。
鑑賞
tailsさんがperl $29$byteを出してた: http://yukicoder.me/submissions/159554
... for ~ <>
として各文字反転させることで\
によるescapingを不要にしている。