22 lines
447 B
Text
22 lines
447 B
Text
link factors
|
|
|
|
procedure main(A)
|
|
every writes(" ",descprimes())
|
|
write()
|
|
end
|
|
|
|
# Blatantly stolen from Lua example..
|
|
procedure descprimes()
|
|
primes := []
|
|
digits := [: 9 to 1 by -1 :]
|
|
candidates := [0]
|
|
|
|
every i := 1 to *digits do
|
|
every j := 1 to *candidates do {
|
|
value := 10*candidates[j] + digits[i]
|
|
put(primes, (isprime(value),value))
|
|
put(candidates, value)
|
|
}
|
|
|
|
suspend !sort(primes)
|
|
end
|