Perlもちょこっと

memo anarchy golf

気分転換にPerlにも手を出してみた。
場合にもよるだろうけど、やっぱりゴルフするには向いてるなあ。
Rubyも出力がpだけでできたりして反則的だと思うけど。

echo

なんとか最短の7Bできた。
どう考えても8B以下って無理じゃないかと思ってたら、ブロックの最後の文にはセミコロン付けなくても大丈夫だったのね。
特殊変数とか使ったことなかったから、練習も兼ねてこっちも少しづつ進めてみようかな。

print<>

delete blank lines

こっちはCで。
改行のみの行を消して出力しろとのこと。
三項演算子の真の場合の所が省略できるのを使って、改行だけの場合のみ何もしないようにして46B。
これ以上縮む気がしないけどトップは25B。
どうやってるんだろう？main再帰？

char c[99];

main()
{
  for(; gets(c);)
    !*c ? : puts(c);
}