Initial data commit

Task/Knuths-algorithm-S/Zkl/knuths-algorithm-s-1.zkl

@@ -0,0 +1,8 @@
+fcn s_of_n_creator(n){
+   fcn(item,ri,N,samples){
+      i:=ri.inc(); // 1,2,3,4,...
+      if(i<=N) samples.append(item);
+      else if ((0).random(i) < N) samples[(0).random(N)] = item;
+      samples
+   }.fp1(Ref(1),n,L())
+}

Task/Knuths-algorithm-S/Zkl/knuths-algorithm-s-2.zkl

@@ -0,0 +1,2 @@
+s3:=s_of_n_creator(3);
+[0..9].pump(List,s3,"copy").println();

Task/Knuths-algorithm-S/Zkl/knuths-algorithm-s-3.zkl

@@ -0,0 +1,6 @@
+dist:=L(0,0,0,0,0,0,0,0,0,0);
+do(0d100_000){
+   (0).pump(10,Void,s_of_n_creator(3)).apply2('wrap(n){dist[n]=dist[n]+1})
+}
+N:=dist.sum();
+dist.apply('wrap(n){"%.2f%%".fmt(n.toFloat()/N*100)}).println();