[Rio-pm] Golf: Criando rodadas de um campeonato
Fernando Oliveira
fernandocorrea em gmail.com
Quarta Julho 2 09:57:21 PDT 2008
-5
perl -e'@a=@ARGV;unshift em a,"" if em a%2&&($i=1);for$r(1..$#a){print$/,$r,"a
Rodada:",$/x3;@b
=(-$_-1,$_),printf"%-15sx%15s$/", em a[$_%2?@b:$_||$r%2?@b[1,0]:@b]for$i..$#a/2;@a[1..$#a]=@a[2..$#a,1]}'
A B C D E
Quem dá menos?!
2008/7/2 Fernando Oliveira <fernandocorrea em gmail.com>:
> bom, eu prefiro golf...
>
> perl -e'@a=@ARGV;unshift em a,"" if em a%2&&($i=1);for$r(1..$#a){print$/,$r,"a
> Rodada:",$/x3;printf"%-15sx%15s$/", em a[$_%2?(-$_-1,$_):$_||$r%2?($_,-$_-1):(-$_-1,$_)]for
> $i..$#a/2;@a[1..$#a]=@a[2..$#a,1]}' A B C D E
>
> essa tá certa?
>
>
> 2008/7/2 Blabos de Blebe <blabos em gmail.com>:
>
>> Prefiro futebol ao invés de golf
>>
>> 2008/7/2 Fernando Oliveira <fernandocorrea em gmail.com>:
>> > e kd a sua tacada?
>> >
>> > 2008/7/2 Blabos de Blebe <blabos em gmail.com>:
>> >>
>> >> Bem, vamo lá
>> >>
>> >> Para as crianças que não tiveram infância e mataram as aulas de
>> >> matemática...
>> >>
>> >> my $j; ## Numero de jogos unicos
>> >> my $t; ## Numero de times
>> >> my $r; ## Numero de rodadas unicas
>> >>
>> >>
>> >> ## Cada time joga uma vez para cada adversário, e não joga contra si
>> >> mesmo.
>> >> ## No caso de número ímpar de times, cada time joga com seus $t-1
>> >> adversários e folga uma rodada ($t-1 + 1 -> $t);
>> >> $r = $t%2 ? $t: $t-1;
>> >>
>> >>
>> >> ## Em cada rodada, um jogo para cada par de times.
>> >> $j = $r*$t/2;
>> >>
>> >> É muito simples
>> >>
>> >>
>> >> 2008/7/2 Gabriel Vieira <gabriel.vieira em gmail.com>:
>> >> > Corrija-me se eu estiver errado:
>> >> >
>> >> > Saída:
>> >> > ---------------------8<---------------------
>> >> > 1a Rodada:
>> >> >
>> >> >
>> >> > A x E
>> >> > D x B
>> >> >
>> >> > 2a Rodada:
>> >> >
>> >> >
>> >> > B x A
>> >> > E x C
>> >> >
>> >> > 3a Rodada:
>> >> >
>> >> >
>> >> > A x C
>> >> > B x D
>> >> >
>> >> > 4a Rodada:
>> >> >
>> >> >
>> >> > D x A
>> >> > C x E
>> >> >
>> >> > 5a Rodada:
>> >> >
>> >> >
>> >> > A x E
>> >> > D x B
>> >> >
>> >> > 6a Rodada:
>> >> >
>> >> >
>> >> > B x A
>> >> > E x C
>> >> >
>> >> > 7a Rodada:
>> >> >
>> >> >
>> >> > A x C
>> >> > B x D
>> >> >
>> >> > 8a Rodada:
>> >> >
>> >> >
>> >> > D x A
>> >> > C x E
>> >> >
>> >> > 9a Rodada:
>> >> >
>> >> >
>> >> > A x E
>> >> > D x B
>> >> >
>> >> > 10a Rodada:
>> >> >
>> >> >
>> >> > B x A
>> >> > E x C
>> >> > --------------------->8---------------------
>> >> >
>> >> >
>> >> > Está repetindo jogos. :)
>> >> >
>> >> > Deveria ser:
>> >> > ---------------------8<---------------------
>> >> > 1a Rodada
>> >> >
>> >> > E x A
>> >> > D x B
>> >> >
>> >> >
>> >> > 2a Rodada
>> >> >
>> >> > A x D
>> >> > E x C
>> >> >
>> >> >
>> >> > 3a Rodada
>> >> >
>> >> > C x A
>> >> > B x E
>> >> >
>> >> >
>> >> > 4a Rodada
>> >> >
>> >> > C x B
>> >> > D x E
>> >> >
>> >> >
>> >> > 5a Rodada
>> >> >
>> >> > B x A
>> >> > D x C
>> >> > --------------------->8---------------------
>> >> >
>> >> > =)
>> >> >
>> >> > 2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>> >> >> perl -e'@a=@ARGV;for$r(1..2*@a-2*$#a%2){print$/,$r,"a
>> >> >>
>> >> >>
>> Rodada:",$/x3;printf"%-15sx%15s$/", em a[$_%2?(-$_-1,$_):$_||$r%2?($_,-$_-1):(-$_-1,$_)]for
>> >> >> 0..$#a/2- em a%2;@a[1..$#a]=@a[2..$#a,1]}' A B C D E
>> >> >>
>> >> >>
>> >> >> 2008/7/1 Blabos de Blebe <blabos em gmail.com>:
>> >> >>>
>> >> >>> Na época de futebol de botão eu fazia isso na mão...
>> >> >>>
>> >> >>> 2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>> >> >>> > Quem dá menos?!
>> >> >>> >
>> >> >>> > 2008/7/1 Márcio Vitor <cromo.jml em gmail.com>:
>> >> >>> >>
>> >> >>> >> Sinistro! Aqui funciona, parabéns Fernando será que alguém
>> abaixa ?
>> >> >>> >>
>> >> >>> >> Márcio Vitor
>> >> >>> >>
>> >> >>> >> 2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>> >> >>> >> > Pô... como fica mais facil qdo se deixa de preguiça e se lê a
>> >> >>> >> > wiki!!!
>> >> >>> >> >
>> >> >>> >> > minha tacada:
>> >> >>> >> >
>> >> >>> >> > perl -e '@a=@ARGV;for(1..2*@a-2*!(@a%2)){print$/,$_,"a
>> >> >>> >> > Rodada:",$/x3;printf"%-15sx%15s$/", em a[$_, -$_-1] for
>> >> >>> >> > 0..$#a/2;@a[1..$#a]
>> >> >>> >> > =
>> >> >>> >> > @a[2..$#a,1]}' "Atltico MG" "Atltico PR" Botafogo Coritiba
>> >> >>> >> > Figueirense
>> >> >>> >> > Flamengo Fluminense Goias Gremio Internacional Ipatinga
>> Nautico
>> >> >>> >> > Palmeiras
>> >> >>> >> > Portuguesa "Sao Paulo" Sport Vasco Vitoria
>> >> >>> >> >
>> >> >>> >> > (ignorando parada de em casa ou fora de casa...)
>> >> >>> >> >
>> >> >>> >> > 2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>> >> >>> >> >>
>> >> >>> >> >> Na verdade, eu acho q tá certo... seria assim o ida e volta?
>> >> >>> >> >>
>> >> >>> >> >> 2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>> >> >>> >> >>>
>> >> >>> >> >>> Agora q eu acho q entendí!!! aquele codigo ta totalmente
>> >> >>> >> >>> errado!!!
>> >> >>> >> >>>
>> >> >>> >> >>> 2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>> >> >>> >> >>>>
>> >> >>> >> >>>> Eu não sei se entendí muito bem não, mas seria algo assim?
>> >> >>> >> >>>>
>> >> >>> >> >>>> perl -e '@a=@ARGV;for$r(1..$#a){push em a,shift em a
>> ;print$/,$r,"a
>> >> >>> >> >>>> rodada:",$/x3;printf"%-15s x %15s$/",$ARGV[$_],$a[$_]for
>> >> >>> >> >>>> 0..($#a/2)}'
>> >> >>> >> >>>> "Atltico MG" "Atltico PR" Botafogo Coritiba Figueirense
>> >> >>> >> >>>> Flamengo
>> >> >>> >> >>>> Fluminense
>> >> >>> >> >>>> Goias Gremio Internacional Ipatinga Nautico Palmeiras
>> >> >>> >> >>>> Portuguesa
>> >> >>> >> >>>> "Sao
>> >> >>> >> >>>> Paulo"
>> >> >>> >> >>>> Sport Vasco Vitoria
>> >> >>> >> >>>>
>> >> >>> >> >>>> 2008/7/1 Gabriel Vieira <gabriel.vieira em gmail.com>:
>> >> >>> >> >>>>>
>> >> >>> >> >>>>> Ok,
>> >> >>> >> >>>>>
>> >> >>> >> >>>>> se tiver impar cada time fica fora 1 rodada (nao tem par
>> para
>> >> >>> >> >>>>> ele),
>> >> >>> >> >>>>> dai todos jogam entre si e o mesmo número de partidas.
>> >> >>> >> >>>>>
>> >> >>> >> >>>>> Jogos de ida e volta:
>> >> >>> >> >>>>> - Cada jogo há um mandante (o time que joga em casa e o
>> >> >>> >> >>>>> visitante).
>> >> >>> >> >>>>> - ex.: Cruzeiro e Vasco jogam em MG, logo Cruzeiro é o
>> >> >>> >> >>>>> Mandante.
>> >> >>> >> >>>>> - O Mandante é determinado pelo 1o time do confronto
>> >> >>> >> >>>>> (Flamengo e
>> >> >>> >> >>>>> Vitória - Flamengo é Mandante)
>> >> >>> >> >>>>> - Logo, jogos de ida e volta seria 1 jogo com o time A
>> >> >>> >> >>>>> mandante e
>> >> >>> >> >>>>> B
>> >> >>> >> >>>>> visitante, e outro ao contrário.
>> >> >>> >> >>>>>
>> >> >>> >> >>>>>
>> >> >>> >> >>>>> No código, há 20 times e 3 times, só escolher :)
>> >> >>> >> >>>>> ---------------------->8----------------------
>> >> >>> >> >>>>> my($c,$d,$i);
>> >> >>> >> >>>>> format Rodada =
>> >> >>> >> >>>>>
>> >> >>> >> >>>>>
>> >> >>> >> >>>>> ^##@| @<<<<<<
>> >> >>> >> >>>>> $i,"a","Rodada"
>> >> >>> >> >>>>>
>> >> >>> >> >>>>> .
>> >> >>> >> >>>>> format Jogos =
>> >> >>> >> >>>>> ^<<<<<<<<<<<< @| @>>>>>>>>>>>>
>> >> >>> >> >>>>> $c,"x",$d
>> >> >>> >> >>>>> .
>> >> >>> >> >>>>> my em t=("Atlético MG","Atlético
>> >> >>> >> >>>>>
>> >> >>> >> >>>>>
>> >> >>> >> >>>>>
>> >> >>> >> >>>>>
>> >> >>> >> >>>>>
>> PR","Botafogo","Coritiba","Cruzeiro","Figueirense","Flamengo","Fluminense","Goiás","Grêmio","Internacional","Ipatinga","Náutico","Palmeiras","Portuguesa","Santos","São
>> >> >>> >> >>>>> Paulo","Sport","Vasco","Vitória");
>> >> >>> >> >>>>> my em t=("Atlético MG","Atlético PR","Botafogo");
>> >> >>> >> >>>>> my$j=($#t+1)/2;
>> >> >>> >> >>>>> my em a=@t[0..$j-1];
>> >> >>> >> >>>>> my em b=reverse em t[$j..$#t];
>> >> >>> >> >>>>> push(@a,"")if$j=~/\./;
>> >> >>> >> >>>>> for(0..$#a+$#b){
>> >> >>> >> >>>>> i(((++$i/2)=~/\./?(\@b,\@a):(\@a,\@b)));
>> >> >>> >> >>>>> @a=(shift em a,shift em b, em a);
>> >> >>> >> >>>>> push(@b,pop em a);
>> >> >>> >> >>>>> }
>> >> >>> >> >>>>> sub i{
>> >> >>> >> >>>>> $~='Rodada';
>> >> >>> >> >>>>> write;
>> >> >>> >> >>>>> my$i=-1;
>> >> >>> >> >>>>> $~='Jogos';
>> >> >>> >> >>>>> for(@{$_[0]}){
>> >> >>> >> >>>>> $c=@{$_[0]}[++$i];
>> >> >>> >> >>>>> $d=@{$_[1]}[$i];
>> >> >>> >> >>>>> write if $c and $d;
>> >> >>> >> >>>>> }
>> >> >>> >> >>>>> }
>> >> >>> >> >>>>> ----------------------8<----------------------
>> >> >>> >> >>>>>
>> >> >>> >> >>>>>
>> >> >>> >> >>>>> 2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>> >> >>> >> >>>>> > Tipo, eu não sei nada de futebol, mas me diz, como fica
>> se
>> >> >>> >> >>>>> > tiver
>> >> >>> >> >>>>> > numero
>> >> >>> >> >>>>> > impar?
>> >> >>> >> >>>>> > E como é esse negocio de jogo ida e volta?
>> >> >>> >> >>>>> >
>> >> >>> >> >>>>> > 2008/7/1 Gabriel Vieira <gabriel.vieira em gmail.com>:
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Então,
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> só fiz mudar nomes de variáveis a algumas funções pra
>> >> >>> >> >>>>> >> diminuir
>> >> >>> >> >>>>> >> o
>> >> >>> >> >>>>> >> código.
>> >> >>> >> >>>>> >> Como sei que o Fernando vai fazer isso em 30
>> caracteres,
>> >> >>> >> >>>>> >> fica
>> >> >>> >> >>>>> >> só
>> >> >>> >> >>>>> >> de
>> >> >>> >> >>>>> >> tacada inicial :P
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> ----------------------8<----------------------
>> >> >>> >> >>>>> >> my($c,$d,$i);
>> >> >>> >> >>>>> >> format Rodada =
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> ^##@| @<<<<<<
>> >> >>> >> >>>>> >> $i,"a","Rodada"
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> .
>> >> >>> >> >>>>> >> format Jogos =
>> >> >>> >> >>>>> >> ^<<<<<<<<<<<< @| @>>>>>>>>>>>>
>> >> >>> >> >>>>> >> $c,"x",$d
>> >> >>> >> >>>>> >> .
>> >> >>> >> >>>>> >> my em t=("Atlético MG","Atlético
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> PR","Botafogo","Coritiba","Cruzeiro","Figueirense","Flamengo","Fluminense","Goiás","Grêmio","Internacional","Ipatinga","Náutico","Palmeiras","Portuguesa","Santos","São
>> >> >>> >> >>>>> >> Paulo","Sport","Vasco","Vitória");
>> >> >>> >> >>>>> >> my$j=($#t+1)/2;
>> >> >>> >> >>>>> >> my em a=@t[0..$j-1];
>> >> >>> >> >>>>> >> my em b=reverse em t[$j..$#t];
>> >> >>> >> >>>>> >> push(@a,"")if$j=~/\./;
>> >> >>> >> >>>>> >> for(0..$#t-1){
>> >> >>> >> >>>>> >> i(((++$i/2)=~/\./?(\@b,\@a):(\@a,\@b)));
>> >> >>> >> >>>>> >> @a=(shift em a,shift em b, em a);
>> >> >>> >> >>>>> >> push(@b,pop em a);
>> >> >>> >> >>>>> >> }
>> >> >>> >> >>>>> >> sub i{
>> >> >>> >> >>>>> >> $~='Rodada';
>> >> >>> >> >>>>> >> write;
>> >> >>> >> >>>>> >> my$i=-1;
>> >> >>> >> >>>>> >> $~='Jogos';
>> >> >>> >> >>>>> >> for(@{$_[0]}){
>> >> >>> >> >>>>> >> $c=@{$_[0]}[++$i];
>> >> >>> >> >>>>> >> $d=@{$_[1]}[$i];
>> >> >>> >> >>>>> >> write if $c and $d;
>> >> >>> >> >>>>> >> }
>> >> >>> >> >>>>> >> }
>> >> >>> >> >>>>> >> ---------------------->8----------------------
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Abraços,
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> ---------- Forwarded message ----------
>> >> >>> >> >>>>> >> From: Gabriel Vieira <gabriel.vieira em gmail.com>
>> >> >>> >> >>>>> >> Date: 2008/7/1
>> >> >>> >> >>>>> >> Subject: Golf: Criando rodadas de um campeonato
>> >> >>> >> >>>>> >> To: Perl Mongers Rio de Janeiro <rio-pm em pm.org>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Opa!
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Um colega me veio pedindo ajuda em um código para
>> elaborar
>> >> >>> >> >>>>> >> as
>> >> >>> >> >>>>> >> rodadas
>> >> >>> >> >>>>> >> de um campeonato.
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Me mostrou o seguinte link
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> (
>> http://pt.wikipedia.org/wiki/Torneio#Algoritmo_para_marca.C3.A7.C3.A3o_de_jogos
>> ).
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Entreguei, então pensei num golfe ;)
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Seria um programa que a partir de uma lista @times
>> >> >>> >> >>>>> >> organiza um
>> >> >>> >> >>>>> >> campeonato com 1 jogo apenas entre as mesmas equipes.
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Ou caso queiram, podemos fazer um jogo de ida e outro
>> de
>> >> >>> >> >>>>> >> volta.
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Só para ilustração:
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> -----------------8<-----------------
>> >> >>> >> >>>>> >> my @times = ( "Atlético MG",
>> >> >>> >> >>>>> >> "Botafogo",
>> >> >>> >> >>>>> >> "Cruzeiro",
>> >> >>> >> >>>>> >> "Flamengo",
>> >> >>> >> >>>>> >> "Fluminense",
>> >> >>> >> >>>>> >> "Ipatinga",
>> >> >>> >> >>>>> >> "Palmeiras",
>> >> >>> >> >>>>> >> "São Paulo",
>> >> >>> >> >>>>> >> "Vasco",
>> >> >>> >> >>>>> >> "Vitória",
>> >> >>> >> >>>>> >> );
>> >> >>> >> >>>>> >> ----------------->8-----------------
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Exemplo:
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> -----------------8<-----------------
>> >> >>> >> >>>>> >> my @times = ( "Atlético MG",
>> >> >>> >> >>>>> >> "Botafogo",
>> >> >>> >> >>>>> >> "Cruzeiro",
>> >> >>> >> >>>>> >> "Flamengo",
>> >> >>> >> >>>>> >> );
>> >> >>> >> >>>>> >> ----------------->8-----------------
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Saída:
>> >> >>> >> >>>>> >> -----------------8<-----------------
>> >> >>> >> >>>>> >> 1a Rodada
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Flamengo x Atlético MG
>> >> >>> >> >>>>> >> Cruzeiro x Botafogo
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> 2a Rodada
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Atlético MG x Cruzeiro
>> >> >>> >> >>>>> >> Flamengo x Botafogo
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> 3a Rodada
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Botafogo x Atlético MG
>> >> >>> >> >>>>> >> Flamengo x Cruzeiro
>> >> >>> >> >>>>> >> ----------------->8-----------------
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Deu pra entender?
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> Abraços!
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> --
>> >> >>> >> >>>>> >> Gabriel Vieira
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >>
>> >> >>> >> >>>>> >> --
>> >> >>> >> >>>>> >> Gabriel Vieira
>> >> >>> >> >>>>> >> _______________________________________________
>> >> >>> >> >>>>> >> 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
>> >> >>> >> >>>>> > _______________________________________________
>> >> >>> >> >>>>> > Rio-pm mailing list
>> >> >>> >> >>>>> > Rio-pm em pm.org
>> >> >>> >> >>>>> > http://mail.pm.org/mailman/listinfo/rio-pm
>> >> >>> >> >>>>> >
>> >> >>> >> >>>>>
>> >> >>> >> >>>>>
>> >> >>> >> >>>>>
>> >> >>> >> >>>>> --
>> >> >>> >> >>>>> Gabriel Vieira
>> >> >>> >> >>>>> _______________________________________________
>> >> >>> >> >>>>> 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
>> >> >>> >> >>>
>> >> >>> >> >>>
>> >> >>> >> >>> --
>> >> >>> >> >>> Just another Perl Hacker,
>> >> >>> >> >>> Fernando (SmokeMachine)
>> >> >>> >> >>> http://perl-e.org
>> >> >>> >> >>
>> >> >>> >> >>
>> >> >>> >> >> --
>> >> >>> >> >> Just another Perl Hacker,
>> >> >>> >> >> Fernando (SmokeMachine)
>> >> >>> >> >> http://perl-e.org
>> >> >>> >> >
>> >> >>> >> >
>> >> >>> >> > --
>> >> >>> >> > Just another Perl Hacker,
>> >> >>> >> > Fernando (SmokeMachine)
>> >> >>> >> > http://perl-e.org
>> >> >>> >> > _______________________________________________
>> >> >>> >> > Rio-pm mailing list
>> >> >>> >> > Rio-pm em pm.org
>> >> >>> >> > http://mail.pm.org/mailman/listinfo/rio-pm
>> >> >>> >> >
>> >> >>> >> _______________________________________________
>> >> >>> >> 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
>> >> >>> > _______________________________________________
>> >> >>> > Rio-pm mailing list
>> >> >>> > Rio-pm em pm.org
>> >> >>> > http://mail.pm.org/mailman/listinfo/rio-pm
>> >> >>> >
>> >> >>> _______________________________________________
>> >> >>> 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
>> >> >> _______________________________________________
>> >> >> Rio-pm mailing list
>> >> >> Rio-pm em pm.org
>> >> >> http://mail.pm.org/mailman/listinfo/rio-pm
>> >> >>
>> >> >
>> >> >
>> >> >
>> >> > --
>> >> > Gabriel Vieira
>> >> > _______________________________________________
>> >> > Rio-pm mailing list
>> >> > Rio-pm em pm.org
>> >> > http://mail.pm.org/mailman/listinfo/rio-pm
>> >> >
>> >> _______________________________________________
>> >> 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
>> > _______________________________________________
>> > Rio-pm mailing list
>> > Rio-pm em pm.org
>> > http://mail.pm.org/mailman/listinfo/rio-pm
>> >
>> _______________________________________________
>> 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
>
--
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/20080702/91382865/attachment-0001.html>
Mais detalhes sobre a lista de discussão Rio-pm