On 06 Oct 2011, at 16:58, Levente Uzonyi wrote: > Here's a version optimized for readibility & loc: > > Array streamContents: [ :primeStream | > | sieve | > sieve := Array new: 100 withAll: true. > 2 to: sieve size do: [ :each | > (sieve at: each) ifTrue: [ > primeStream nextPut: each. > each * each to: sieve size by: each do: [ :eachMultiple > | > sieve at: eachMultiple put: false ] ] ] ].
That is indeed a cooler version. Thanks for the feedback, Levente ! Sven
