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

雑記 - otherwise

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

0 から 1,000 までの 0 の数を数える

Perl

C# の例は既にひどりさんが書かれているので、例によって Perl で。

$a=0;$a+=s/0/0/g for(0..1000);print $a

golf に挑戦する気は無かったんですが、それなりに短く書けました。
( 2010-07-23 追記)
タイトルで「 0 から 1,000 まで」って書いているのになぜかプログラムが 1 〜 1,000 になっていたので修正。
何を寝ぼけていたんだろうか。。。