Erlangでecho、プロセス間通信(写経)
-module(echo). -export([go/0, loop/0]). go() -> Pid = spawn(echo, loop, []), Pid ! {self(), hello}, receive {Pid, Msg} -> io:format("~w~n", [Msg]) end, Pid ! stop. loop() -> receive {From, Msg} -> From ! {self(), Msg}, loop(); stop -> true end.
8> c(echo). {ok,echo} 9> echo:go(). hello stop 10>