[Rio-pm] Novo Golf

[Fernando Oliveira]

Bom, se é assim, eu tiro mais 3 caracteres do seu:

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

2008/6/20 Fernando Oliveira <fernandocorrea em gmail.com>:

> Então por enquanto o Breno tá ganhando?!
> Quem dá menos?!
>
>
> 2008/6/20 breno <breno em rio.pm.org>:
>
>> 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
>> >
>> _______________________________________________
>> 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
>



-- 
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080620/0204ae8b/attachment-0001.html