読者です 読者をやめる 読者になる 読者になる

パンプキンスパイスラテ

IT系のことが多めの日記帳です

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

関連:Javascriptで素数判定 - パンプキンスパイスラテ