[Rio-pm] [OT-GOLF] Merge

[breno]

e -2 tirando parenteses

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

2010/2/4 breno <breno em rio.pm.org>:
> 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
>>
>