[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