Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

RE: Adding 2 + 2

by Adam (Vicar)
on Sep 11, 2000 at 21:00 UTC ( #31927=note: print w/replies, xml ) Need Help??


in reply to Adding 2 + 2

Ok, I have a few more. First, the one I posted last night followed by several new ones. (Including one that uses no digits)
perl -we "$,=2+2=>print('The result is ',$/)" perl -we "1while(2+2>++$.);print qq;The result is $.$/;" perl -we "tie $sum,'_',4;print 'The result is ',$sum,$/;sub _::TIESCAL +AR{bless[pop],'_'}sub _::FETCH{$_[0][0]=2+2}" perl -we "my $two=$^W+!''; print 'The result is ',$two + $two,$/" perl -we "print reverse $/,eval(join'+',(2)x2),'The result is '" perl -we "$_=qq/The result is 2+2\n/=>y/2\+2/4/s,print"
I can only get away with the last one because Ozymandias says I can.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://31927]
help
Chatterbox?
[erix]: how does one find out how to install a program like cvsgrep
[erix]: I mean, I suppose it's just the one file so I can download that
[erix]: Makefile.PL should tell me, probably

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2017-06-22 16:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (524 votes). Check out past polls.