Perl Prime Number

このエントリーをはてなブックマークに追加このエントリのはてなブックマーク数このエントリをLivedoor Clipに追加このエントリをYahoo!ブックマークに追加このエントリをFC2ブックマークに追加このエントリをNifty Clipに追加このエントリをつぶやく

素数計算(無限ループ)

#!/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++); }
}

Posted by at 2015/3/10 3:19

よく投稿されているコード

タグ

最近投稿されたコード