Então por enquanto o Breno tá ganhando?!<br>Quem dá menos?!<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;">
Tem razão! Eu colei um treco errado aqui e me confundi com a saida, gomen :-)<br>
<br>
Sobre o golfe, vc comeu umas moscas de propósito então aí vai uma<br>
versão condensada da sua (em 5.8.8, diminui mais ainda usando say e<br>
tirando o $/ ou comendo o espaço da impressao)<br>
<br>
<br>
perl -e '@a=({""=>[@ARGV]});for$h(@a){for(0..$#{((values%$h)[0])}){@b=@{((values%$h)[0])};push@a,{(($k=(keys%$h)[0])?"$k,<br>
<div class="Ih2E3d">":"").(splice@b,$_,1)=>[@b]}}}print keys%$_,$/for@a' a b c<br>
<br>
</div><div><div></div><div class="Wj3C7c">[]s<br>
<br>
-b<br>
<br>
<br>
2008/6/20 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br>
> estranho...<br>
><br>
> # perl -e<br>
> '@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]}}}print keys%$_,$/<br>
> 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>
> 2008/6/20 breno <<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>>:<br>
>><br>
>> Aqui apareceu "abca" onde deveria ter apenas "abc" e dois "ba" :-)<br>
>><br>
>> []s<br>
>><br>
>> -b<br>
>><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>
>> >> é<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>
>> >>><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%$_<br>
>> >>> 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>
><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>