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

雑記 - otherwise

最近はDQ10しかやっていないダメ技術者がちまちまと綴る雑記帳

0 から 1,000 までの 0 の数を数える(ブラッシュアップ版)

Perl

元ネタ: 0 から 1,000 までの 0 の数を数える
perl の -E オプションを使って print → say にすると更に短くなるとか、 (0..1000) の括弧は要らないとか。

perl -E "$a=0;$a+=s/0/0/g for 0..1000;say $a"