-1<br><br>perl -E'@a=(($i=1)x(@a=@ARGV)%2,@a);for$r(1..$#a){say"$/${r}a Rodada:$/$/";$y=3-($x=(!$_&$r|$_&1)+1),printf"%$x\$-15sx%$y\$15s\n",@a[$_,-$_-1]for$i..$#a/2;@a[1..$#a]=@a[2..$#a,1]}' A B C D E<br>
<br><br><div class="gmail_quote">2008/7/3 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@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;">
-1:D<br>perl -E'(@a=@ARGV)%2&&(@a=($i=1,@a));for$r(1..$#a){say"$/${r}a Rodada:$/$/";$y=3-($x=(!$_&$r|$_&1)+1),printf"%$x\$-15sx%$y\$15s\n",@a[$_,-$_-1]for$i..$#a/2;@a[1..$#a]=@a[2..$#a,1]}' A B C D E<br>
<br><div class="gmail_quote">2008/7/3 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<div><div></div><div class="Wj3C7c"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Vamos continuar esse golf (se não me deixarem brincando sozinho) nessa thread<br><br><div class="gmail_quote">---------- Forwarded message ----------<br>From: <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>><br>
Date: 2008/7/2<br>Subject: Re: [Rio-pm] Golf: Criando rodadas de um campeonato<br>To: Perl Mongers Rio de Janeiro <<a href="mailto:rio-pm@pm.org" target="_blank">rio-pm@pm.org</a>><br><br><br> perl -E'@a=@ARGV;@a%2&&(@a=($i=1,@a));for$r(1..$#a){say$/,$r,"a Rodada:",$/x2;$y=3-($x=(!$_&$r|$_&1)+1),printf"%$x\$-15sx%$y\$15s\n",@a[$_,-$_-1]for$i..$#a/2;@a[1..$#a]=@a[2..$#a,1]}' A B C D E<div>
<div></div><div><br>
<br><div class="gmail_quote">2008/7/2 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@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;">
Mentira! desconsiderem esse último código!<div><div></div><div><br><br><div class="gmail_quote">2008/7/2 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@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;">
-2!<br><br>perl -E'@a=@ARGV;@a%2&&($i=1)&&unshift@a,0;for(1..$#a){say$/,$_,"a Rodada:",$/x2;@b=(-$_-1,$_),printf"%-15sx%15s$/",@a[$_||$i||$_%2?@b[1,0]:@b]for$i..$#a/2;@a[1..$#a]=@a[2..$#a,1]}' A B C D E<div>
<div></div><div><br>
<br><div class="gmail_quote">2008/7/2 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@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;">
perl -E, desculpem!<br><br><div class="gmail_quote"><div>2008/7/2 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
-3<br><br>perl -E'@a=@ARGV;@a%2&&($i=1)&&unshift@a,a;for(1..$#a){say$/,$_,"a Rodada:",$/x2;@b=(-$_-1,$_),printf"%-15sx%15s$/",@a[$_%2?@b:$_||$i?@b[1,0]:@b]for$i..$#a/2;@a[1..$#a]=@a[2..$#a,1]}' A B C D E<div>
<div></div><div><div>
<div></div><div><br>
<br><div class="gmail_quote">2008/7/2 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@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;">
Pois é... será q esse eu ganho sem disputa?.. :(<br><br><div class="gmail_quote">2008/7/2 Eden Cardim <<a href="mailto:edencardim@gmail.com" target="_blank">edencardim@gmail.com</a>>:<div><div></div><div>
<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>2008/7/2 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br>
> perl -e'@a=@ARGV;unshift@a,""if@a%2&&($i=1);for(1..$#a){print$/,$_,"a<br>
> Rodada:",$/x3;@b=(-$_-1,$_),printf"%-15sx%15s$/",@a[$_%2?@b:$_||$i?@b[1,0]:@b]for$i..$#a/2;@a[1..$#a]=@a[2..$#a,1]}'<br>
> A B C D E<br>
<br>
</div>Nossa, os golfes mais interessantes só aparecem quando estamos<br>
atolados de trabalho :/<br>
<font color="#888888"><br>
--<br>
<a href="http://edenc.vox.com" target="_blank">edenc.vox.com</a><br>
</font><div><div></div><div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">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></div></div><br><br clear="all"><br>-- <br><div><div></div><div>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div></div></div></blockquote></div><div><div></div><div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div></div><br><font color="#888888"><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</font><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">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></blockquote></div></div></div><div><div></div><div class="Wj3C7c"><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>
Fernando (SmokeMachine)<br>
<a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</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>