perl - 100までの素数 : 404 Blog Not Found

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)' なんでこれで素数判定できるかは、読者の宿題。 最後に、割とけれん

[Cherenkov]

正規表現で素数判定

[yshl]

正規表現版

[hakobe932]

弾さんによる素数

[j708]

[%][le][素数][Perl][$][my][return][use]

[kkobayashi]

普通はテーブル使うよね、というのは反則だろうなあ。

[niyagawa]

タンカレートニックふいた