Knuth's algorithm S: Difference between revisions

Content added Content deleted
(→‎{{header|PARI/GP}}: Really? You want output for a self-reported incomplete solution?)
Line 466:
let i = ref 0
and sample = ref [| |] in
functionfun item ->
incr i;
if !i <= n then sample := Array.append [| item |] !sample