Perlで素数判定と近隣素数の探索 2006-08-15-2 [Programming][Algorithm] ハッシュのサイズを決める際に、 ある数に近い素数が欲しいと思うことがあったりします。 例えば「1000000に近い素数が欲しい!」など。 ということでPerl版の素数判定&近隣素数探索プログラムです。 素数判定は下記を参考にしました。 - 素数判定 - Wikipedia http://ja.wikipedia.org/wiki/%E7%B4%A0%E6%95%B0%E5%88%A4%E5%AE%9A 以下、ソースと実行例。 ソース(prime.pl): #!/usr/bin/perl use strict; use warnings; my $n = shift @ARGV; my $prime = is_prime($n); if ($prime) { print "$n i
![Perlで素数判定と近隣素数の探索](https://cdn-ak-scissors.b.st-hatena.com/image/square/af37977ee866988286b95e74fff98500a190545c/height=288;version=1;width=512/https%3A%2F%2Fchalow.net%2Fimages%2Ftcl-logo-25.png)