前回 の続き。
perl -E 'say scalar grep$_,map{$n=$_;map{substr($n,$_,1)eq 0}0..length()-1}0..1000'ちゃんと「各桁の0を数えて」います。
.... ちゃんと？
0から1000の0の数を数える(しょにょ2) [Perl]
前：
<< 0から1000の0の数を数える
[Perl]
|
次：
アリエった >>
カテゴリ:
トラックバック(0)
トラックバックURL: http://floralcompany.jp/mt/mt-tb.cgi/233
AUTHOR
- turugina (虎王 剱奈)
- E-mail: turugina {at} floralcompany.jp
2011年4月
| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
|---|---|---|---|---|---|---|
| 1 | 2 | |||||
| 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| 10 | 11 | 12 | 13 | 14 | 15 | 16 |
| 17 | 18 | 19 | 20 | 21 | 22 | 23 |
| 24 | 25 | 26 | 27 | 28 | 29 | 30 |
検索
カテゴリ
OpenID対応しています
OpenIDについて
- 警 告 -
本サイトにはいわゆる「18禁画像」(イラスト)へのリンクが存在します。
未成年の方や、その手の画像に不快感を覚える方は、
該当記事(「えちぃの」及び「ちょっとえちぃの」カテゴリ)
をご覧にならないようお願いいたします。
上記を理解した上で非表示のブログパーツを表示する
上記を理解した上で非表示のブログパーツを表示する
ついった
drawr/pixiv/twitpic
コメントする