Concatenate two primes is also prime: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: simplified a DO loop.) |
m (→{{header|REXX}}: aligned a statement and comment.) |
||
Line 177: | Line 177: | ||
do k=1 for ##; cat2= @.j || @.k /*create a concatenated prime (base 10)*/ |
do k=1 for ##; 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 /*j*/ |
end /*j*/ |
||
found= 0; idx= 1 /*initialize # of primes found; IDX. */ |
found= 0; idx= 1 /*initialize # of primes found; IDX. */ |