Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Sorting-algorithms-Sleep-sort/Erlang/sorting-algorithms-sleep-sort.erl
+++ b/Task/Sorting-algorithms-Sleep-sort/Erlang/sorting-algorithms-sleep-sort.erl
@ -0,0 +1,18 @@
+#!/usr/bin/env escript
+%% -*- erlang -*-
+%%! -smp enable -sname sleepsort
+
+main(Args) ->
+    lists:foreach(fun(Arg) ->
+                          timer:send_after(5 * list_to_integer(Arg), self(), Arg)
+                  end, Args),
+    loop(length(Args)).
+
+loop(0) ->
+    ok;
+loop(N) ->
+    receive
+        Num ->
+            io:format("~s~n", [Num]),
+            loop(N - 1)
+    end.