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

[Adriano Ferreira]

On Thu, Mar 13, 2008 at 3:19 PM, Eden Cardim <edencardim at gmail.com> wrote:
> On Thu, Mar 13, 2008 at 3:03 PM, Eden Cardim <edencardim at gmail.com> wrote:
>  > 2008/3/13 Gabriel Vieira <gabriel.vieira at gmail.com>:
>  >
>  > > perl -E '$_=pop;$`&&say$`while//g;say while chop,$_' Perl
>  >
>  >   perl -E'$_=pop;/(.(?{say$&}))+/;say while chop' Perl
>  >
>  >  Ainda não compilei 5.10 aqui mas vou arriscar essa conversão de perl 5.8 ;)
>
>  Opa, isso imprime um newline a mais. Só que mesmo consertando ainda é
>  menor que a do adriano :P
>
>
>  perl -E'$_=pop;/(.(?{say$&}))+/;say while chop,$_' Perl
>
>  50 caracteres

Bonita solução!

Eden++