Tipo, eu não sei nada de futebol, mas me diz, como fica se tiver numero impar?<br>E como é esse negocio de jogo ida e volta?<br><br><div class="gmail_quote">2008/7/1 Gabriel Vieira <<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Então,<br>
<br>
só fiz mudar nomes de variáveis a algumas funções pra diminuir o código.<br>
Como sei que o Fernando vai fazer isso em 30 caracteres, fica só de<br>
tacada inicial :P<br>
<br>
----------------------8<----------------------<br>
my($c,$d,$i);<br>
format Rodada =<br>
<br>
<br>
^##@| @<<<<<<<br>
$i,"a","Rodada"<br>
<br>
.<br>
format Jogos =<br>
^<<<<<<<<<<<< @| @>>>>>>>>>>>><br>
$c,"x",$d<br>
.<br>
my@t=("Atlético MG","Atlético<br>
PR","Botafogo","Coritiba","Cruzeiro","Figueirense","Flamengo","Fluminense","Goiás","Grêmio","Internacional","Ipatinga","Náutico","Palmeiras","Portuguesa","Santos","São<br>
Paulo","Sport","Vasco","Vitória");<br>
my$j=($#t+1)/2;<br>
my@a=@t[0..$j-1];<br>
my@b=reverse@t[$j..$#t];<br>
push(@a,"")if$j=~/\./;<br>
for(0..$#t-1){<br>
i(((++$i/2)=~/\./?(\@b,\@a):(\@a,\@b)));<br>
@a=(shift@a,shift@b,@a);<br>
push(@b,pop@a);<br>
}<br>
sub i{<br>
$~='Rodada';<br>
write;<br>
my$i=-1;<br>
$~='Jogos';<br>
for(@{$_[0]}){<br>
$c=@{$_[0]}[++$i];<br>
$d=@{$_[1]}[$i];<br>
write if $c and $d;<br>
}<br>
}<br>
---------------------->8----------------------<br>
<br>
Abraços,<br>
<div><div></div><div class="Wj3C7c"><br>
---------- Forwarded message ----------<br>
From: Gabriel Vieira <<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com</a>><br>
Date: 2008/7/1<br>
Subject: Golf: Criando rodadas de um campeonato<br>
To: Perl Mongers Rio de Janeiro <<a href="mailto:rio-pm@pm.org">rio-pm@pm.org</a>><br>
<br>
<br>
Opa!<br>
<br>
Um colega me veio pedindo ajuda em um código para elaborar as rodadas<br>
de um campeonato.<br>
<br>
Me mostrou o seguinte link<br>
(<a href="http://pt.wikipedia.org/wiki/Torneio#Algoritmo_para_marca.C3.A7.C3.A3o_de_jogos" target="_blank">http://pt.wikipedia.org/wiki/Torneio#Algoritmo_para_marca.C3.A7.C3.A3o_de_jogos</a>).<br>
<br>
Entreguei, então pensei num golfe ;)<br>
<br>
Seria um programa que a partir de uma lista @times organiza um<br>
campeonato com 1 jogo apenas entre as mesmas equipes.<br>
<br>
Ou caso queiram, podemos fazer um jogo de ida e outro de volta.<br>
<br>
Só para ilustração:<br>
<br>
-----------------8<-----------------<br>
my @times = ( "Atlético MG",<br>
"Botafogo",<br>
"Cruzeiro",<br>
"Flamengo",<br>
"Fluminense",<br>
"Ipatinga",<br>
"Palmeiras",<br>
"São Paulo",<br>
"Vasco",<br>
"Vitória",<br>
);<br>
----------------->8-----------------<br>
<br>
Exemplo:<br>
<br>
-----------------8<-----------------<br>
my @times = ( "Atlético MG",<br>
"Botafogo",<br>
"Cruzeiro",<br>
"Flamengo",<br>
);<br>
----------------->8-----------------<br>
<br>
<br>
Saída:<br>
-----------------8<-----------------<br>
1a Rodada<br>
<br>
Flamengo x Atlético MG<br>
Cruzeiro x Botafogo<br>
<br>
<br>
2a Rodada<br>
<br>
Atlético MG x Cruzeiro<br>
Flamengo x Botafogo<br>
<br>
<br>
3a Rodada<br>
<br>
Botafogo x Atlético MG<br>
Flamengo x Cruzeiro<br>
----------------->8-----------------<br>
<br>
Deu pra entender?<br>
<br>
Abraços!<br>
<br>
--<br>
Gabriel Vieira<br>
<br>
<br>
<br>
</div></div>--<br>
<div><div></div><div class="Wj3C7c">Gabriel Vieira<br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a>