<div dir="ltr"><br><br><div class="gmail_quote">2008/9/11 breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Ué, não entendi... aqui deu pra ler direitinho =P<br>
<br>
[garu@bebop]$ perl -ne<br>
<div class="Ih2E3d">'$k{lc($_)}++for/(\w+)\)?\+\+/g}{print"$_=$k{$_}\n"for(sort{$k{$b}<=>$k{$a}}keys%k)'<br>
2008q3.txt<br>
</div>nome=12<br>
alguem=12<br>
cara=12<br>
oft=8<br>
mm=7<br>
breno=6<br>
mda=5<br>
ns=5<br>
fernando=3<br>
solli=2<br>
limpo=1<br>
ferreira=1<br>
c=1<br>
buss=1<br>
astec=1<br>
[garu@bebop]$<br>
<br>
<br>
Mais legal foi o C ganhar ponto também (C++) =P</blockquote><div>Exatamente por isso q eu tava pensando em ele só aceitar qdo existir uma linha só p/ o nome++...</div><div>pq senão, qq coisa++ (coisa ganhou 1) vai poder "gerar karma"!</div>
<div>e normalmente agente sempre põe os++ (agora quem ganhou foi o "os" (qual será q é o OS?)) numa linha separada...</div><div>Entenderam?</div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<br>
<br>
<br>
[]s<br>
<br>
-b<br>
<br>
2008/9/11 Eden Cardim <<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>>:<br>
<div><div></div><div class="Wj3C7c">> 2008/9/11 breno <<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>>:<br>
>> Acho q vcs tão é enrolando uhahuahuhuauhahua =P<br>
>><br>
>> pegar o histórico da Internet vai acabar em quase o mesmo código (pra<br>
>> quem não der mole), e a ER precisa só achar o /usuário\+\+/ (com ou<br>
>> sem parêntesis, nisso o Fernando tá coberto de razão), não precisa se<br>
>> preocupar com o que vem depois... Se quiserem adicionar o "--", tudo<br>
>> bem, mas nunca vi alguém levar um por aqui (o pessoal é diplomata e<br>
>> tem fair-play) =P<br>
>><br>
>> Por mim, o Eden tá ganhando com 110 caracteres... ou está?<br>
>><br>
>> Minha tacada:<br>
>><br>
>> perl -ne '$k{lc($_)}++for/(\w+)\)?\+\+/g}{print"$_=$k{$_}\n"for(sort{$k{$b}<=>$k{$a}}keys%k)'<br>
>> 2008q3.txt<br>
>><br>
>> 82 caracteres, e acho que dá uma resposta até mais correta... alguém diminui?<br>
><br>
> Precisa dos espaços na saída, senão fica ilegível :P<br>
><br>
> --<br>
> <a href="http://edenc.vox.com" target="_blank">edenc.vox.com</a><br>
> _______________________________________________<br>
> Rio-pm mailing list<br>
> <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
><br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>
</div>