quad_tree_test.erl

#!/usr/bin/env escript

-define(DELAY, 1000).

main(_Depth) ->
    S = self(),
    spawn(fun() -> keepGoing(50, S, 0) end),
    spawn(fun() -> keepGoing(50, S, 0) end),
    X = collectKids(),
    io:format("\p\n", [X]),
    showValues(X),
    ok.

collectKids() -> collectKids([]).
collectKids(Acc) ->
    receive
        {Pid,Sent} -> collectKids([{Pid, Sent, epochtime()}|Acc])
    after ?DELAY ->
            io:format("~p~n", [Acc]),
            lists:foreach(
                fun({Pid, Sent, Recv}) ->
                        {Pid, Recv - Sent}
                end,
                Acc
            )
    end.

keepGoing(Depth, Parent, N) ->
    if N < Depth ->
            S = self(),
            spawn(fun() -> keepGoing(Depth, S, N+1) end),
            receive
                Pid -> Parent ! Pid
            end;
        true ->
            Parent ! themsg()
    end.

themsg() -> {self(), epochtime()}.

epochtime() ->
    {Ms, S, Us} = now(),
    Ms*1000000*1000 + S*1000 + Us.

showValues( Values ) ->
    lists:foreach(
        fun(I)-> io:format("~p\t", [I]) end,
        Values
    ),
    io:format("\n").