昨日に引き続き今日もあなごる on perl。
とりあえず1位になれそうなやつでお題がややこしくないもの探してみた。
そんなわけで、
rotate lines
rotate lines reversely
この2個で同率1位とりました。っと言ってもプログラムのサイズが同じなら先に解いたほうが順位が上になるんだけどねorz
なので正確には8位と2位。rotate lines reverselyはもっと早く気づいてたら1位取れたかもしれないなぁ。。。残念。もっとプログラムを短く出来ればいいけど、もう無理。多分。
ちなみにrotate linesはある特殊変数に気づかないとここまで短くならない。こんな特殊変数、普通のプログラムじゃ使わないような機能なんだけどね。
本当はもうちょっと難しいお題とかやってみたいぜ。。。でも、そんなお題をゆっくりやってる精神的な余裕がない今日この頃。
作成日:2009/02/19 02:02:46