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