Re: Re: Returning Values from Subroutines

[mojobozo]

A little more golf on this one:

#!/usr/local/bin/perl

print add(1,2);

sub add{
return $result = ($_[0] + $_[1]);
}

Unless, of course, you wanted to save the value returned.
mb

[mojobozo]

And, using the example in ignatz's reposnse, even more strokes shaved:


#!/usr/local/bin/perl

print add(1,2);

sub add{
return ($_[0] + $_[1]);
}


Man, this is getting fun. I wish I could shave this many strokes of my discgolf game!
_____________________________________________
mojobozo
word (wûrd)
interj. Slang. Used to express approval or an affirmative response to
something. Sometimes used with up. Source

[zigdon]

Well, as long as we're golfing:

#!/usr/local/bin/perl

print add(1,2);

sub add{
  $_[0] + $_[1];
}

-- Dan

[blokhead]

The return keyword can be omitted when it's the last line of a sub, so this will also work:

#!/usr/local/bin/perl

print add(1,2);

sub add{
  $_[0]+$_[1];
}

or for that matter

sub add{
  shift+shift;
}

Update: OK, so I guess the shift() there is ambiguous. Anyway, you get the point.

blokhead

[Arien]

In 9 strokes:

#       123456789
sub add{pop()+pop}

— Arien