Perlでの素数判定プログラム

取り敢えず簡易な素数判定プログラム。
使用言語は perl。

Nが 2から√Nまで の整数で割り切れないと素数だと判定している。

次のプログラムは 3以上の整数 しか判定できない。

=====ここから=====
use strict;
use warnings;

# input number
chomp(my $num = <>);

foreach my $i (2 .. int sqrt $num) {
  if ($num % $i == 0) {
    print "Non prime.\n";
    exit;
  }
}

print "$num is Prime number.\n";
=====ここまで=====

$num は必要な数字を入力してあってもいい。


素数とは、
「2以上の整数の中で、1と自分自身以外で割り切れない数」
とよく言われる。

細かく説明すると次のようなことである。
　6は2と3から作ることが出来る為、6は合成数という。
　様々な数が合成することで作れる。
　合成することが出来ない数が素数である。

このような理由から 1は素数にならない。
1は何にかけてもかけられた数になる為。