[Rio-pm] Novo Golf

[breno]

Tem razão! Eu colei um treco errado aqui e me confundi com a saida, gomen :-)

Sobre o golfe, vc comeu umas moscas de propósito então aí vai uma
versão condensada da sua (em 5.8.8, diminui mais ainda usando say e
tirando o $/ ou comendo o espaço da impressao)


perl -e '@a=({""=>[@ARGV]});for$h(@a){for(0..$#{((values%$h)[0])}){@b=@{((values%$h)[0])};push em a,{(($k=(keys%$h)[0])?"$k,
":"").(splice em b,$_,1)=>[@b]}}}print keys%$_,$/for em a' a b c

[]s

-b


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