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

[Fernando Oliveira]

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