0 から 1,000 までの 0 の数を数える(ブラッシュアップ版)
元ネタ: 0 から 1,000 までの 0 の数を数える
perl の -E オプションを使って print → say にすると更に短くなるとか、 (0..1000) の括弧は要らないとか。
perl -E "$a=0;$a+=s/0/0/g for 0..1000;say $a"
元ネタ: 0 から 1,000 までの 0 の数を数える
perl の -E オプションを使って print → say にすると更に短くなるとか、 (0..1000) の括弧は要らないとか。
perl -E "$a=0;$a+=s/0/0/g for 0..1000;say $a"