Descending primes: Difference between revisions
Content added Content deleted
Line 1,259: | Line 1,259: | ||
combi(N, [9, 8, 7, 6, 5, 4, 3, 2, 1], CList), |
combi(N, [9, 8, 7, 6, 5, 4, 3, 2, 1], CList), |
||
atomic_list_concat(CList, Tmp), % swi specific |
atomic_list_concat(CList, Tmp), % swi specific |
||
atom_number(Tmp, Num), |
atom_number(Tmp, Num), % int_list_to_number |
||
isPrime(Num). |
isPrime(Num). |
||
Line 1,271: | Line 1,271: | ||
showList(DList). |
showList(DList). |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
{{out}} |
|||
<pre> |
|||
?- do. |
|||
2 3 5 7 31 41 43 53 61 71 |
|||
73 83 97 421 431 521 541 631 641 643 |
|||
653 743 751 761 821 853 863 941 953 971 |
|||
983 5431 6421 6521 7321 7541 7621 7643 8431 8521 |
|||
8543 8641 8731 8741 8753 8761 9421 9431 9521 9631 |
|||
9643 9721 9743 9851 9871 75431 76421 76541 76543 86531 |
|||
87421 87541 87631 87641 87643 94321 96431 97651 98321 98543 |
|||
98621 98641 98731 764321 865321 876431 975421 986543 987541 987631 |
|||
8764321 8765321 9754321 9875321 97654321 98764321 98765431 |
|||
true. |
|||
</pre> |
|||
=={{header|Prolog}}== |
=={{header|Prolog}}== |