Na verdade, o seu é 24 :-)<br><br>Esse meu aqui é que é 25:<br><br>$x=qr/a(??{$x})b|/;/^$x$/<br><br>Mas o seu tem bug, ele bate com "a^n b^k a^n-k" , ex: "aaaabaaa".<br><br>Então estou na frente, hehe :-)
<br><br><br>[]s<br>Wendel<br><br><br><div><span class="gmail_quote">On 5/24/07, <b class="gmail_sendername">Eden Cardim</b> <<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On 5/24/07, Wendel Scardua <<a href="mailto:wendelscardua@gmail.com">wendelscardua@gmail.com</a>> wrote:<br>> Dá pra ganhar mais 1 pontos (abusando de barewords):<br>><br>> /^(a*)(??{b x length$1})$/<br><br>
25 (-2 chars):<br><br>s/^(a*)//;tr/b/a/;/^$1$/<br><br>--<br>Eden Cardim<br>Instituto Baiano de Biotecnologia<br>Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas<br>Laboratório de Bioinformática<br>
</blockquote></div><br clear="all"><br>-- <br>"Não ajustar o auto-ajuste" - <a href="http://wendel.scardua.net/">http://wendel.scardua.net/</a>