minha primeira tacada:<br><br>sub merge{@a=split//,shift;@b=split//,shift;join&quot;&quot;,map{shift(@a).shift(@b)}0..($#a&gt;$#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">&lt;<a href="mailto:blabos@gmail.com">blabos@gmail.com</a>&gt;</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 &#39;abcdefghij&#39; e &#39;1234567890&#39;, por exemplo<br>
Saída: Uma string &#39;a1b2c3d4e5f6g7h8i9j0&#39;<br>
<br>
As strings *não* precisam ter o mesmo tamanho:<br>
merge(&#39;abc&#39;, 12345) -&gt; a1b2c345<br>
merge(&#39;abcde&#39;, 123) -&gt; 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>