Rosetta Code

Concatenate two primes is also prime: Difference between revisions

Page Discussion

Concatenate two primes is also prime (view source)

Revision as of 14:13, 29 August 2021

284 bytes removed ,  2 years ago
→‎{{header|ALGOL 68}}: Use ALGOL 68-primes
(→‎{{header|ALGOL 68}}: Use ALGOL 68-primes)
Line 10:
INT max prime = max low prime * max low prime;
# sieve the primes to max prime #
PR read "primes.incl.a68" PR
[ 1 : max prime ]BOOL prime;
prime[ 1 ] := FALSE;BOOL prime[ 2= ]PRIMESIEVE :=max TRUEprime;
FOR i FROM 3 BY 2 TO UPB prime DO prime[ i ] := TRUE OD;
FOR i FROM 4 BY 2 TO UPB prime DO prime[ i ] := FALSE OD;
FOR i FROM 3 BY 2 TO ENTIER sqrt( UPB prime ) DO
IF prime[ i ] THEN FOR s FROM i * i BY i + i TO UPB prime DO prime[ s ] := FALSE OD FI
OD;
# construct a list of the primes up to the maximum low prime to consider #
[ 1 : max low prime ]INT low prime;
Tigerofdarkness
3,044

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/314315"