Pandigital prime: Difference between revisions
→{{header|Ring}}: streamlined, added optional task
(→{{header|Raku}}: updated for optional task) |
(→{{header|Ring}}: streamlined, added optional task) |
||
Line 510:
=={{header|Ring}}==
<lang ring>see "working..." + nl
see "working..." + nl▼
▲see "The largest pandigital prime is:" + nl
▲limit = 7654321
▲for n = limit to 2 step -2
▲ flag = 1
strn = string(n) ▼
if isprime(n)▼
for m = 1 to len(strn)▼
ind = count(strn,string(m))▼
if ind != 1▼
flag = 0▼
▲ ok
next▼
if flag = 1▼
pand = n▼
exit▼
ok ▼
ok
for n = hi to 0 step -18
pandig = true
pandig = false
▲ next
if pandig and isprime(n)
next
next
if n % 3 = 0
return false
▲see "done..." + nl
ok
i = 5
while
ok
return true</lang>
{{out}}
<pre>
The largest 1..7 pandigital prime is
The largest 0..7 pandigital prime is 76540231
done...
</pre>
| |||