Sequence of primes by trial division: Difference between revisions

m
Line 1,866:
lazy_list(accumulate, 1/W, L).
 
accumulate(M/[A|As], N/As, N) :- plus(N is M, A,+ N)A.
 
roll235wheel(Limit, A) :-
wheel235(W),
Line 1,895 ⟶ 1,894:
X = 997.
</pre>
 
=={{header|PureBasic}}==
<lang PureBasic>EnableExplicit
357

edits