[Rio-pm] Combinação

[Stanislaw Pusep]

perl 5.14 :)

ABS()



On Fri, Mar 23, 2012 at 14:25, Fernando Oliveira
<fernandocorrea em gmail.com>wrote:

> Fernando em ACNBRG809F61V ~
> $ perl -E 'say"qwerty"^(unpack"b6",chr)=~y/10/\0 /r for 0..63'
> Bareword found where operator expected at -e line 1, near "y/10/\0 /r"
> Can't modify unpack in transliteration (tr///) at -e line 1, near "y/10/\0
> /r "
> syntax error at -e line 1, near "y/10/\0 /r "
> Execution of -e aborted due to compilation errors.
>
>
>
>
> Just another Perl Hacker,
> Fernando (SmokeMachine)
>
>
> 2012/3/23 Stanislaw Pusep <creaktive em gmail.com>
>
>> Golf, they said. Binary operations, they said.
>>
>> perl -E 'say"qwerty"^(unpack"b6",chr)=~y/10/\0 /r for 0..63'
>>
>> ABS()
>>
>>
>>
>>
>> On Fri, Mar 23, 2012 at 12:47, Fernando Oliveira <
>> fernandocorrea em gmail.com> wrote:
>>
>>> se a intensão era Golf, segue a minha 1a tacada:
>>>
>>> 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
>>>
>>>
>>>
>>> Just another Perl Hacker,
>>> Fernando (SmokeMachine)
>>>
>>>
>>>
>>> 2012/3/23 Junior Moraes <juniiior182 em gmail.com>
>>>
>>>> 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>
>>>>
>>>>
>>>> _______________________________________________
>>>> 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
>>>
>>
>>
>> _______________________________________________
>> 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/b8e4cbaf/attachment-0001.html>