Programação dinâmica & Concorrência

Como havia falado no post anterior, eis aqui a implementação de um processo servidor de resultados para cálculo de Fibonacci, juntamente com um "cache" dos resultados prévios.

-module(fibserver).
-export([fibserver/0, fibserver/1, fib/1, start/0]).

fibserver() ->
 % Start the Fibonacci Server with some basic pre-defined values...
 fibserver([{0,0}, {1,1}]).

fibserver(Values) ->
 receive
  {getValue, ReqPid, X} ->
   ValueExists = lists:keymember(X, 1, Values),
   if
    ValueExists ->
     {value, {_, V}} = lists:keysearch(X, 1, Values);
    true ->
     V = notFound
   end,
   % Send to the request process the atom notFound, or the Fibonacci of X.
   ReqPid ! V,
   fibserver(Values);
  {putValue, ValueTuple} ->
   fibserver(Values ++ [ValueTuple])
 end.

fib(N) ->
 % Ask the server for the Fibonacci of N...
 fibServer ! {getValue, self(), N},
 receive
  % If the value doesn't exist yet, then...
  notFound ->
   % ...calculate it...
   FibN = fib(N - 1) + fib(N - 2),
   % ...update the server with this new value...
   fibServer ! {putValue, {N, FibN}},
   % ...return the calculated value.
   FibN;
  X ->
   % The value was already in the server.
   X
 end.

start() ->
 % Just start the process identified by the atom 'fibServer',
 % as the execution of the fibserver:fibserver/0,
 % that means, module fibserver, function fibserver
 % that receives zero parameters.
 register(fibServer, spawn(fibserver, fibserver, [])).

Coloquei alguns comentários, mas para o total entendimento do código, você deve ter uma noção básica sobre Erlang, qualquer dúvida só postar.

Para testar:
$ erl
Erlang (BEAM) emulator version 5.5.2 [source] [async-threads:0] [kernel-poll:false]

Eshell V5.5.2 (abort with ^G)
1> c(fibserver).
{ok,fibserver}
2> fibserver:start().
true
3> fibserver:fib(1000).
43466557686937456435688527675040625802564660517371780402481729089536555417949051890403879840079255169295922593080322634775209689623239873322471161642996440906533187938298969649928516003704476137795166849228875

O resultado é praticamente instantâneo :)

PS.: me esqueci de comentar como sair do shell do Erlang, basta pressionar Control-C, e então "a[enter]", ou então executar a função halt().

Brincando com Erlang

Ultimamente tenho visto muitos posts comentando sobre a linguagem Erlang, que é uma linguagem funcional para programação concorrente, embora alguns defendam que também é orientada à objeto, já que Erlang oferece envio de mensagens como método para sincronização e comunicação entre processos, e orientação à objeto, na teoria, nada mais é do que troca de mensagens entre os objetos.

Como tive uma cadeira na faculdade sobre programação funcional (recomendo a todos aprenderem uma linguagem funcional ou de paradigma diferente do imperativo) usando Haskell, e gostei muito, resolvi começar a brincar com Erlang, que já tem um framework web e um banco de dados super escalável!

Para começar, instalei o pacote "erlang" no Debian Etch, muito simples.

Então vamos para nosso primeiro programa, "hello world" ou Fibonacci? Ok, ok...

1. Crie um arquivo chamado hello.erl, com o seguinte código:
   -module(hello).
   -export([hello/0]).
   
   hello() -> io:format("Hello world!~n").
2. Chame o interpretador Erlang com o comando "erl";
3. Compile o programa:
   c(hello).
4. Isto deve gerar um aviso {ok, hello};
5. Vamos executar:
   hello:hello().
6. Pronto, satisfeito?

Agora vamos ver como implementar o cálculo de Fibonacci de um número em Erlang, repare que o nome do arquivo deve ser fibonacci.erl, combinando com o nome do módulo:
-module(fibonacci).
-export([fib/1]).

fib(0) -> 0;
fib(1) -> 1;
fib(N) -> fib(N - 1) + fib(N - 2).

