Elixirでスリープソート

sleep_sort1.exs

defmodule SleepSort do
  @spec sort(list(non_neg_integer)) :: list(non_neg_integer)
  def sort(list) do
    pid = self()
    Enum.each list, fn x ->
      spawn fn -> 
        Process.sleep x
        send pid, x
      end
    end
    f = fn g, r ->
      if length(r) == length(list) do
        r
      else
        receive do
          x -> g.(g, r ++ [x])
        end
      end
    end
    f.(f, [])
  end
end

IO.inspect SleepSort.sort([1, 2, 5, 100, 50, 0])

sleep_sort2.exs

defmodule SleepSort do
  @spec sort(list(non_neg_integer)) :: list(non_neg_integer)
  def sort(list) do
    pid = self()
    Enum.each list, fn x ->
      spawn fn -> 
        Process.sleep x
        send pid, x
      end
    end
    f = fn g, r ->
      if length(r) == length(list) do
        r
      else
        receive do
          x -> g.(g, r ++ [x])
        end
      end
    end
    f.(f, [])
  end
end

IO.inspect SleepSort.sort([1, 2, 5, 100, 50, 0])

sleep_sort3.exs

defmodule SleepSort do
  @spec sort(list(non_neg_integer)) :: list(non_neg_integer)
  def sort(list) do
    pid = self()
    Enum.each list, fn x ->
      spawn fn -> 
        Process.sleep x
        send pid, x
      end
    end
    f = fn g, r ->
      (length(r) == length(list)) && r || receive do
          x -> g.(g, r ++ [x])
      end
    end
    f.(f, [])
  end
end

IO.inspect SleepSort.sort([1, 2, 5, 100, 50, 0])