0から1000の0の数を数える [Perl]

前： << vimメモ：zero-width positive|negative look-ahead|behind [Perl] [misc] | 次： 0から1000の0の数を数える(しょにょ2) [Perl] >>

turugina (2010年7月23日 00:18) | コメント(0) | トラックバック(1)

ネタ元達 -> http://blogs.wankuma.com/episteme/archive/2010/07/22/191478.aspx
http://blogs.wankuma.com/andochin/archive/2010/07/22/191446.aspx
http://blogs.wankuma.com/esten/archive/2010/07/22/191451.aspx
http://hidori.spaces.live.com/Blog/cns!F11BB9FD8E1BC5F9!2495.entry
http://gist.github.com/415551 http://d.hatena.ne.jp/os0x/20081115/1226770265
http://d.hatena.ne.jp/mzp/20081115/countzero
http://d.hatena.ne.jp/rubikitch/20081112/1226490264
http://rubyist.g.hatena.ne.jp/krystal/20081110

んで、 perl で one-liner

perl -E 'say scalar grep!$_,map{split//}0..1000'

# ネタ元の紹介の方が長いとかどういう...

トラックバック(1)

トラックバックURL: http://floralcompany.jp/mt/mt-tb.cgi/232

FloralCompany.log - 0から1000の0の数を数える(しょにょ2) (2010年7月27日 01:31)

前回の続き。 perl -E 'say scalar grep$_,map{$n=$_;map{substr($n,$_,1)eq 0}0..length()-1}0..1000' ちゃんと「各桁の0を数えて」います。 .... ちゃんと？... 続きを読む

コメントする

名前

電子メール

URL

ログイン情報を記憶

コメント