Pierpont primes: Difference between revisions

# construct a sieve of primes up to 10 000 #

PR read "primes.incl.a68" PR

# returns the minimum of a and b #

PROC min = ( INT a, b )INT: IF a < b THEN a ELSE b FI;