Golf, they said. Binary operations, they said.<div><br><div>perl -E 'say"qwerty"^(unpack"b6",chr)=~y/10/\0 /r for 0..63'<br clear="all"><br>ABS()<br><br>
<br><br><div class="gmail_quote">On Fri, Mar 23, 2012 at 12:47, Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
se a intensão era Golf, segue a minha 1a tacada:<div><br></div><div>perl -E'@a=map{["\u$_","\l$_"]}split//,pop;sub r{return""if!@_;my$b=pop;map{($_.$b->[0],$_.$b->[1])}r(@_)}say for r(@a)' ola<br clear="all">
<br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<div><div class="h5"><br>
<br><br><div class="gmail_quote">2012/3/23 Junior Moraes <span dir="ltr"><<a href="mailto:juniiior182@gmail.com" target="_blank">juniiior182@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
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" target="_blank">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>
<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><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></div></div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">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><span><font color="#888888"><br></font></span></blockquote></div><span><font color="#888888"><br>
<br clear="all"><br>-- <br><span style="line-height:normal;text-indent:0px;letter-spacing:normal;font-variant:normal;text-transform:none;font-size:medium;font-style:normal;white-space:normal;font-family:'Times New Roman';font-weight:normal;word-spacing:0px"><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="text-indent:0px;letter-spacing:normal;font-variant:normal;text-align:-webkit-auto;font-style:normal;font-weight:normal;line-height:normal;text-transform:none;font-size:medium;white-space:normal;font-family:'Times New Roman';word-spacing:0px"><a href="http://www.twitter.com/juniiormoraes" target="_blank"><img></a><span> </span><a href="http://pt-br.facebook.com/juniiormoraes" target="_blank"><img></a><span> </span><a href="http://plus.google.com/104958988925423385684" target="_blank"><img></a><span> </span><a href="http://www.lastfm.com.br/user/juniior182" target="_blank"><img></a><span> </span><a href="http://www.delicious.com/fvox" target="_blank"><img></a><span> </span><a href="http://github.com/fvox" target="_blank"><img></a></span><br>
<br>
</font></span><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">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></div></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></div></div>