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

[Adriano Ferreira]

2008/3/12 breno <breno at rio.pm.org>:
> 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 at a,substr($_,0,$i).$/}print at a;pop at a;print
>  reverse at a' Perl
>  P
>  Pe
>  Per
>  Perl
>  Per
>  Pe
>  P
>
>  ou o equivalente em Perl 5.10
>
>  $  perl -E '$_=shift;for$i(1..length){push at a,substr($_,0,$i)}say at a;pop at a;say
>  reverse at 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???

Ei, estou chegando atrasado à disputa. Desta vez o Fernando e o Eden
deram trabalho mesmo. Lá vai minha tacada:

perl -E '$_=pop;$`&&say$`while//gc;say while chop,$_' Perl

Foi necessário usar duas abordagens diferentes para fazer as duas fases:

P
Pe
Per
Perl

e então

Per
Pe
P

[]s
Adriano