Sieve of Eratosthenes
Davide Varvello
d.varvello at quinary.com
Wed Oct 11 11:35:25 UTC 2006
Hi All,
Moreover, there was a mistake in my code, the right one is this:
runOn: aNumber
| sieve |
sieve := Array new: aNumber withAll: true.
sieve at: 1 put: false.
2 to: aNumber do: [:i | (sieve at: i) ifTrue: [2*i to: aNumber by:
i do: [:k | sieve at: k put: false] ]
bye
Davide
More information about the Squeak-dev
mailing list
|