[Rio-pm] [OT-GOLF] Merge

[Fernando Oliveira]

minha primeira tacada:

sub merge{@a=split//,shift;@b
=split//,shift;join"",map{shift(@a).shift(@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:35, Blabos de Blebe <blabos em gmail.com>escreveu:

> Entrada: Duas strings 'abcdefghij' e '1234567890', por exemplo
> Saída: Uma string 'a1b2c3d4e5f6g7h8i9j0'
>
> As strings *não* precisam ter o mesmo tamanho:
> merge('abc', 12345) -> a1b2c345
> merge('abcde', 123) -> a1b2c3de
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20100204/2a53987d/attachment.html>