[Rio-pm] Combinação

[Stanislaw Pusep]

A versão para Perl 5.10 é 4 bytes maior:

perl -E 'for(0..63){$_=unpack"b6",chr;y/10/\0 /;say"qwerty"^$_}'

ABS()



On Fri, Mar 23, 2012 at 14:26, Stanislaw Pusep <creaktive em gmail.com> wrote:

> 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/51cf959d/attachment.html>