Perlで素数判定。
for(1..100){ if (2 ** ($_ - 1) % $_ == 1 || $_ == 2) { print "$_ は素数\n"; } else { print "$_ は×\n"; } }
結果
1 は× 2 は素数 3 は素数 4 は× 5 は素数 6 は× 7 は素数 8 は× 9 は× 10 は× 11 は素数 12 は× 13 は素数 14 は× 15 は× 16 は× 17 は素数 18 は× 19 は素数 20 は× 21 は× 22 は× 23 は素数 24 は× 25 は× 26 は× 27 は× 28 は× 29 は素数 30 は× 31 は素数 32 は× 33 は× 34 は× 35 は× 36 は× 37 は素数 38 は× 39 は× 40 は× 41 は素数 42 は× 43 は素数 44 は× 45 は× 46 は× 47 は素数 48 は× 49 は× 50 は× 51 は× 52 は× 53 は素数 54 は× 55 は× 56 は× 57 は× 58 は× 59 は素数 60 は× 61 は素数 62 は× 63 は× 64 は× 65 は× 66 は× 67 は素数 68 は× 69 は× 70 は× 71 は素数 72 は× 73 は素数 74 は× 75 は× 76 は× 77 は× 78 は× 79 は素数 80 は× 81 は× 82 は× 83 は素数 84 は× 85 は× 86 は× 87 は× 88 は× 89 は素数 90 は× 91 は× 92 は× 93 は× 94 は× 95 は× 96 は× 97 は素数 98 は× 99 は× 100 は×
参考サイト
http://www.fuchu.or.jp/~d-logic/jp/jprim.html