10 lines
240 B
Text
10 lines
240 B
Text
|
enum RID, I, SAMPLE, CLOSURE_LEN=$
|
||
|
|
...
|
||
|
|
function s_of_n_creator(int n)
|
||
|
|
sequence closure = repeat(0,CLOSURE_LEN)
|
||
|
|
closure[RID] = routine_id("s_of_n")
|
||
|
|
closure[I] = 0
|
||
|
|
closure[SAMPLE] = repeat(0,n)
|
||
|
|
return closure
|
||
|
|
end function
|