[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