2006年06月16日22:00 カテゴリLLの夏Lightweight Languages perl - 100までの素数 なに前哨戦とな? キミならどう書く 2.0 - ROUND 1 - ? Lightweight Language Ring お題は「100までの整数から素数を列挙せよ」です.まずはCPANから。Perlから、と言わないところがミソ。 perl -MMath::Prime::XS=primes -le '$,=" "; print primes(100)' primesをsieve_primesとするとさらに高速。$,の使い方にも注目。 次にabigailの傑作の変種。 perl -le '$,=" "; print grep { (1 x $_) !~ /^(11+)\1+$/ } (2..100)' なんでこれで素数判定できるかは、読者の宿題。 最後に、割とけれん
![perl - 100までの素数 : 404 Blog Not Found](https://cdn-ak-scissors.b.st-hatena.com/image/square/5e2fbfb77accd517a0faf79d975456f913e6de4c/height=288;version=1;width=512/https%3A%2F%2Flivedoor.blogimg.jp%2Fdankogai%2Fimgs%2F0%2Fb%2F0bf8fb6b.jpg)