elixir --erl "+P 1000000" bigchain.exs

bigchain.exs

defmodule Bigchain do
  def start(n) do
    start self, n
  end

  def start(pid, 0) do
    #IO.puts "start #{inspect pid}, 0"
    send pid, {:stop, 0}
  end

  def start(pid, n) do
    s = self
    #IO.puts "start #{inspect s}, #{n}"
    spawn_link fn -> start s, n-1 end
    loop pid
  end

  def loop(pid) do
    #IO.puts "loop #{inspect pid}"
    receive do
      {:stop, n} -> send pid, {:stop, n+1}
      {_} -> loop pid
    end
  end
end

{us, _} = :timer.tc(fn -> Bigchain.start 1_000_000 end)
IO.puts "#{Float.round(us / 1000000, 2)} seconds"