[Rio-pm] Combinação

Aureliano Guedes guedes_1000 em hotmail.com
Sexta Março 23 07:34:23 PDT 2012


nessa linha
&re($_[0], $_[1], $_[2] + 1);

você define que são ate 3 caracteres??

ps: não foi so essa linha que eu não entendi.


From: guedes_1000 em hotmail.com
To: rio-pm em pm.org
Date: Fri, 23 Mar 2012 14:27:30 +0000
Subject: Re: [Rio-pm] Combinação







a logica binaria sim, mas da forma que vc colocou não tah mudando o quinto bit, dai quando se trata de letras não tah acontecendo a mudança de minusculo pra maiusculo,

ja esse outro script, não entendi absolutamente nada.

From: juniiior182 em gmail.com
Date: Fri, 23 Mar 2012 11:10:31 -0300
To: rio-pm em pm.org
Subject: Re: [Rio-pm] Combinação

Hi.

Acp, você conseguiu entender o script que postei lá?
Tá que eu não fiz ele pra ficar bonito e ser entendido e sim pra resolver o mini challenge, mas no caso:

use strict; 
use warnings; 



sub re { 
    if($_[2] != length($_[0])) { 
        my $ch = (split(//, $_[0]))[$_[2]]; 
        for((lc($ch), uc($ch))) { 
            $_[1]->[$_[2]] = $_; 
            &re($_[0], $_[1], $_[2] + 1); 


        } 
        return; 
    } 
    print join(q(), @{$_[1]}), "\n"; 
} 
re('ola', [], 0);

Ou conseguiu utilizar a lógica binária pra fazer o mapeamento e mudar os cases?


Por exemplo:
:~$ perl -E 'printf("%b\n", $_) for 0 .. 10'

000 = ola
001 = olA
010 = oLa
011 = oLA
100 = Ola
101 = OlA

E por aí vai...

[]'s



Em 23 de março de 2012 10:45, Aureliano Guedes <guedes_1000 em hotmail.com> escreveu:






Boma dia, monges.

Estou tentando fazer uma função que faça a combinação de cases sem usar o Set::CrossProduct.



Exemplo, tenho [A-F] e [1-6], e uma string com 6 caracteres (_ _ _ _ _ _), ou seja 6 posições
na primeira posição pode ser 1 ou A, na segunda 2 ou B ... na ultima 6 ou B, dai


quero que a saida seja todas as combinações possiveis, oou seja, todas as possibilidades da string.

Ja estou tentando a 2 dias, mas nada vem em mente. 



Caso eu tenha me expressado mal (como o de costume), eu tento explicar melhor.

Aguardando alguma ajuda, desde ja obrigado.
 		 	   		  

_______________________________________________

Rio-pm mailing list

Rio-pm em pm.org

http://mail.pm.org/mailman/listinfo/rio-pm


-- 
Junior Moraes (fvox)


Perl Developer
http://www.unsecurity.com.br/

     





_______________________________________________
Rio-pm mailing list
Rio-pm em pm.org
http://mail.pm.org/mailman/listinfo/rio-pm 		 	   		  

_______________________________________________
Rio-pm mailing list
Rio-pm em pm.org
http://mail.pm.org/mailman/listinfo/rio-pm 		 	   		  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120323/8b1c1fbd/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm