Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re (5): (Golf) Reversal

by btrott (Parson)
on May 02, 2001 at 20:56 UTC ( [id://77413]=note: print w/replies, xml ) Need Help??


in reply to Re: Re: Re: Re: (Golf) Reversal
in thread (Golf) Reversal

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 @_ }
Given the following invocation:
R(65,43,21);
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.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2024-03-28 19:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found