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