You are here: Home → Blog → Comments → [Perl]100までの素数(mapと正規表現で)

Personal tools

« August 2009 »
Su Mo Tu We Th Fr Sa
            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 31          
 

[Perl]100までの素数(mapと正規表現で)

Posted by akihitoの日記 at 2006-06-25 18:23
遅ればせながら参戦 for my $i (2..100) { my $n = join ",",map{$i%$_} 2..$i-1; if($n !~ /^0\,/ && $n !~ /\,0/){ print "$i \n"; } } mapと正規表現で作ってみました。
Parent entry キミならどう書く 2.0 - ROUND 1 -