Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2014-12-27 02:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (176 votes), past polls