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

Adriano Ferreira a.r.ferreira em gmail.com
Quinta Março 13 08:58:17 PDT 2008


2008/3/13 Gabriel Vieira <gabriel.vieira at gmail.com>:
> Corrigi a virgula! Tirei apenas o atributo 'c' do while.

Já disse que eu detesto golfe? ;-)

>
>
>  2008/3/13 Adriano Ferreira <a.r.ferreira at gmail.com>:
>  > 2008/3/13 Gabriel Vieira <gabriel.vieira at gmail.com>:
>  >  > Na verdade:
>  >  >
>  >  >  perl -E '$_=pop;$`&&say$`while//g;say while chop$_' Perl
>  >
>  >  Imprime um newline a mais.
>  >
>  >  Não funciona com palavras que tenham o caracter '0'
>  >
>  >  Experimente:
>  >
>  >    perl -E '$_=pop;$`&&say$`while//g;say while chop$_' 10002
>  >
>  >
>  >
>  >  >
>  >  >
>  >  >  2008/3/13 Gabriel Vieira <gabriel.vieira at gmail.com>:
>  >  >
>  >  >
>  >  > > perl -E '$_=pop;$`&&say$`while//gc;say while chop$_' Perl
>  >  >  >
>  >  >  >  2008/3/13 Adriano Ferreira <a.r.ferreira at gmail.com>:
>  >  >  >
>  >  >  >
>  >  >  > > 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
>  >  >  >  >  _______________________________________________
>  >  >  >  >  Rio-pm mailing list
>  >  >  >  >  Rio-pm at pm.org
>  >  >  >  >  http://mail.pm.org/mailman/listinfo/rio-pm
>  >  >  >  >
>  >  >  >
>  >  >  >
>  >  >  >
>  >  >  >  --
>  >  >  >  Gabriel Vieira
>  >  >  >
>  >  >
>  >  >
>  >  >
>  >  >  --
>  >  >  Gabriel Vieira
>  >  >  _______________________________________________
>  >  >  Rio-pm mailing list
>  >  >  Rio-pm at pm.org
>  >  >  http://mail.pm.org/mailman/listinfo/rio-pm
>  >  >
>  >  _______________________________________________
>  >  Rio-pm mailing list
>  >  Rio-pm at pm.org
>  >  http://mail.pm.org/mailman/listinfo/rio-pm
>  >
>
>
>
>  --
>  Gabriel Vieira
>  _______________________________________________
>  Rio-pm mailing list
>  Rio-pm at pm.org
>  http://mail.pm.org/mailman/listinfo/rio-pm
>


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