[Rio-pm] Combinação

[Junior Moraes]

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/

<http://www.twitter.com/juniiormoraes> <http://pt-br.facebook.com/juniiormoraes>
  <http://plus.google.com/104958988925423385684>
<http://www.lastfm.com.br/user/juniior182>
  <http://www.delicious.com/fvox>  <http://github.com/fvox>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120323/5b72cbe6/attachment.html>