I'm more worried about this part.

[ 10000 timesRepeat: [ | c | 
                c  := OrderedCollection new. 
                c add: 1.
                 2 to: 10000 do: [ :i | 
                        c add: i beforeIndex: (c atRandom) ] ] ] timeToRun "5 
min. 30 s."

Stephan

Reply via email to