minha primeira tacada:<br><br>sub merge{@a=split//,shift;@b=split//,shift;join"",map{shift(@a).shift(@b)}0..($#a>$#b?$#a:$#b)}<br><br clear="all">Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>
Sent from Rio De Janeiro, RJ, Brazil<br>
<br><br><div class="gmail_quote">Em 4 de fevereiro de 2010 11:35, Blabos de Blebe <span dir="ltr"><<a href="mailto:blabos@gmail.com">blabos@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Entrada: Duas strings 'abcdefghij' e '1234567890', por exemplo<br>
Saída: Uma string 'a1b2c3d4e5f6g7h8i9j0'<br>
<br>
As strings *não* precisam ter o mesmo tamanho:<br>
merge('abc', 12345) -> a1b2c345<br>
merge('abcde', 123) -> a1b2c3de<br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</blockquote></div><br>