Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: (golf) Interlaced Strings

by japhy (Canon)
on May 02, 2001 at 07:16 UTC ( #77223=note: print w/ replies, xml ) Need Help??

in reply to (golf) Interlaced Strings

Answers of varying lengths:

sub interlace { # 52 my$x=pop;my$y=reverse+pop;$x=~s/./chop($y).$&/esg;$x } sub interlace { # 47 my$x=pop;@_=split//,pop;$x=~s/./shift.$&/esg;$x } sub interlace { # 45 ($_,@_)=(pop,split//,pop);s/./shift.$&/esg;$_ }
The last two suffer a mandatory 'shift without parens' warning.

Update: here's a shorter one, without said warning.

sub interlace { # 43 $_=shift;@_=split//,pop;s/./$&.shift/esg;$_ }

japhy -- Perl and Regex Hacker

Comment on Re: (golf) Interlaced Strings
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://77223]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2015-11-26 16:08 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (701 votes), past polls