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

breno breno em rio.pm.org
Quarta Março 12 14:31:25 PDT 2008


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


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