You are here: Home → Blog → Comments → [Perl][pugs] 100までの素数 Perl6 / pugs 版

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][pugs] 100までの素数 Perl6 / pugs 版

Posted by 酒日記 はてな支店 at 2006-06-26 22:50
Perl6 (pugs) で動くようにしてみた。 #!/usr/bin/pugs my $max = @*ARGS.pop || 100; my @primes = (2); for (3..$max) -> $n { @primes.push($n) if @primes.before_incl:{ sqrt $n <= $_ }.all:{ $n % $_ }; } @primes.join(' ').say; sub all (@lis
Parent entry キミならどう書く 2.0 - ROUND 1 -