Inspirado no repto lançado pela Adobe, deixo os meus votos para o ano de 2009 em 26 linhas de pura concorrência ;)
-module(newYear).
-export([start/0,newLife/0,happiness/0,health/1,work/0]).
start() -> spawn(newYear,newLife,[]).
newLife() -> spawn(newYear,happiness,[]).
happiness() ->
WorkPid = spawn(newYear,work,[]),
HealthPid = spawn(newYear,health,[WorkPid]),
HealthPid ! go.
health(WorkPid) ->
receive
go ->
io:format(“Healthy…”),
WorkPid ! {self(),go},
[...]
Comentários Recentes