I'm dying and I'm having fun. And I'm gonna keep having fun every day I have left.
Randy Pausch in "Last Lecture"

Um 2009 cheio de concorrência

Posted: December 17th, 2008 | Author: PauloASilva | Filed under: capítulos, erlang, programação
Tags: , , , | No Comments »

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},
            health(WorkPid);
        ill ->
            io:format(”I’m ill…”),
            WorkPid ! {self(),stop}
    end.
work() ->
    receive
        {HealthPid,go} ->
            io:fwrite(” and working~n”),
            HealthPid ! go,
            work();
        stop -> io:format(” so I’ll stop working!~n”)
    end.


Brinquedo novo…

Posted: January 8th, 2008 | Author: PauloASilva | Filed under: capítulos
Tags: , | No Comments »

Sabem como os miúdos se sentem quando têm um brinquedo novo?!

Pois bem, hoje sinto-me assim ;)