Pandigital prime: Difference between revisions
Added Sidef
(Pandigital prime en FreeBASIC) |
(Added Sidef) |
||
Line 640:
<pre>7652413
76540231
</pre>
=={{header|Sidef}}==
<lang ruby>func largest_pandigital_prime(base = 10, a = 1, b = base-1) {
for n in (b `downto` 1) {
var digits = @(a..n -> flip)
if (base == 10) { # check for divisibility by 3
digits.sum % 3 == 0 && next
}
digits.permutations { |*p|
var v = p.flip.digits2num(base)
return v if v.is_prime
}
}
return nil
}
say ("Max pandigital prime over [1, 9] is: ", largest_pandigital_prime(a: 1))
say ("Max pandigital prime over [0, 9] is: ", largest_pandigital_prime(a: 0))</lang>
{{out}}
<pre>
Max pandigital prime over [1, 9] is: 7652413
Max pandigital prime over [0, 9] is: 76540231
</pre>
|