Concatenate two primes is also prime: Difference between revisions

Content added Content deleted
(→‎{{header|REXX}}: added the computer programming language REXX.)
m (→‎{{header|REXX}}: simplified code.)
Line 174: Line 174:
if cols>0 then say '───────┼'center("" , 1 + cols*(w+1), '─')
if cols>0 then say '───────┼'center("" , 1 + cols*(w+1), '─')
a.= 0 /*array of "2cat" primes */
a.= 0 /*array of "2cat" primes */
do j=1 for ##; p1= @.j /*search for "cat2" primes. */
do j=1 for ## /*search through specified primes. */
do k=1 for ##; p2= @.k /*search through allowable primes. */
do k=1 for ## /* " " " " */
cat2= p1 || p2 /*create a concatenated prime (base 10)*/
cat2= @.j || @.k /*create a concatenated prime (base 10)*/
if !.cat2 then a.cat2= 1 /*flag it as being a "2cat" prime. */
if !.cat2 then a.cat2= 1 /*flag it as being a "2cat" prime. */
end /*k*/ /* [↑] forgoes the need for sorting. */
end /*k*/ /* [↑] forgoes the need for sorting. */
Retrieved from "https://rosettacode.org/wiki/Concatenate_two_primes_is_also_prime"