Knuth's algorithm S: Difference between revisions

<lang elena>#import system'dynamic.

#import extensions.

#import system'routines.

#import system'collections.

^ ArrayList new; mix &intomixInto:

counter += append:1.

[ self += append:i. ];

(if(randomGenerator eval:counter < n) bool)

? [ self@([randomGenerator eval:n)] := i. ].

^ self array.

var bin := Array new:10; set &every:populate(&index:n) [( Integer new ]).

0 till:10000 &doEachdo(: trial)

0 till:10 &doEachdo(:n)

[ sample run &eachforEach(: i) [ bin@[i] += append:1. ]. ].

].

console writeLineprintLine:bin; readChar.