Family Day update

Task/Sorting-algorithms-Sleep-sort/Emacs-Lisp/sorting-algorithms-sleep-sort.l

@@ -0,0 +1,2 @@
+(dolist (i '(3 1 4 1 5 92 65 3 5 89 79 3))
+  (run-with-timer (* i 0.001) nil 'message "%d" i))

Task/Sorting-algorithms-Sleep-sort/Pike/sorting-algorithms-sleep-sort.pike

@@ -0,0 +1,21 @@
+#!/usr/bin/env pike
+
+int main(int argc, array(string) argv)
+{
+        foreach(argv[1..], string value)
+        {
+                int v = (int)value;
+                if(v<0)
+                        continue;
+                call_out(print, v, value);
+        }
+        return -1;
+}
+
+void print(string value)
+{
+        write("%s\n", value);
+        if(find_call_out(print)==-1)
+                exit(0);
+        return;
+}