Knuth's algorithm S: Difference between revisions

<lang elena>#import system'dynamic.

#class(extension) algorithmOp

#method s_of_n

#var counter := Integer new.

eval : ni

if (thisself length < selfn)

? [ thisself += ni. ];

! [

((randomGenerator eval:counter < selfn) bool)

? [ thisself@(randomGenerator eval:selfn) := ni. ].

^ thisself array.

#symbol program =

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

#var s_of_n := 3 s_of_n.

#var sample := s_of_n eval:n.

if (n == 9)

? [ sample run &each: i [ bin@i += 1. ]. ].

console writeLine:bin readChar.