[Rio-pm] [OT-GOLF] Merge

[Fernando Oliveira]

-2

sub merge{$_=pop;@_=pop=~/./g;s/./$&.shift/ge;join'',$_, em _}

On Feb 4, 2010 3:59 PM, "Nilson Santos Figueiredo Jr." <acid06 em gmail.com>
wrote:

Menos 2 chars, abusando de variáveis especiais:

sub merge{$_=pop;@_=pop=~/./g;s/(.)/$1.shift/ge;join'',$_, em _}

-Nilson


On Thu, Feb 4, 2010 at 3:54 PM, Nilson Santos Figueiredo Jr.
<acid06 em gmail.com> wrote:
> Acho que v...
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20100206/8c23d57f/attachment.html>