Hi.<br><br>Acp, você conseguiu entender o script que postei lá?<br>Tá que eu não fiz ele pra ficar bonito e ser entendido e sim pra resolver o mini challenge, mas no caso:<br><br><font size="1">use strict; <br>use warnings; </font><br>
<br><font size="1">sub re { <br> if($_[2] != length($_[0])) { <br> my $ch = (split(//, $_[0]))[$_[2]]; <br> for((lc($ch), uc($ch))) { <br> $_[1]->[$_[2]] = $_; <br> &re($_[0], $_[1], $_[2] + 1); <br>
} <br> return; <br> } <br> print join(q(), @{$_[1]}), "\n"; <br>} <br>re('ola', [], 0);</font><br><br>Ou conseguiu utilizar a lógica binária pra fazer o mapeamento e mudar os cases?<br>
Por exemplo:<br><i>:~$ perl -E 'printf("%b\n", $_) for 0 .. 10'</i><br><br>000 = ola<br>001 = olA<br>010 = oLa<br>011 = oLA<br>100 = Ola<br>101 = OlA<br><br>E por aí vai...<br><br>[]'s<br><br><div class="gmail_quote">
Em 23 de março de 2012 10:45, Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Boma dia, monges.<br><br>Estou tentando fazer uma função que faça a combinação de cases sem usar o <code><code><span style><span style="color:#0000bb">Set</span><span style="color:#007700">::</span><span style="color:#0000bb">CrossProduct.<br>
<br><font color="#000000">Exemplo, tenho [A-F] e [1-6], e uma string com 6 caracteres (_ _ _ _ _ _), ou seja 6 posições</font><font color="#000000"><br></font><font color="#000000">na primeira posição pode ser 1 ou A, na segunda 2 ou B ... na ultima 6 ou B, dai</font><font color="#000000"><br>
</font><font color="#000000">quero que a saida seja todas as combinações possiveis, oou seja, todas as possibilidades da string.</font><font color="#000000"><br></font><font color="#000000"><br></font><font color="#000000">Ja estou tentando a 2 dias, mas nada vem em mente. <br>
<br>Caso eu tenha me expressado mal (como o de costume), eu tento explicar melhor.<br><br>Aguardando alguma ajuda, desde ja obrigado.<br></font></span></span></code></code> </div></div>
<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><br clear="all"><br>-- <br><span style="color:rgb(0,0,0);font-family:'Times New Roman';font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><font>Junior Moraes (fvox)<br>
Perl Developer<br><a href="http://www.unsecurity.com.br/" target="_blank">http://www.unsecurity.com.br/</a><br><br></font></span><span style="color:rgb(0,0,0);font-family:'Times New Roman';font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:-webkit-auto;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><a href="http://www.twitter.com/juniiormoraes" target="_blank"><img src="http://i.imgur.com/yIS1c.png"></a><span> </span><a href="http://pt-br.facebook.com/juniiormoraes" target="_blank"><img src="http://i.imgur.com/BhlCG.png"></a><span> </span><a href="http://plus.google.com/104958988925423385684" target="_blank"><img src="http://i.imgur.com/y1VgL.png"></a><span> </span><a href="http://www.lastfm.com.br/user/juniior182" target="_blank"><img src="http://i.imgur.com/UgjTP.png"></a><span> </span><a href="http://www.delicious.com/fvox" target="_blank"><img src="http://i.imgur.com/Xmoky.png"></a><span> </span><a href="http://github.com/fvox" target="_blank"><img src="http://i.imgur.com/qK5SU.png"></a></span><br>
<br>