素数計算 | Codetter（こーどったー）

#!/usr/bin/perl
my $count = 0;
for(my $i = 2, my $f = 0; 1; $i++, $f = 0){
    for(my $j = $i - 1; $j > 1; $j--){
        if($i % $j == 0 && $i != 1){ $f = 1; }
    }
    if($f==0){ printf("%d\n", $i,$count++); }
}