[Rio-pm] golfe! palavras que vão e vem

Fernando Oliveira fernandocorrea em gmail.com
Quarta Março 12 15:10:59 PDT 2008


2a:

perl -E '@a=split//,shift;say em a[0..$_],$/for 0..$#a,reverse 0..$#a-1' Perl

Em 12/03/08, Fernando Oliveira <fernandocorrea em gmail.com> escreveu:
>
> Minha 1a tacada:
> perl -e '@a=split//,shift;for(0..$#a,reverse 0..$#a-1){print em a[0..$_],$/}'
> Perl
> ou
> perl -E '@a=split//,shift;for(0..$#a,reverse 0..$#a-1){say em a[0..$_]}' Perl
>
> Em 12/03/08, breno <breno em rio.pm.org> escreveu:
> >
> > Para os que querem se distrair no fim do expediente e aliviar a cabeça
> > dos problemas, um pouco de esporte :-)
> >
> > O programa deve receber uma palavra e exibir no terminal, a cada
> > linha, a substring com um número crescente e depois decrescente de
> > caracteres.
> >
> > Exemplo canônico (a.k.a "minha primeira e tosca tacada"), com
> > grosseiros 81 caracteres:
> >
> > $  perl -e '$_=shift;for$i(1..length){push em a
> > ,substr($_,0,$i).$/}print em a;pop em a;print
> > reverse em a' Perl
> > P
> > Pe
> > Per
> > Perl
> > Per
> > Pe
> > P
> >
> > ou o equivalente em Perl 5.10
> >
> > $  perl -E '$_=shift;for$i(1..length){push em a
> > ,substr($_,0,$i)}say em a;pop em a;say
> > reverse em a' Perl
> >
> >
> > E aí, pessoal? Tacadas? Será que Adriano vai conseguir superar o
> > Fernando? Será que a Mila vai passar a frente de todos? Será que um
> > azarão ou novato vai tomar a liderança???
> >
> >
> > []s
> >
> > -b
> > _______________________________________________
> > 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/20080312/4c72fb5b/attachment.html 


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