[Rio-pm] [OT-GOLF] Merge

breno breno em rio.pm.org
Quinta Fevereiro 4 06:40:01 PST 2010


Não é todo dia q eu consigo ensinar um truque de golfe pro Fernando,
então deixa eu aproveitar :P

-4 trocando seu shift por pop ;-)

sub merge{@b=split//,pop;@a=split//,pop;join"",map{$a[$_].$b[$_]}0..(@a+ em b)}

[]s

-b

2010/2/4 Fernando Oliveira <fernandocorrea em gmail.com>:
> ainda mais feio:
>
> sub
> merge{@a=split//,shift;@b=split//,shift;join"",map{$a[$_].$b[$_]}0..(@a+ em b)}
>
> Just another Perl Hacker,
> Fernando (SmokeMachine)
> http://perl-e.org
> Sent from Rio De Janeiro, RJ, Brazil
>
>
> 2010/2/4 Fernando Oliveira <fernandocorrea em gmail.com>
>>
>> Feio, mas funciona e é menor:
>>
>> sub
>> merge{@a=split//,shift;@b=split//,shift;join"",map{$a[$_].$b[$_]}0..($#a+$#b)}
>>
>> Just another Perl Hacker,
>> Fernando (SmokeMachine)
>> http://perl-e.org
>> Sent from Rio De Janeiro, RJ, Brazil
>>
>>
>> 2010/2/4 Fernando Oliveira <fernandocorrea em gmail.com>
>>>
>>> 2a:
>>>
>>> sub
>>> merge{@a=split//,shift;@b=split//,shift;join"",map{$a[$_].$b[$_]}0..($#a>$#b?$#a:$#b)}
>>>
>>> Just another Perl Hacker,
>>> Fernando (SmokeMachine)
>>> http://perl-e.org
>>> Sent from Rio De Janeiro, RJ, Brazil
>>>
>>>
>>> Em 4 de fevereiro de 2010 11:38, Fernando Oliveira
>>> <fernandocorrea em gmail.com> escreveu:
>>>>
>>>> sub
>>>> merge{@a=split//,shift;@b=split//,shift;join"",map{shift(@a).shift(@b)}0..($#a>$#b?$#a:$#b)}
>>
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>


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