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

Gabriel Vieira gabriel.vieira em gmail.com
Quinta Março 13 12:16:18 PDT 2008


perl -E "$_=pop;/(.(?{say$&}))+/;say while s/.$//" Perl

-1 :D

On Thu, Mar 13, 2008 at 3:23 PM, Adriano Ferreira
<a.r.ferreira em gmail.com> wrote:
> On Thu, Mar 13, 2008 at 3:19 PM, Eden Cardim <edencardim em gmail.com> wrote:
>  > On Thu, Mar 13, 2008 at 3:03 PM, Eden Cardim <edencardim em gmail.com> wrote:
>  >  > 2008/3/13 Gabriel Vieira <gabriel.vieira em 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++
>
>
> _______________________________________________
>  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