読者です 読者をやめる 読者になる 読者になる

ichirin2501's diary

いっちりーん。

SRM424 DIV2(再び)

/dev/null

perlを暫く使ってないので、前回の250pt問題に取り組んでみる。

250pt

…手が動かない、( ゚д゚)ポカーン…忘れてる。
入門サイトを見ながら思い出す。

~s/A|Z/(push@w,$&),$&/ge,~s/A|Z/pop@w/ge,print
for<>

下手なりにショートコーディング済み。
もっと短く出来そうだなぁ、perlのショートコーディングは奥が深すぎる…。

push関数の戻り値は追加された配列のサイズっぽい。

追記:10文字以上AかZがあるとバグるコードだったので書き直した。