Slide 15
Slide 15 text
-module(counter).
-export([loop/1]).
loop(N) -> receive
{inc} -> loop(N+1);
{get, Sender} -> Sender ! N, loop(N)
end.
> Pid = spawn(counter, loop, [0]).
> Pid ! {inc}.
> Pid ! {get, self()}.
> receive Value -> io:fwrite("~p~n", [Value]) end.
1
> Pid ! {getx, self()}.
> receive Value -> io:fwrite("~p~n", [Value])
> after 1000 -> io:fwrite("Timeout~n") end.
Timeout