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

Fernando Oliveira fernandocorrea em gmail.com
Quinta Julho 3 19:39:52 PDT 2008


-1

perl -E'@a=(($i=1)x(@a=@ARGV)%2, 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/3 Fernando Oliveira <fernandocorrea em gmail.com>:

> -1:D
> perl -E'(@a=@ARGV)%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/3 Fernando Oliveira <fernandocorrea em gmail.com>:
>
> Vamos continuar esse golf (se não me deixarem brincando sozinho) nessa
>> thread
>>
>> ---------- Forwarded message ----------
>> From: Fernando Oliveira <fernandocorrea em gmail.com>
>> Date: 2008/7/2
>> Subject: Re: [Rio-pm] Golf: Criando rodadas de um campeonato
>> To: Perl Mongers Rio de Janeiro <rio-pm em pm.org>
>>
>>
>>  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
>>
>>
>>
>> --
>> 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
>>
>
>
>
> --
> 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/20080703/de858d2b/attachment.html>


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