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

Fernando Oliveira fernandocorrea em gmail.com
Quarta Julho 2 14:11:58 PDT 2008


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


Mais detalhes sobre a lista de discussão Rio-pm