local vs non local messages

# Node1: 
Process.register(self(), :test)
  x = 100000
  list = :lists.seq(1, x)
  sender = fn -> Enum.each(list, fn x -> send({:test, :'master@127.0.0.1'}, {:msg, x}) end) end
  sender_pid =
    spawn(
      fn ->
        receive do
          :start -> sender.()
        end
      end)

  recv = fn _ ->
    receive do
      {:msg, x} -> x

      after 5_000 ->
        :timeout
    end
  end

  send(sender_pid, :start)
  # receive
  :timer.tc(fn -> Enum.each(list, fn _x -> recv.(x) end) end)
  
  Gives: 
  :timer.tc(fn -> Enum.each(list, fn _x -> recv.(x) end) end)
{216572, :ok}
  
Node2:


  Process.register(self(), :test)
  x = 100000
  list = :lists.seq(1, x)
  sender = fn -> Enum.each(list, fn x -> send(:test, {:msg, x}) end) end
  sender_pid =
    spawn(
      fn ->
        receive do
          :start -> sender.()
        end
      end)

  recv = fn _ ->
    receive do
      {:msg, x} -> x

      after 5_000 ->
        :timeout
    end
  end

  send(sender_pid, :start)
  # receive
  :timer.tc(fn -> Enum.each(list, fn _x -> recv.(x) end) end)
  
  :timer.tc(fn -> Enum.each(list, fn _x -> recv.(x) end) end)
{388452, :ok}

maybe rather, so that sending in part of the measurment:

 Node1: 
Process.register(self(), :test)
  x = 1000000
  list = :lists.seq(1, x)
  sender = fn -> Enum.each(list, fn x -> send({:test, :'master@127.0.0.1'}, {:msg, x}) end) end
  sender_pid =
    spawn(
      fn ->
        receive do
          :start -> sender.()
        end
      end)

  recv = fn _ ->
    receive do
      {:msg, x} -> x

      after 5_000 ->
        :timeout
    end
  end

  # send and receive
  measure = fn -> 
    send(sender_pid, :start)
    Enum.each(list, fn _x -> recv.(x) end)    
  end
  :timer.tc(measure)
  
  Gives: 
  :timer.tc(measure)
{7996649, :ok}
  
Node2:


  Process.register(self(), :test)
  x = 1000000
  list = :lists.seq(1, x)
  sender = fn -> Enum.each(list, fn x -> send(:test, {:msg, x}) end) end
  sender_pid =
    spawn(
      fn ->
        receive do
          :start -> sender.()
        end
      end)

  recv = fn _ ->
    receive do
      {:msg, x} -> x

      after 5_000 ->
        :timeout
    end
  end

  # send and receive
  measure = fn -> 
    send(sender_pid, :start)
    Enum.each(list, fn _x -> recv.(x) end)    
  end
  :timer.tc(measure)
  
  Gives: 
  :timer.tc(measure)
{7848193, :ok}