estranho...<br><br># perl -e '@a=({""=>[@ARGV]});for$h(@a){for(0..$#{((values%$h)[0])}){my@b=@{((values%$h)[0])};push @a,{(($k=(keys%$h)[0])?"$k, ":"").(splice@b,$_,1)=>[@b]}}}print keys%$_,$/ for@a' a b c<br>
<br>a<br>b<br>c<br>a, b<br>a, c<br>b, a<br>b, c<br>c, a<br>c, b<br>a, b, c<br>a, c, b<br>b, a, c<br>b, c, a<br>c, a, b<br>c, b, a<br><br><br><div class="gmail_quote">2008/6/20 breno <<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Aqui apareceu "abca" onde deveria ter apenas "abc" e dois "ba" :-)<br>
<br>
[]s<br>
<font color="#888888"><br>
-b<br>
</font><div><div></div><div class="Wj3C7c"><br>
2008/6/20 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br>
> mas funcionou?<br>
><br>
> 2008/6/20 Samir Cury <<a href="mailto:rimasy@gmail.com">rimasy@gmail.com</a>>:<br>
>><br>
>> Isso que eu chamo de código obscuro, por isso que dizem que Perl também é<br>
>> arte XD<br>
>><br>
>> 2008/6/20 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br>
>>><br>
>>> Minha tacada:<br>
>>> <code><br>
>>> perl<br>
>>> -E'@a=({""=>[@ARGV]});for$h(@a){for(0..$#{((values%$h)[0])}){my@b=@{((values%$h)[0])};push<br>
>>> @a,{(($k=(keys%$h)[0])?"$k, ":"").(splice@b,$_,1)=>[@b]}}}say keys%$_ for@a'<br>
>>> a b c<br>
>>> </code><br>
>>><br>
>>> 2008/6/20 breno <<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>>:<br>
>>>><br>
>>>> Se for comprovadamente "turing-complete", não vejo pq não :-)<br>
>>>><br>
>>>> []s<br>
>>>><br>
>>>> -b<br>
>>>><br>
>>>> 2008/6/20 Marcos Machado <<a href="mailto:listas@istf.com.br">listas@istf.com.br</a>>:<br>
>>>> > Fernando Oliveira escreveu:<br>
>>>> >> Golf não é p/ ser rápido, é p/ ser pequeno...<br>
>>>> ><br>
>>>> > Mas há limites, certo? Se alguém aparecer com uma solução "teórica"<br>
>>>> > que<br>
>>>> > só vai responder daqui a 7,5 milhões de anos vale?<br>
>>>> ><br>
>>>> > []s, MM<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>
>>>> ><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>
>>><br>
>>><br>
>>><br>
>>> --<br>
>>> Just another Perl Hacker,<br>
>>> Fernando (SmokeMachine)<br>
>>> <a href="http://perl-e.org" target="_blank">http://perl-e.org</a><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>
>><br>
>><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>
><br>
><br>
><br>
> --<br>
> Just another Perl Hacker,<br>
> Fernando (SmokeMachine)<br>
> <a href="http://perl-e.org" target="_blank">http://perl-e.org</a><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>
><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>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a>