世界のナベアツ　ワンライナー

ここまで短く出来た。ただしリターンキー押しっぱなしの補助がいる、変な言い方を空行で代用している。

perl -pe"$_=$.if$.%3&&$.!~/3/

まあ普通はこのあたりが適当だろうか。

perl -e"print map{$_%3&&!/3/?$_.' ':'nabe! '}(1..99)

このあたりなら他言語使用者にもわかりやすいかもしれないが、やっぱり長い。

perl -e"while(++$i < 99){if(($i % 3) and ($i !~ /3/)){print $i, ' ';}else{print 'nabe! '}}"

補天鳥保管庫さんhttp://d.hatena.ne.jp/hsada/20080411/1207842678を読んでforの存在忘れてたことに気づく。ガーン。print と mapの間の空白に当たる一文字分節約。

perl -e "for(1..99){print$_%3&&!/3/?$_.' ':'nabe! '}