[Rio-pm] golfe! palavras que vão e vem
Gabriel Vieira
gabriel.vieira em gmail.com
Quinta Março 13 08:22:25 PDT 2008
perl -E '$_=pop;$`&&say$`while//gc;say while chop$_' Perl
2008/3/13 Adriano Ferreira <a.r.ferreira em gmail.com>:
> 2008/3/12 breno <breno em 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 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???
>
> 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
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
--
Gabriel Vieira
Mais detalhes sobre a lista de discussão Rio-pm