Help for this page

Select Code to Download

Select or download this

perl -we '$op{"+"} = sub { $_[0] + $_[1] }; $op{"-"} = sub { $_[0] - $
+_[1] }; print $op{$ARGV[1]}($ARGV[0], $ARGV[2]), $/;' 8 - 2