Sequence of primes by trial division: Difference between revisions

Content added Content deleted

Inline

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