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;

Task/Knuths-algorithm-S/Swift/knuths-algorithm-s.swift

@@ -0,0 +1,28 @@
+import Darwin
+
+func s_of_n_creator<T>(n: Int) -> T -> [T]  {
+  var sample = [T]()
+  var i = 0
+  return {(item: T) in
+    i++
+    if (i <= n) {
+      sample.append(item)
+    } else if (Int(arc4random_uniform(UInt32(i))) < n) {
+      sample[Int(arc4random_uniform(UInt32(n)))] = item
+    }
+    return sample
+  }
+}
+
+var bin = [Int](count:10, repeatedValue:0)
+for trial in 0..<100000 {
+  let s_of_n: Int -> [Int] = s_of_n_creator(3)
+  var sample: [Int] = []
+  for i in 0..<10 {
+    sample = s_of_n(i)
+  }
+  for s in sample {
+    bin[s]++
+  }
+}
+println(bin)