[Rio-pm] Golf: Criando rodadas de um campeonato

[Samir Cury]

sim, mas como disse o Fernando, acho melhor continuar no outro tópico ;-),
que especifica [golf]

2008/7/3 Gabriel Vieira <gabriel.vieira em gmail.com>:

> Estão recebendo?
>
> On Thu, Jul 3, 2008 at 12:34 PM, Gabriel Vieira
> <gabriel.vieira em gmail.com> wrote:
> > -1 :P
> >
> > perl -E'@a=@ARGV;@a%2&&(@a=($i=1, em a));for$r(1..$#a){say$/,$r,"a
> >
> Rodada:$/$/";$y=3-($x=(!$_&$r|$_&1)+1),printf"%$x\$-15sx%$y\$15s\n", em a[$_,-$_-1]for$i..$#a/2;@a
> [1..$#a]=@a[2..$#a,1]}'
> > A B C D E
> >
> > 2008/7/2 Fernando Oliveira <fernandocorrea em gmail.com>:
> >>  perl -E'@a=@ARGV;@a%2&&(@a=($i=1, em a));for$r(1..$#a){say$/,$r,"a
> >>
> Rodada:",$/x2;$y=3-($x=(!$_&$r|$_&1)+1),printf"%$x\$-15sx%$y\$15s\n", em a[$_,-$_-1]for$i..$#a/2;@a
> [1..$#a]=@a[2..$#a,1]}'
> >> A B C D E
> >>
> >> 2008/7/2 Fernando Oliveira <fernandocorrea em gmail.com>:
> >>>
> >>> Mentira! desconsiderem esse último código!
> >>>
> >>> 2008/7/2 Fernando Oliveira <fernandocorrea em gmail.com>:
> >>>>
> >>>> -2!
> >>>>
> >>>> perl -E'@a=@ARGV;@a%2&&($i=1)&&unshift em a,0;for(1..$#a){say$/,$_,"a
> >>>> Rodada:",$/x2;@b
> =(-$_-1,$_),printf"%-15sx%15s$/", em a[$_||$i||$_%2?@b[1,0]:@b]for$i..$#a/2;@a
> [1..$#a]=@a[2..$#a,1]}'
> >>>> A B C D E
> >>>>
> >>>> 2008/7/2 Fernando Oliveira <fernandocorrea em gmail.com>:
> >>>>>
> >>>>> perl -E, desculpem!
> >>>>>
> >>>>> 2008/7/2 Fernando Oliveira <fernandocorrea em gmail.com>:
> >>>>>>
> >>>>>> -3
> >>>>>>
> >>>>>> perl -E'@a=@ARGV;@a%2&&($i=1)&&unshift em a,a;for(1..$#a){say$/,$_,"a
> >>>>>> Rodada:",$/x2;@b
> =(-$_-1,$_),printf"%-15sx%15s$/", em a[$_%2?@b:$_||$i?@b[1,0]:@b]for$i..$#a/2;@a
> [1..$#a]=@a[2..$#a,1]}'
> >>>>>> A B C D E
> >>>>>>
> >>>>>> 2008/7/2 Fernando Oliveira <fernandocorrea em gmail.com>:
> >>>>>>>
> >>>>>>> Pois é... será q esse eu ganho sem disputa?.. :(
> >>>>>>>
> >>>>>>> 2008/7/2 Eden Cardim <edencardim em gmail.com>:
> >>>>>>>>
> >>>>>>>> 2008/7/2 Fernando Oliveira <fernandocorrea em gmail.com>:
> >>>>>>>> > perl
> >>>>>>>> > -e'@a=@ARGV;unshift em a,""if em a
> %2&&($i=1);for(1..$#a){print$/,$_,"a
> >>>>>>>> >
> >>>>>>>> > Rodada:",$/x3;@b
> =(-$_-1,$_),printf"%-15sx%15s$/", em a[$_%2?@b:$_||$i?@b[1,0]:@b]for$i..$#a/2;@a
> [1..$#a]=@a[2..$#a,1]}'
> >>>>>>>> > A B C D E
> >>>>>>>>
> >>>>>>>> Nossa, os golfes mais interessantes só aparecem quando estamos
> >>>>>>>> atolados de trabalho :/
> >>>>>>>>
> >>>>>>>> --
> >>>>>>>> edenc.vox.com
> >>>>>>>> _______________________________________________
> >>>>>>>> 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
> >> _______________________________________________
> >> Rio-pm mailing list
> >> Rio-pm em pm.org
> >> http://mail.pm.org/mailman/listinfo/rio-pm
> >>
> >
> >
> >
> > --
> > Gabriel Vieira
> >
>
>
>
> --
> Gabriel Vieira
> _______________________________________________
> 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/20080703/57ffff3b/attachment-0002.html>