Advertisement
Guest User

Untitled

a guest
Jun 15th, 2011
1,000
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Erlang 0.26 KB | None | 0 0
  1. -module(sleepsort).
  2. -export([sort/1]).
  3.  
  4. % hacky short (still readable) sleepsort, see http://news.ycombinator.com/item?id=2657738
  5.  
  6. sort(Xs) ->  
  7.      [ timer:send_after(N, {sorted,N}) || N <- Xs ],
  8.      [ fun() -> receive {sorted, N} -> N end end()  || _ <- Xs ].
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement