#!/usr/local/bin/perl -w
# badly written program in the hopes it would sound nice
# - Greg McCarroll
#
# This was used to test Devel::GraphVizProf, providing
# primes.dot and thus primes.png
@known=qw(2 3 5 7);
for (1..100) {
if (check_prime($_)) {
warn "$_ is prime\n";
}
}
sub check_prime {
my ($n)=@_;
if ($n < 2) {
return 0;
}
for (1..scalar(@known)) {
if ($n==$known[$_-1]) {
return 1;
}
if (($n/$known[$_-1]) == int($n/$known[$_-1])) {
return 0;
}
}
for ($known[-1]..int(sqrt($n))) {
if (($n/$_) == int($n/$_)) {
return 0;
}
}
push(@known,$n);
return 1;
}