Add tasks for all the new languages

Task/Knuths-algorithm-S/Sidef/knuths-algorithm-s.sidef

@@ -0,0 +1,29 @@
+func s_of_n_creator(n) {
+    var i = 0
+    var sample = []
+    { |item|
+        if (++i <= n) {
+            sample << item;
+        }
+        elsif (i.rand < n) {
+            sample[n.rand] = item;
+        }
+        sample;
+    }
+}
+
+var items = 0..9;
+var bin = [];
+
+100000.times {
+    var s_of_n = s_of_n_creator(3);
+    var sample = []
+    for item in items {
+        sample = s_of_n(item);
+    }
+    for s in sample {
+        bin[s] := 0 ++;
+    }
+}
+
+say bin;