Perl: the Markov chain saw PerlMonks

### Re: Re: Re: (Golf) Reversal

by MeowChow (Vicar)
 on May 02, 2001 at 10:12 UTC ( #77249=note: print w/replies, xml ) Need Help??

in reply to Re: Re: (Golf) Reversal

Got it! (no peeking :)
 ```sub R { ~~reverse@_ } [download]```
```   MeowChow
s aamecha.s a..a\u\$&owag.print```

Replies are listed 'Best First'.
Re: Re: Re: Re: (Golf) Reversal
by Masem (Monsignor) on May 02, 2001 at 20:45 UTC
Ok, question: What the...??? (I don't doubt that this works, but I've never seen that construct before...)

Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
I'll explain it in the black box so that no one reads anything they don't want to see. :)

 All you need to do to solve the original problem is do a reverse on the array in *scalar context*. Because in scalar context, reverse concatenates its arguments, then reverses that new strong. For example, this would solve the original problem: ``` sub R { scalar reverse @_ } [download]``` Given the following invocation: ``` R(65,43,21); [download]``` that would return the string '123456', because the args are first concatenated into '654321', then that string is reversed by reverse. The problem with using scalar is that this is golf, and scalar is too long. So perhaps you see where this is going, now--the key is to get reverse into scalar context with as few keystrokes as possible, and to have it work on strings as well as numbers. To do this, you can use the bitwise negation operator '~', which (if you read perlop) also works on strings. Just negate the string twice, and you have the original string; and the operator puts reverse into scalar context. And you're done.
As always, if I've got anything wrong, please correct me.

Create A New User
Node Status?
node history
Node Type: note [id://77249]
help
Chatterbox?
 [LanX]: quick survey ... Module::Build, ExtUtils:: ModuleMaker or Module::Starter ? [Your Mother]: Module::Install [Your Mother]: :P [LanX]: Moma knows best! ;-) [Your Mother]: I am quite aware that Module::Build is MUCH more in favor with many monks but I had trouble with it every time I tried to use it and trouble with CPAN stuff that used it too. [Your Mother]: Take my advice with a grain of salt. I haven't done a new CPAN release in years at this point.

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2017-08-18 17:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Who is your favorite scientist and why?

Results (306 votes). Check out past polls.

Notices?