takeru-c https://blog.hatena.ne.jp/takeru-c/ パンプキンスパイスラテ https://pumpkin.hatenablog.jp/ 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 は× … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fpumpkin.hatenablog.jp%2Fentry%2F20081203%2F1228319519" title="Perlで素数判定。 - パンプキンスパイスラテ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-12-03 00:51:59 rich https://pumpkin.hatenablog.jp/entry/20081203/1228319519 1.0 100%