Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^2: Adding 2 + 2 (digit-less 1)

by ikegami (Pope)
on Jan 29, 2007 at 20:46 UTC ( #597169=note: print w/ replies, xml ) Need Help??


in reply to Re: Adding 2 + 2
in thread Adding 2 + 2

That's really an interesting way of getting 1, not 2. Other interesting ways to get 1:

my $one = !@!; my $one = !!$]; my $one = /.*/; # Side-effect: Changes $1, etc my $one = $$/$$; my $one = ()=$$; my $one = @{[$$]}; my $one = 'a'^'P'; # Character set specific. my $one = ord('b')-ord('a'); # Character set specific.

And 2:

my $two = $one+$one; my $two = $one<<$one; my $two = ()=qw(a a); my $two = @{[ qw(a a) ]}; my $two = ()=/(.*)(.*)/; # Side-effect: Changes $1, etc my $two = 'a'^'S'; # Character set specific. my $two = ord('c')-ord('a'); # Character set specific.

None of these have side effects unless otherwise noted.
All of these run under use strict;.
All of these run silently under use warnings;.


Comment on Re^2: Adding 2 + 2 (digit-less 1)
Select or Download Code
Re^3: Adding 2 + 2 (digit-less 1)
by ambrus (Abbot) on Jan 31, 2007 at 10:15 UTC
Re^3: Adding 2 + 2 (digit-less 1)
by w-ber (Hermit) on Mar 04, 2007 at 15:26 UTC

    More (although not as neat):

    my $one = !$|; my $one = cos; # Given that $_ == 0. my $one = cos $|; my $one = cos atan2 $|, cos; my $one = sin atan2 sin, $|; my $one = length $/; # Note: possibly 2 under Windows or DOS. my $one = length $"; my $one = length $;; my $one = length $^L; my $one = $^T/$^T; my $one = @ARGV >= 0; my $one = grep //, ($_); my $one = !undef; # Note: the following may be Unix-only. Will not work if run as root, # as root's UID and GID are (always?) zero. my $one = $</$<; # User ID. my $one = $>/$>; # Effective user ID. my $one = $(/$(; # (Space-separated list of) group ID(s). my $one = $)/$); # (Space-separated list of) effective group ID(s +).

    Ways to get 2:

    my $two = length $:; my $two = $^F; # Note: system-dependent.

    --
    print "Just Another Perl Adept\n";

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2014-07-26 13:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (176 votes), past polls