■

エラトステネスの篩 - Wikipediaをまっすぐ実装した。つもり。

#!/usr/bin/perl -w
use strict;

my ($n) = @ARGV;
my @searchList = 2..$n;
my @primes;
while(@searchList and $searchList[@searchList-1] > $n**0.5){
  my $prime = shift @searchList;
  push @primes, $prime;
  @searchList = grep{$_ % $prime!=0} @searchList;
}
push @primes, @searchList;
print join(",", @primes),"\n";

↑のをprimes.plに保存して、
> ./primes.pl 10
2,3,5,7
>
みたいな感じになる。