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 ## |
do j=1 for ## /*search through specified primes. */ |
||
do k=1 for ## |
do k=1 for ## /* " " " " */ |
||
cat2= |
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. */ |