9 lines
284 B
Text
9 lines
284 B
Text
using Combinatorics
|
|
using Primes
|
|
|
|
function descendingprimes()
|
|
return sort!(filter(isprime, [evalpoly(10, x)
|
|
for x in powerset([1, 2, 3, 4, 5, 6, 7, 8, 9]) if !isempty(x)]))
|
|
end
|
|
|
|
foreach(p -> print(rpad(p[2], 10), p[1] % 10 == 0 ? "\n" : ""), enumerate(descendingprimes()))
|