Rosetta Code

Pandigital prime: Difference between revisions

Page Discussion

Pandigital prime (view source)

Revision as of 21:34, 11 September 2021

595 bytes removed ,  2 years ago
m
→‎{{header|Julia}}: 0 through 9 or 1 through 9
m (→‎{{header|Julia}}: 0 through 9 or 1 through 9)
Line 314:
=={{header|Julia}}==
<lang julia>using Primes
 
 
function pandigitals(firstdig, lastdig)
Line 336 ⟶ 335:
end
</lang>{{out}}
<pre>
 
function pandigitals(firstdig, lastdig)
mask = primesmask(10^(lastdig - firstdig + 1))
for j in lastdig:-1:firstdig
n = j - firstdig + 1
for i in evalpoly(10, firstdig:j):-1:evalpoly(10, j:-1:firstdig)
if mask[i]
d = digits(i)
if length(d) == n && all(x -> count(y -> y == x, d) == 1, firstdig:j)
return i
end
end
end
end
return 0
end
 
for firstdigit in [1, 0]
println("Max pandigital prime over [$firstdigit, 9] is ", pandigitals(firstdigit, 9))
end
<pre>
Max pandigital prime over [1, 9] is 7652413
Wherrera
4,102

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/315726"