10001th prime: Difference between revisions

m
Line 513:
findnsols(Index, N, isPrime(N), PrimeList),!,
last(PrimeList, PrimeAtIndex),
format('prime(~wd) is ~wd', [Index, PrimeAtIndex]), nl.</syntaxhighlight>
{{out}}
<pre>?- do.
64

edits