Pandigital prime: Difference between revisions
Content added Content deleted
(→{{header|ALGOL 68}}: Combine the 1..n and 0..n solutions into one) |
m (→{{header|REXX}}: corrected test for primality.) |
||
Line 455: | Line 455: | ||
do k=$ by -1 for $ /*start with $ and search downwards. */ |
do k=$ by -1 for $ /*start with $ and search downwards. */ |
||
if verify($, k)>0 then iterate /*$ pandigital? No, skip. _____ */ |
if verify($, k)>0 then iterate /*$ pandigital? No, skip. _____ */ |
||
do d=1 |
do d=1 for #; p= @.d /*divide by all the primes ≤ √ K */ |
||
if p*p>k |
if p*p>k then iterate k /*Is prime squared>K? Then try next K.*/ |
||
if k//p==0 |
if k//p==0 then iterate k /*Is K ÷ by this prime? " " " " */ |
||
leave j /*We found the largest pandigital num.*/ |
|||
end |
end |
||
leave j |
|||
end /*k*/ |
end /*k*/ |
||
end /*j*/ |
end /*j*/ |
||
Line 485: | Line 485: | ||
{{out|output|text= when using the internal default input:}} |
{{out|output|text= when using the internal default input:}} |
||
<pre> |
<pre> |
||
the largest prime pandigital number is: 7, |
the largest prime pandigital number is: 7,652,413 |
||
</pre> |
</pre> |
||