in reply to subroutines problem

FYI - here is one way to code an "add" routine - this one allows an unlimited number of scalar arguments to be added together: 
sub add{
  shift(@_) + (@_? add(@_):0)
}

#Test the "add" routine ..
print add(qw/3 0 0 1 0 1 01 1 1 1 1 0 1 /);
# Outputs : 
#  11

[download]

     "Income tax returns are the most imaginative fiction being written today." -- Herman Wouk

Replies are listed 'Best First'.
Re^2: subroutines problem
by newly (Initiate) on Jul 20, 2005 at 23:14 UTC 
    i got this code but when i tested it i got no result:

if ($ARGV[0] eq "add")
{
$rtn = add($ARGV[1]);
print " The sum is $rtn";
}
elsif ($ARGV[0] eq "multiply")
{
$rtn = multiply($ARGV[1]);
print "ther prod is $rtn";
}
sub add{
my ($sum);
$sum=0;
foreach $_(@_) {
$sum +=$_;
}
return $sum;
}
sub multiply {
my ($multiply);
$product=0;
foreach $_(@_) {
$product+=$_;
}
return $multiply:
}

am i doing it right?

    [download]
[reply]
[d/l]
      Your sub add is OK, but multiply seems to be just a copy of add, so it will not multiply.

      You have also continued to ignore previous good advice, starting from mrborisguy's - You need 3 arguments to your program - the Operation to perform and at least 2 operands.

      We will continue to help you, and it is OK to post more code and questions here - in fact that is encouraged - but you need to show some effort, and regard for good advice.

           "Income tax returns are the most imaginative fiction being written today." -- Herman Wouk

[reply]

In Section Seekers of Perl Wisdom