Select Code to Download

use strict;
use warnings;
...

    return not vec( $sieve, $toTest, 1 );
}

75 is not prime
169 is not prime
...
369 is not prime
8794 is not prime
9227 is prime

# Script to find prime numbers up to a given limit using
# the algorithm called "The Sieve of Eratosthenes." The
...
{
    print qq{$value is a prime\n} unless vec($sieve, $value, 1);
}