Reparem que há um pattern matching nos 2 casos básicos, e após a implementação recursiva para qualquer N > 1, com base disso podemos diminuir um pouco o código:

fib(N) when N =< 1 -> N;
fib(N) -> fib(N - 1) + fib(N - 2).

A chamada desde código após a compilação é trivial, por exemplo:
fibonacci:fib(10)

O código em Haskell é muito semelhante (como não seria com esse pingo de código? :D)

fib n
| n <= 1 = n
| otherwise = fib (n-1) + fib (n-2)

Vá brincando, tente números mais altos, com 50 já vai demorar bastante o resultado, o que me sugestiona implementar algum mecanismo de programação dinâmica, uma idéia para um próximo post é implementar isso usando um processo servidor de resultados, exercitando então o mecanismo de troca de mensagens.

Finalizo por aqui, e clique aqui se quiser conferir a lista dos 500 primeiros valores para a série de Fibonacci.

Que linguagem você é?

Which Programming Language are You?


Pô!!! PHP?!?! Sacanagem... :)

Vi isto no blog do Walter Cruz.

Olá via FeedBurner

Adeus aos feeds não rastreáveis do blogger :D

Sempre ouvi (na realidade li) que o Feedburner oferece um excelente serviço, então decidi conferir, principalmente porque quero conferir quantas pessoas estão lendo meu blog.

Leio muitos feeds, muito raramente vou ao site ler algo, então acompanhar quantas pessoas estão lendo teus textos pelos page views não dá, uma solução de tracking dos feeds é necessária, e como pode ver (se estiver lendo através da página ;)) na direita está o "Feedburner FeedCount", que te informa o número de leitores do feed provido por este blog.

Outro serviço legal do FeedBurner é o PingShot, que notifica vários servidores quando um novo post é publicado, muito útil, por exemplo, para usuários do Blogger como eu, que não possuem um serviço como este disponível.

Para seguir a filosofia DRY, editei o template do blog para não disponibilizar o feed que o Blogger provê. Para fazer isto vi que existe uma tag <b:include data="'blog'" name="'all-head-content'"/> entre o <head> e o <title>, esta tag é depois substituida por tags <link> e <meta>. Apenas substitui esta tag pelo código gerado por ela, substituídos os <link> relacionados a feed RSS/Atom dos posts pelo <link> oferencendo feed Atom do FeedBurner.

Concordo: IE6 deve morrer

Como o Blogger não suporta Trackback ainda, então vai na mão mesmo:
http://www.tableless.com.br/ie6-deve-morrer

Na última sexta-feira, 13 por coincidência, tive 2 dores de cabeça com o IE6.

Problema #1: um Javascript responsável por salvar alguns dados no servidor:


for (country in countries) { ... }


isso funciona no Firefox, porém o IE acusava um problema. Graças a um debugger de Javascript que tenho instalado, consegui constatar que era esta expressão a culpada, então um amigo falou: "Coloca um var ali na declaração de country". Dito e feito, o correto é:


for (var country in countries) { ... }


Problema #2: tags A com background-image, quando se passava o mouse por cima do link, algumas vezes, acontecia que a imagem desaparecia e aparecia novamente, em inglês flickering. Pesquisando vi que isso já é um bug conhecido do IE6, uma página fazia uma série de teorias explicando o porque daquele bug, outra apenas relatava a solução que foi adotada, a terceira e última foi mais útil, explica que a causa do problema está nos response headers HTTP, mais precisamente no Expires. Como queria uma solução mais rápida e que respondesse na mesma moeda ao IE, optei pela solução que usa um Javascript apenas no IE6, que altera um parâmetro não documentado do browser:

<!--[if IE 6]><script type="text/javascript">
try {
document.execCommand("BackgroundImageCache", false, true);
} catch(err) {}
</script><![endif]-->

Solucionado! Muito melhor que perder tempo² (meu tempo desenvolvendo uma solução para retornar as imagens com o header Expires, e o tempo do processador do servidor depois para servir as imagens através dessa solução e não do procedimento padrão do servidor HTTP).

