[Rio-pm] [OT-GOLF] Merge

[Daniel de Oliveira Mantovani]

Não precisa do join:
sub merge{@b=split//,pop;@a=split//,pop;map{$a[$_].$b[$_]}0.. em a+@b}

mantovani em mantovani-desktop:~$ perl -MMerge -E 'say merge("dan",12)'
d1a2n


2010/2/4 breno <breno em rio.pm.org>:
> 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
>>>
>>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
"If you’ve never written anything thoughtful, then you’ve never had
any difficult, important, or interesting thoughts. That’s the secret:
people who don’t write, are people who don’t think."