[Rio-pm] Quem tem mais incremento em 2008 ?!?!
Fernando Oliveira
fernandocorrea em gmail.com
Quinta Setembro 11 09:14:30 PDT 2008
Vamos deixar ainda mais interessante e fazer ele baixar o historico da
internet...E fazer ele aceitar:
nome++
(nome completo do cara)++
nome++;
(nome completo do cara)++;
nome++ # qq comentario
(nome completo do cara)++ # qq comentario
nome++; # qq comentario
(nome completo do cara)++; # qq comentario
algo tipo:
/^ (\w+ | \( (?:\w+ \s* )+? \) )( [+-]{2} ) \s* ; \s* (?: # \w* )$/x
e ele aceitar ++ e --, tipo se ele encontra
alguem++
alguem++
alguem--
alguem++
alguem--
alguem++
no fim ele imprimiria:
alguem: 2 (++ 4 | -- 2)
q tal?
2008/9/11 Eden Cardim <edencardim em gmail.com>
> 2008/9/11 Fernando Oliveira <fernandocorrea em gmail.com>:
> > Já tá na hora do golf? :)
>
> Pra ficar mais interessante, além de contar o karma, mostrar os
> resultados em ordem descendente por quantidade de karma. O arquivo de
> histórico da lista é passado como argumento.
>
> Lá vai a tacada inicial:
>
> perl -pe'$k{$_}++for/(\S+)\+\+/g}{$_=join"\n",map{"$_ = $k{$_}"} map {
> $_->[1] } sort {$b->[0] <=> $a->[0]} map { [$k{$_}, $_] } keys%k'
> 2008.txt
>
> --
> edenc.vox.com
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
--
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080911/01d9231e/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm