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

Fernando Oliveira fernandocorrea em gmail.com
Quinta Março 13 03:20:06 PDT 2008


(na verdade 50... esquecí de botar um -n no meu echo..)

Em 13/03/08, Fernando Oliveira <fernandocorrea em gmail.com> escreveu:
>
> Tirei o reverse!!!
>
> perl -E '@a=split//,shift;say em a[0..abs]for 0..$#a,-$#a+1..0' Perl
>
> 51 caracteres! Uma boa ideia!
>
> Em 13/03/08, Fernando Oliveira <fernandocorrea em gmail.com> escreveu:
> >
> > alguém sabe me dizer se no perl6 agente vai poder fazer coisa tipo isso
> > 10 .. 0 ao invez de reverse 0 .. 10 ?
> >
> > Em 13/03/08, Fernando Oliveira <fernandocorrea em gmail.com> escreveu:
> > >
> > > eu esqueci de tirar o $/ do say()! A minha intenção era tirar, mas eu
> > > esquecí! Eu tava em SP, no PC q eu tava, não tinha o 5.10!
> > > mas o q tá me matando é esse reverse... é muito grande!
> > >
> > > Em 13/03/08, Gabriel Vieira <gabriel.vieira em gmail.com> escreveu:
> > > >
> > > > perl -E '@a=split//,shift;say em a[0..$_]for 0..$#a,reverse 0..$#a-1'
> > > > Perl
> > > >
> > > >
> > > > Até tu camila?! :)
> > > >
> > > > 2008/3/12 camila m. <misskaapow em gmail.com>:
> > > >
> > > > > poxa, fê, deu mole:
> > > > > perl -le '@a=split//,shift;print em a[o..$_]for(0..$#a,reverse
> > > > 0..$#a-1)' Perl
> > > > >
> > > > >
> > > > >
> > > > > On 12/03/2008, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
> > > > > > ninguém mais vai brincar não?! :(
> > > > > >
> > > > > >
> > > > > >
> > > > > > Em 12/03/08, Fernando Oliveira <fernandocorrea em gmail.com>
> > > > escreveu:
> > > > > > > 2a:
> > > > > > >
> > > > > > > perl -E '@a=split//,shift;say em a[0..$_],$/for 0..$#a,reverse
> > > > 0..$#a-1'
> > > > > Perl
> > > > > > >
> > > > > > >
> > > > > > > Em 12/03/08, Fernando Oliveira <fernandocorrea em gmail.com>
> > > > escreveu:
> > > > > > >
> > > > > > > > Minha 1a tacada:
> > > > > > > > perl -e '@a=split//,shift;for(0..$#a,reverse
> > > > > 0..$#a-1){print em a[0..$_],$/}' Perl
> > > > > > > > ou
> > > > > > > > perl -E '@a=split//,shift;for(0..$#a,reverse 0..$#a-1){say em a
> > > > [0..$_]}'
> > > > > Perl
> > > > > > > >
> > > > > > > >
> > > > > > > > Em 12/03/08, breno <breno em rio.pm.org> escreveu:
> > > > > > > >
> > > > > > > > > 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
> > > > > > > > > _______________________________________________
> > > > > > > > > Rio-pm mailing list
> > > > > > > > > Rio-pm em pm.org
> > > > > > > > > http://mail.pm.org/mailman/listinfo/rio-pm
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > --
> > > > > > > > Just another Perl Hacker,
> > > > > > > > Fernando (SmokeMachine)
> > > > > > > > http://perl-e.org
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > --
> > > > > > > Just another Perl Hacker,
> > > > > > > Fernando (SmokeMachine)
> > > > > > > http://perl-e.org
> > > > > >
> > > > > >
> > > > > >
> > > > > > --
> > > > > > Just another Perl Hacker,
> > > > > > Fernando (SmokeMachine)
> > > > > > http://perl-e.org
> > > > > > _______________________________________________
> > > > > > Rio-pm mailing list
> > > > > > Rio-pm em pm.org
> > > > > > http://mail.pm.org/mailman/listinfo/rio-pm
> > > > > >
> > > > >
> > > > >
> > > > >
> > > > > --
> > > > >  camila m.
> > > > > _______________________________________________
> > > > >  Rio-pm mailing list
> > > > >  Rio-pm em pm.org
> > > > >  http://mail.pm.org/mailman/listinfo/rio-pm
> > > > >
> > > >
> > > >
> > > >
> > > > --
> > > >
> > > > Gabriel Vieira
> > > >
> > > > _______________________________________________
> > > > Rio-pm mailing list
> > > > Rio-pm em pm.org
> > > > http://mail.pm.org/mailman/listinfo/rio-pm
> > > >
> > >
> > >
> > >
> > > --
> > > Just another Perl Hacker,
> > > Fernando (SmokeMachine)
> > > http://perl-e.org
> > >
> >
> >
> >
> > --
> > Just another Perl Hacker,
> > Fernando (SmokeMachine)
> > http://perl-e.org
> >
>
>
>
> --
> Just another Perl Hacker,
> Fernando (SmokeMachine)
> http://perl-e.org
>



-- 
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080313/7f9386c1/attachment-0001.html 


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