pauloasilva.com

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},
     [...]