perlを暫く使ってないので、前回の250pt問題に取り組んでみる。
250pt
…手が動かない、( ゚д゚)ポカーン…忘れてる。
入門サイトを見ながら思い出す。
~s/A|Z/(push@w,$&),$&/ge,~s/A|Z/pop@w/ge,print
for<>
下手なりにショートコーディング済み。
もっと短く出来そうだなぁ、perlのショートコーディングは奥が深すぎる…。
push関数の戻り値は追加された配列のサイズっぽい。
追記:10文字以上AかZがあるとバグるコードだったので書き直した。