Prime Number

素数計算(無限ループ)

素数計算(無限ループ)

  • タグ:
  • タグはありません
#!/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++); }
}