ouyou7

ouyou7.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $num;
my @prime;

print "2より大きい数字を１つ入力して下さい。>>";
$num = <STDIN>;
chomp $num;
push @prime, 2;

# まず、お題の2からnまでの数字について、順番に考察するループ
for my $i(2..$num){

  # 1つずつ取り出した数字が素数かどうか検討し、素数であれば出力する。
  for my $p (@prime){
    if ($i % $p == 0){
      last;
    }
    if ($p == $prime[-1]){
      push @prime, $i;
    }
  }
}

print join ', ', @prime;
print "\n";