Sieve of Eratosthenes: Difference between revisions
Content deleted Content added
Line 13,666:
endfor
( 1 limit 0 ) remove
pstack</lang>
Another solution
<lang Phixmonti>include ..\Utilitys.pmt
1000
( "Primes in " over ": " ) lprint
2 swap 2 tolist for >ps
2
dup tps < while
tps over mod 0 == if false else 1 + true endif
over tps < and
endwhile
tps < ps> swap if drop endif
endfor
pstack</lang>
|