お試し：素数計算 | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
use warnings;
print "Input Number : ";
my $num = <STDIN>;
my $count = 0;
for(my $i = 2; $i <= $num; $i++){
    my $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++);
    }
}
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX