From fernandocorrea em gmail.com  Tue Jul  1 07:42:19 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 11:42:19 -0300
Subject: [Rio-pm] ES - onde vai ser?
Message-ID: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>

O ES tá chegando (falta pouco mais de 1 semana) e a pergunta é:

Onde vai ser o ES desse mes?
Mercadinho? O tradicional?
Olimpiadas do Chopp? Mais perto da minha casa?
Em copacabana? No bairro onde trabalho?
Ou onde?

Que, tem sugestões?

-- 
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/20080701/f60442b5/attachment.html>

From bruno.buss em gmail.com  Tue Jul  1 07:45:02 2008
From: bruno.buss em gmail.com (Bruno Buss)
Date: Tue, 1 Jul 2008 11:45:02 -0300
Subject: [Rio-pm] ES - onde vai ser?
In-Reply-To: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
Message-ID: <3eb30c6c0807010745i1547bba4l91f99d62b8b58e83@mail.gmail.com>

Barra? :P

2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:

> O ES tá chegando (falta pouco mais de 1 semana) e a pergunta é:
>
> Onde vai ser o ES desse mes?
> Mercadinho? O tradicional?
> Olimpiadas do Chopp? Mais perto da minha casa?
> Em copacabana? No bairro onde trabalho?
> Ou onde?
>
> Que, tem sugestões?
>
> --
> 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
>



-- 
Bruno C. Buss

Aluno do DCC - UFRJ - www.dcc.ufrj.br
Diretor de Pesquisa e Desenvolvimento do GRIS - UFRJ - www.gris.dcc.ufrj.br

"You know, you really are supposed to understand the code you are
modifying..." ? Al Viro
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/cb7d348b/attachment-0001.html>

From fernandocorrea em gmail.com  Tue Jul  1 07:46:02 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 11:46:02 -0300
Subject: [Rio-pm] ES - onde vai ser?
In-Reply-To: <3eb30c6c0807010745i1547bba4l91f99d62b8b58e83@mail.gmail.com>
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
	<3eb30c6c0807010745i1547bba4l91f99d62b8b58e83@mail.gmail.com>
Message-ID: <f40026c0807010746y5bdcc81h4229819b17f94fc0@mail.gmail.com>

Onde na barra?


2008/7/1 Bruno Buss <bruno.buss em gmail.com>:

> Barra? :P
>
> 2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>
>> O ES tá chegando (falta pouco mais de 1 semana) e a pergunta é:
>>
>> Onde vai ser o ES desse mes?
>> Mercadinho? O tradicional?
>> Olimpiadas do Chopp? Mais perto da minha casa?
>> Em copacabana? No bairro onde trabalho?
>> Ou onde?
>>
>> Que, tem sugestões?
>>
>> --
>> 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
>>
>
>
>
> --
> Bruno C. Buss
>
> Aluno do DCC - UFRJ - www.dcc.ufrj.br
> Diretor de Pesquisa e Desenvolvimento do GRIS - UFRJ -
> www.gris.dcc.ufrj.br
>
> "You know, you really are supposed to understand the code you are
> modifying..." ? Al Viro
> _______________________________________________
> 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/20080701/658ed9b9/attachment.html>

From astec em centroin.com.br  Tue Jul  1 07:48:57 2008
From: astec em centroin.com.br (Astec)
Date: Tue, 1 Jul 2008 11:48:57 -0300
Subject: [Rio-pm] ES - onde vai ser?
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
Message-ID: <008201c8db89$9c971a50$4000a8c0@orion>

A minha sugestão seria em um local comum a todos.  Um lugar que seja o centro onde todos estão.

Sugiro o Centro da cidade.... hê hê hê... 





  ----- Original Message ----- 
  From: Fernando Oliveira 
  To: Perl Mongers Rio de Janeiro 
  Sent: Tuesday, July 01, 2008 11:42 AM
  Subject: [Rio-pm] ES - onde vai ser?


  O ES tá chegando (falta pouco mais de 1 semana) e a pergunta é:

  Onde vai ser o ES desse mes?
  Mercadinho? O tradicional?
  Olimpiadas do Chopp? Mais perto da minha casa?
  Em copacabana? No bairro onde trabalho?
  Ou onde?

  Que, tem sugestões?

  -- 
  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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/675442d0/attachment.html>

From fernandocorrea em gmail.com  Tue Jul  1 07:51:24 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 11:51:24 -0300
Subject: [Rio-pm] ES - onde vai ser?
In-Reply-To: <008201c8db89$9c971a50$4000a8c0@orion>
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
	<008201c8db89$9c971a50$4000a8c0@orion>
Message-ID: <f40026c0807010751n7394a7ffgbd9589f39f1edbe3@mail.gmail.com>

Certo, onde no centro?

2008/7/1 Astec <astec em centroin.com.br>:

>  A minha sugestão seria em um local comum a todos.  Um lugar que seja o
> centro onde todos estão.
>
> Sugiro o Centro da cidade.... hê hê hê...
>
>
>
>
>
>
> ----- Original Message -----
> *From:* Fernando Oliveira <fernandocorrea em gmail.com>
> *To:* Perl Mongers Rio de Janeiro <rio-pm em pm.org>
> *Sent:* Tuesday, July 01, 2008 11:42 AM
> *Subject:* [Rio-pm] ES - onde vai ser?
>
> O ES tá chegando (falta pouco mais de 1 semana) e a pergunta é:
>
> Onde vai ser o ES desse mes?
> Mercadinho? O tradicional?
> Olimpiadas do Chopp? Mais perto da minha casa?
> Em copacabana? No bairro onde trabalho?
> Ou onde?
>
> Que, tem sugestões?
>
> --
> 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/293becd6/attachment.html>

From astec em centroin.com.br  Tue Jul  1 08:01:05 2008
From: astec em centroin.com.br (Astec)
Date: Tue, 1 Jul 2008 12:01:05 -0300
Subject: [Rio-pm] ES - onde vai ser?
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com><008201c8db89$9c971a50$4000a8c0@orion>
	<f40026c0807010751n7394a7ffgbd9589f39f1edbe3@mail.gmail.com>
Message-ID: <00b501c8db8b$4d1d92e0$4000a8c0@orion>

Eu sugiro o amarelino, por jah ter sido palco da bebedeira dos monges.

  ----- Original Message ----- 
  From: Fernando Oliveira 
  To: Perl Mongers Rio de Janeiro 
  Sent: Tuesday, July 01, 2008 11:51 AM
  Subject: Re: [Rio-pm] ES - onde vai ser?


  Certo, onde no centro?


  2008/7/1 Astec <astec em centroin.com.br>:

    A minha sugestão seria em um local comum a todos.  Um lugar que seja o centro onde todos estão.

    Sugiro o Centro da cidade.... hê hê hê... 





      ----- Original Message ----- 
      From: Fernando Oliveira 
      To: Perl Mongers Rio de Janeiro 
      Sent: Tuesday, July 01, 2008 11:42 AM
      Subject: [Rio-pm] ES - onde vai ser?


      O ES tá chegando (falta pouco mais de 1 semana) e a pergunta é:

      Onde vai ser o ES desse mes?
      Mercadinho? O tradicional?
      Olimpiadas do Chopp? Mais perto da minha casa?
      Em copacabana? No bairro onde trabalho?
      Ou onde?

      Que, tem sugestões?

      -- 
      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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/404df78b/attachment-0001.html>

From gabriel.vieira em gmail.com  Tue Jul  1 08:54:03 2008
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Tue, 1 Jul 2008 12:54:03 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
Message-ID: <83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.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

From mergulhao83 em gmail.com  Tue Jul  1 09:15:29 2008
From: mergulhao83 em gmail.com (=?ISO-8859-1?Q?Sylvestre_Mergulh=E3o?=)
Date: Tue, 1 Jul 2008 13:15:29 -0300
Subject: [Rio-pm] ES - onde vai ser?
In-Reply-To: <00b501c8db8b$4d1d92e0$4000a8c0@orion>
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
	<008201c8db89$9c971a50$4000a8c0@orion>
	<f40026c0807010751n7394a7ffgbd9589f39f1edbe3@mail.gmail.com>
	<00b501c8db8b$4d1d92e0$4000a8c0@orion>
Message-ID: <656871e0807010915p2519bd48p56de1ba86be495f@mail.gmail.com>

2008/7/1 Astec <astec em centroin.com.br>:
> Eu sugiro o amarelino, por jah ter sido palco da bebedeira dos monges.

Amarelinho é um dos piores bares que conheço... pra beber chopp caro
só mais o bar luiz... caro por caro, que seja o melhor.

-- 
Sylvestre Mergulhão - Free Software Development
-----------------------------------------------------------------------
http://mergulhao.info
http://just-remind.us
http://www.ultramaratonahowto.com.br/

From fernandocorrea em gmail.com  Tue Jul  1 09:17:32 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 13:17:32 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
Message-ID: <f40026c0807010917u6006edcake36702564cadcfd5@mail.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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/8475f325/attachment.html>

From gabriel.vieira em gmail.com  Tue Jul  1 09:27:58 2008
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Tue, 1 Jul 2008 13:27:58 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
Message-ID: <83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.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

From henrique.andrade em uniriotec.br  Tue Jul  1 09:49:18 2008
From: henrique.andrade em uniriotec.br (Henrique Rabelo de Andrade)
Date: Tue, 1 Jul 2008 13:49:18 -0300
Subject: [Rio-pm] ES - onde vai ser?
In-Reply-To: <656871e0807010915p2519bd48p56de1ba86be495f@mail.gmail.com>
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
	<008201c8db89$9c971a50$4000a8c0@orion>
	<f40026c0807010751n7394a7ffgbd9589f39f1edbe3@mail.gmail.com>
	<00b501c8db8b$4d1d92e0$4000a8c0@orion>
	<656871e0807010915p2519bd48p56de1ba86be495f@mail.gmail.com>
Message-ID: <e55bbabe0807010949q3212acebjb1f1f332cfd083dd@mail.gmail.com>

Amarelinho eu tb faço questão de boicotar!

Tem um bar novo no Flamengo com cerveja importadas muito bom! É um pouco
mais caro, mas se o povo quiser encarar eu topo..


On Tue, Jul 1, 2008 at 1:15 PM, Sylvestre Mergulhão <mergulhao83 em gmail.com>
wrote:

> 2008/7/1 Astec <astec em centroin.com.br>:
> > Eu sugiro o amarelino, por jah ter sido palco da bebedeira dos monges.
>
> Amarelinho é um dos piores bares que conheço... pra beber chopp caro
> só mais o bar luiz... caro por caro, que seja o melhor.
>
> --
> Sylvestre Mergulhão - Free Software Development
> -----------------------------------------------------------------------
> http://mergulhao.info
> http://just-remind.us
> http://www.ultramaratonahowto.com.br/
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
Henrique Rabelo de Andrade
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/af0466ef/attachment.html>

From fernandocorrea em gmail.com  Tue Jul  1 09:59:33 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 13:59:33 -0300
Subject: [Rio-pm] ES - onde vai ser?
In-Reply-To: <e55bbabe0807010949q3212acebjb1f1f332cfd083dd@mail.gmail.com>
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
	<008201c8db89$9c971a50$4000a8c0@orion>
	<f40026c0807010751n7394a7ffgbd9589f39f1edbe3@mail.gmail.com>
	<00b501c8db8b$4d1d92e0$4000a8c0@orion>
	<656871e0807010915p2519bd48p56de1ba86be495f@mail.gmail.com>
	<e55bbabe0807010949q3212acebjb1f1f332cfd083dd@mail.gmail.com>
Message-ID: <f40026c0807010959x5479b4f8p21e52266fba3132f@mail.gmail.com>

2008/7/1 Henrique Rabelo de Andrade <henrique.andrade em uniriotec.br>:

> Amarelinho eu tb faço questão de boicotar!
>
> Tem um bar novo no Flamengo com cerveja importadas muito bom! É um pouco
> mais caro, mas se o povo quiser encarar eu topo..

Tem certeza?! cerveja importada costuma ser BEM mais cara...
uma vez em SP tomei uma q era 15 pilas!!!

>
>
>
> On Tue, Jul 1, 2008 at 1:15 PM, Sylvestre Mergulhão <mergulhao83 em gmail.com>
> wrote:
>
>> 2008/7/1 Astec <astec em centroin.com.br>:
>> > Eu sugiro o amarelino, por jah ter sido palco da bebedeira dos monges.
>>
>> Amarelinho é um dos piores bares que conheço... pra beber chopp caro
>> só mais o bar luiz... caro por caro, que seja o melhor.
>>
>> --
>> Sylvestre Mergulhão - Free Software Development
>> -----------------------------------------------------------------------
>> http://mergulhao.info
>> http://just-remind.us
>> http://www.ultramaratonahowto.com.br/
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>
>
>
> --
> Henrique Rabelo de Andrade
> _______________________________________________
> 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/20080701/378f9129/attachment.html>

From fernandocorrea em gmail.com  Tue Jul  1 10:06:09 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 14:06:09 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
Message-ID: <f40026c0807011006m615b4c84k7faebf0438f3c09@mail.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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/eb11e3a7/attachment-0001.html>

From fernandocorrea em gmail.com  Tue Jul  1 10:08:24 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 14:08:24 -0300
Subject: [Rio-pm] ES - onde vai ser?
In-Reply-To: <e55bbabe0807010949q3212acebjb1f1f332cfd083dd@mail.gmail.com>
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
	<008201c8db89$9c971a50$4000a8c0@orion>
	<f40026c0807010751n7394a7ffgbd9589f39f1edbe3@mail.gmail.com>
	<00b501c8db8b$4d1d92e0$4000a8c0@orion>
	<656871e0807010915p2519bd48p56de1ba86be495f@mail.gmail.com>
	<e55bbabe0807010949q3212acebjb1f1f332cfd083dd@mail.gmail.com>
Message-ID: <f40026c0807011008p42d96346j17cc955f38490b48@mail.gmail.com>

2008/7/1 Henrique Rabelo de Andrade <henrique.andrade em uniriotec.br>:

> Amarelinho eu tb faço questão de boicotar!


Tem tb q qdo fomos lá, não ganhamos a saideira...

>
>
> Tem um bar novo no Flamengo com cerveja importadas muito bom! É um pouco
> mais caro, mas se o povo quiser encarar eu topo..
>
>
>
> On Tue, Jul 1, 2008 at 1:15 PM, Sylvestre Mergulhão <mergulhao83 em gmail.com>
> wrote:
>
>> 2008/7/1 Astec <astec em centroin.com.br>:
>> > Eu sugiro o amarelino, por jah ter sido palco da bebedeira dos monges.
>>
>> Amarelinho é um dos piores bares que conheço... pra beber chopp caro
>> só mais o bar luiz... caro por caro, que seja o melhor.
>>
>> --
>> Sylvestre Mergulhão - Free Software Development
>> -----------------------------------------------------------------------
>> http://mergulhao.info
>> http://just-remind.us
>> http://www.ultramaratonahowto.com.br/
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>
>
>
> --
> Henrique Rabelo de Andrade
> _______________________________________________
> 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/20080701/a2cf8937/attachment.html>

From astec em centroin.com.br  Tue Jul  1 10:09:48 2008
From: astec em centroin.com.br (Astec)
Date: Tue, 1 Jul 2008 14:09:48 -0300
Subject: [Rio-pm] ES - onde vai ser?
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com><008201c8db89$9c971a50$4000a8c0@orion><f40026c0807010751n7394a7ffgbd9589f39f1edbe3@mail.gmail.com><00b501c8db8b$4d1d92e0$4000a8c0@orion><656871e0807010915p2519bd48p56de1ba86be495f@mail.gmail.com><e55bbabe0807010949q3212acebjb1f1f332cfd083dd@mail.gmail.com>
	<f40026c0807010959x5479b4f8p21e52266fba3132f@mail.gmail.com>
Message-ID: <00fa01c8db9d$4cd31730$4000a8c0@orion>

Ai meu deus, jah vi que terei de ficar testando bar em bar aki no centro para encontrar um bom lugar... e que venda cerveja em garrafa...

Aproveitando, qual a marca de cerveja sorvida pelos forum????


  ----- Original Message ----- 
  From: Fernando Oliveira 
  To: Perl Mongers Rio de Janeiro 
  Sent: Tuesday, July 01, 2008 1:59 PM
  Subject: Re: [Rio-pm] ES - onde vai ser?





  2008/7/1 Henrique Rabelo de Andrade <henrique.andrade em uniriotec.br>:

    Amarelinho eu tb faço questão de boicotar!

    Tem um bar novo no Flamengo com cerveja importadas muito bom! É um pouco mais caro, mas se o povo quiser encarar eu topo..
  Tem certeza?! cerveja importada costuma ser BEM mais cara...
  uma vez em SP tomei uma q era 15 pilas!!! 





    On Tue, Jul 1, 2008 at 1:15 PM, Sylvestre Mergulhão <mergulhao83 em gmail.com> wrote:

      2008/7/1 Astec <astec em centroin.com.br>:

      > Eu sugiro o amarelino, por jah ter sido palco da bebedeira dos monges.


      Amarelinho é um dos piores bares que conheço... pra beber chopp caro
      só mais o bar luiz... caro por caro, que seja o melhor.

      --
      Sylvestre Mergulhão - Free Software Development
      -----------------------------------------------------------------------
      http://mergulhao.info
      http://just-remind.us
      http://www.ultramaratonahowto.com.br/

      _______________________________________________
      Rio-pm mailing list
      Rio-pm em pm.org
      http://mail.pm.org/mailman/listinfo/rio-pm





    -- 
    Henrique Rabelo de Andrade 
    _______________________________________________
    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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/f69cdc24/attachment.html>

From fernandocorrea em gmail.com  Tue Jul  1 09:48:38 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 13:48:38 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
Message-ID: <f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/5a0d9775/attachment-0001.html>

From fernandocorrea em gmail.com  Tue Jul  1 11:17:26 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 15:17:26 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
	<f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
Message-ID: <f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/221b0b55/attachment.html>

From fernandocorrea em gmail.com  Tue Jul  1 11:51:42 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 15:51:42 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
	<f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
	<f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.gmail.com>
Message-ID: <f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/d448083e/attachment-0001.html>

From fernandocorrea em gmail.com  Tue Jul  1 12:01:01 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 16:01:01 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
	<f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
	<f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.gmail.com>
	<f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.gmail.com>
Message-ID: <f40026c0807011201h1c427f32v2b8e88116840d3cb@mail.gmail.com>

O algoritimo completo, sem ida e volta:

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;@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

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
>



-- 
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/20080701/f4e9752f/attachment.html>

From fernandocorrea em gmail.com  Tue Jul  1 12:01:40 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 16:01:40 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <f40026c0807011201h1c427f32v2b8e88116840d3cb@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
	<f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
	<f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.gmail.com>
	<f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.gmail.com>
	<f40026c0807011201h1c427f32v2b8e88116840d3cb@mail.gmail.com>
Message-ID: <f40026c0807011201v76a3d3b2ya73a877535514819@mail.gmail.com>

E então?! ninguém mais brinca não?!

2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:

> O algoritimo completo, sem ida e volta:
>
> 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;@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
>
>
> 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
>>
>
>
>
> --
> 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/20080701/983634d1/attachment-0001.html>

From cromo.jml em gmail.com  Tue Jul  1 11:59:56 2008
From: cromo.jml em gmail.com (=?ISO-8859-1?Q?M=E1rcio_Vitor?=)
Date: Tue, 1 Jul 2008 15:59:56 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
	<f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
	<f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.gmail.com>
	<f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.gmail.com>
Message-ID: <3530b8ce0807011159w5caf2346n19e8543994cc1c90@mail.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
>

From fernandocorrea em gmail.com  Tue Jul  1 12:15:34 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 16:15:34 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <3530b8ce0807011159w5caf2346n19e8543994cc1c90@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
	<f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
	<f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.gmail.com>
	<f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.gmail.com>
	<3530b8ce0807011159w5caf2346n19e8543994cc1c90@mail.gmail.com>
Message-ID: <f40026c0807011215r3f27efd5xc7cbd306c79bec9d@mail.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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/311b60d7/attachment-0001.html>

From blabos em gmail.com  Tue Jul  1 13:22:20 2008
From: blabos em gmail.com (Blabos de Blebe)
Date: Tue, 1 Jul 2008 17:22:20 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <f40026c0807011215r3f27efd5xc7cbd306c79bec9d@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010854s26a1e589gc0099825f9f8c359@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
	<f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
	<f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.gmail.com>
	<f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.gmail.com>
	<3530b8ce0807011159w5caf2346n19e8543994cc1c90@mail.gmail.com>
	<f40026c0807011215r3f27efd5xc7cbd306c79bec9d@mail.gmail.com>
Message-ID: <179354400807011322h7070124akb3dfb9811c43d9e4@mail.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
>

From fernandocorrea em gmail.com  Tue Jul  1 13:27:28 2008
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 1 Jul 2008 17:27:28 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <179354400807011322h7070124akb3dfb9811c43d9e4@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<f40026c0807010917u6006edcake36702564cadcfd5@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
	<f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
	<f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.gmail.com>
	<f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.gmail.com>
	<3530b8ce0807011159w5caf2346n19e8543994cc1c90@mail.gmail.com>
	<f40026c0807011215r3f27efd5xc7cbd306c79bec9d@mail.gmail.com>
	<179354400807011322h7070124akb3dfb9811c43d9e4@mail.gmail.com>
Message-ID: <f40026c0807011327n283d3544i7b8b64186150d327@mail.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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/bce22035/attachment-0001.html>

From bruno.buss em gmail.com  Tue Jul  1 14:41:44 2008
From: bruno.buss em gmail.com (Bruno Buss)
Date: Tue, 1 Jul 2008 18:41:44 -0300
Subject: [Rio-pm] ES - onde vai ser?
In-Reply-To: <f40026c0807010746y5bdcc81h4229819b17f94fc0@mail.gmail.com>
References: <f40026c0807010742p1ccfe55ft5bf2355332e982fb@mail.gmail.com>
	<3eb30c6c0807010745i1547bba4l91f99d62b8b58e83@mail.gmail.com>
	<f40026c0807010746y5bdcc81h4229819b17f94fc0@mail.gmail.com>
Message-ID: <3eb30c6c0807011441w66eff2dft2a7ba1b617d94690@mail.gmail.com>

Como eu sou muito legal, onde vocês quiserem iuAHEuieahuiea

2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:

> Onde na barra?
>
>
> 2008/7/1 Bruno Buss <bruno.buss em gmail.com>:
>
> Barra? :P
>>
>> 2008/7/1 Fernando Oliveira <fernandocorrea em gmail.com>:
>>
>>>  O ES tá chegando (falta pouco mais de 1 semana) e a pergunta é:
>>>
>>> Onde vai ser o ES desse mes?
>>> Mercadinho? O tradicional?
>>> Olimpiadas do Chopp? Mais perto da minha casa?
>>> Em copacabana? No bairro onde trabalho?
>>> Ou onde?
>>>
>>> Que, tem sugestões?
>>>
>>> --
>>> 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
>>>
>>
>>
>>
>> --
>> Bruno C. Buss
>>
>> Aluno do DCC - UFRJ - www.dcc.ufrj.br
>> Diretor de Pesquisa e Desenvolvimento do GRIS - UFRJ -
>> www.gris.dcc.ufrj.br
>>
>> "You know, you really are supposed to understand the code you are
>> modifying..." ? Al Viro
>> _______________________________________________
>> 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
>



-- 
Bruno C. Buss

Aluno do DCC - UFRJ - www.dcc.ufrj.br
Diretor de Pesquisa e Desenvolvimento do GRIS - UFRJ - www.gris.dcc.ufrj.br

"You know, you really are supposed to understand the code you are
modifying..." ? Al Viro
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20080701/8a9eea92/attachment.html>

From gabriel.vieira em gmail.com  Tue Jul  1 20:20:20 2008
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Wed, 2 Jul 2008 00:20:20 -0300
Subject: [Rio-pm] Golf: Criando rodadas de um campeonato
In-Reply-To: <f40026c0807011327n283d3544i7b8b64186150d327@mail.gmail.com>
References: <83d8367f0806302325g37c2d110t851e60ba6c59ac92@mail.gmail.com>
	<83d8367f0807010927g4ed5bd5bw344a1f1200b6f6e8@mail.gmail.com>
	<f40026c0807010948u4c1de925i3f4dfceec5df9c14@mail.gmail.com>
	<f40026c0807011006m615b4c84k7faebf0438f3c09@mail.gmail.com>
	<f40026c0807011117h4d001f33rbd1cfefc6486ef95@mail.gmail.com>
	<f40026c0807011151k7dde1530ubf032f19dd5ab1@mail.gmail.com>
	<3530b8ce0807011159w5caf2346n19e8543994cc1c90@mail.gmail.com>
	<f40026c0807011215r3f27efd5xc7cbd306c79bec9d@mail.gmail.com>
	<179354400807011322h7070124akb3dfb9811c43d9e4@mail.gmail.com>
	<f40026c0807011327n283d3544i7b8b64186150d327@mail.gmail.com>
Message-ID: <83d8367f0807012020ga39d5a1n1446feccb7bc6a3f@mail.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,
>> >> >>>>>
>> >>