RE: Adding 2 + 2

[KM]

Ok, this is fun :)

perl -MFcntl=:flock -e 'print 2+LOCK_EX'

Or (cheap way)

perl -wle 'print $^W*2**$^W*2'

Or (Only works if you follow the directions ;-)

#!/usr/bin/perl -w

use strict;

print "Pick an integer between 1 and 3\n";
my $num = <STDIN>;
print "Pick another integer between 1 and 3\n";
$num += <STDIN>;
print "The sum is " . $num;

Or

perl -wle '%h =  map {(qq{sum}) => $h{'sum'}+=$_ } qw/2 2/; print $h{s
+um}'

Or (a long version of the above one liner)

#!/usr/bin/perl -w

use strict;

my %foo;
%foo =  map {('sum') => $foo{'sum'}+=$_ } qw/2 2/;
print $foo{sum};

More later if I have time.

Cheers,
KM

[BastardOperator]

*bends down on knee*
Will you marry me? ;)

[tilly]

I follow the directions, but it tells me that the sum is 3. Did you mean to write directions that do not allow 1.5 as input?

[KM]

Haha.. I made the directions more clear.

Cheers,
KM

[BlaisePascal]

Is that integer range "between 1 and 3" inclusive or exclusive? You might want to include some error-checking:

{
  print "Pick an integer between 1 and 3 (exclusive):"
  $mynum1 = <STDIN>;
  (print "Follow instructions!\n"),redo 
     unless ($mynum < 3) and ($mynum > 1) and ($mynum == int($mynum));
}

[Adam]

perl -wle 'print $^W*2**$^W*2'

That's not 2 + 2, thats 2 squared.
(Ok, I know... the answer is the same... but the route is different.)

[Ozymandias]

Well, speaking as a engineer by training, the program meets spec... where's the problem? <G>

If you wanted flexibility and easy upgrades, you should have made sure that was part of the original program spec.

Ozymandias pries tongue from cheek...

- email Ozymandias

[a]

Uh, I thought 2 squared was just a shorthand for 2 + 2, er, or inherently linked or something. Sure, it a ... what's that word, pathological? case but ...

a

[Tiefling]

So nearly...

2² is a shorthand for 2x2, which is a special case, since the exponent equals the mantissa. It's only equal to 2+2 by coincidence, though, or rather, due to the fact that 2 enumerates the number of arguments taken by binary (!=base 2) addition. There's nothing terribly pathological about any of this. The result (which I understand Larry wants allowed by Perl 6) that 0⁰=1 is really pathological.

And I may be just a novice, but how about:
 sub addtwoandtwo { 2+2 } ?

Tiefling (utter novice)

Thanks for the downvotes! Feel like telling me what's wrong?