My nerd score

Como vi outros nerds mostrando seus scores, então aqui está:



Tinha feito este teste há algum tempo atrás e lembro que meu score foi 84, que evolução! :D

Lições relacionadas a Javascript

Trabalhando com Javascript e "Ajax" em um projeto tomei as seguintes lições:

• Opera 8.5 não lida bem com respostas cujo mime-type é 'application/json', a solução foi atualizar para a 9.0;
  
• IE não gosta de vírgulas extra em suas matrizes, por exemplo [1,2,3,], ele interpreta aquela última vírgula como um outro elemento da matriz;
  
• Usando as facilidades "Ajax" do jQuery, caso ocorra uma exceção dentro da callback de success, o jQuery irá chamar a callback de error;

JQuery, CSS e ids (X)HTML

Em um projeto que estou trabalhando no momento estou usando o JQuery, porém me deparei com um problema ao tentar utilizar o seu $() com elementos que contenham ids com caracteres como ponto e dois-pontos, que são caracteres válidos em ids.

Preparei um arquivo de testes e postei o problema na lista do JQuery, e em alguns minutos obtive entre as respostas uma que apontava que já existia um bug report para este problema (aqui entra a lição de sempre procurar pelo problema no bug tracker do projeto!), que até agora ainda não foi solucionado, existe uma sugestão de patch que altera a expressão regular do CSS selector do JQuery para uma solução parecida com o que já existe na especificação do CSS...

<style>
#test.x { background-color: green; color: yellow; }
</style>
...
<p id="test.x">P with id 'test.x'.</p>

O código acima não irá funcionar como esperado, ele na verdade seleciona o elemento com id 'test' e classe 'x', para ter o efeito desejado deve-se usar '#test\.x', ou seja, "escapa"-se o ponto, o que informa ao interpretador CSS para cancelar a busca pela classe.

A solução temporária é eu aplicar o patch e compilar a minha própria versão do JQuery...

Ano novo copyright velho?

Parece que o ano de 2006 ainda não acabou, pelo menos para a página de login do Gmail, porque na parte interna já se está com o copyright atualizado para 2007...

... enquanto na interna:

PS.: a qualidade desse htmlarea do blogger é péssima²³

OpenSearch

Finalmente tive um tempo para olhar a especificação do OpenSearch e aproveitei para implementar uma descrição para o Mininova.org, um que procura normalmente, e outro que já procura e retorna o resultado ordenado pelo número de seeds, o que facilita muito a vida ;)

A implementação está aqui.

An Inconvenient Truth

Ótimo filme que mostra os efeitos e causas do aquecimento global, ao final dá conselhos de atitudes que devem ser tomadas como por exemplo: privilegiar transportes coletivos, fazer a separação do lixo e procurar carros e eletrônicos mais "ecologicamente limpos".

No final o Al Gore poderia ter deixado pra lá todo aquele papo que o povo estadunidense já fez outras revoluções e que poderia lidar muito bem com este problema, mas felizmente essa conversa é curta.

Gore salienta algo importante, que podemos solucionar o problema ecológico sem prejudicar a indústria, até mesmo permitiria a criação de mais postos de trabalho.

Frase do filme: "É difícil fazer um homem entender algo se seu salário depender de seu não entendimento." ("It is difficult to get a man to understand something when his salary depends upon his not understanding it.")

Outro filme que vi este final de semana e que gostei muito é Lord of War (pt-br: O Senhor das Armas, pt-pt: O Senhor da Guerra), que mostra como funciona o comércio de armas nas guerras, sendo Nicholas Cage o contrabandista de armas.

Frase do filme: "OS MAIORES FORNECEDORES DE ARMAS NO MUNDO SÃO USA, INGLATERRA, RÚSSIA, FRANÇA E CHINA. ELES SÃO TAMBÉM OS CINCO MEMBROS PERMANENTES DO CONSELHO DE SEGURANÇA DAS NAÇÕES UNIDAS."

Dica do "An Inconvenient Truth" veio do OMEdI.