[Rio-pm] Novo Golf

Fernando Oliveira fernandocorrea em gmail.com
Sexta Junho 20 12:37:20 PDT 2008


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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080620/401b82ac/attachment-0001.html 


Mais detalhes sobre a lista de discussão Rio-pm