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

[Gabriel Vieira]

-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