samiron · November 9, 2012 04:02
diff --git a/01_PerlParameters.rb b/01_PerlParameters.rb
 sub sum{ doit('+', @_) }
 sub fact{ mul(1..shift) }
 sub mul{ doit('*', @_) }

 sub doit
 {
    my ($d, @nums) = @_;
    return eval( join($d, @nums) );
 }


 print fact(5);
	sub sum{ doit('+', @_) }
	sub fact{ mul(1..shift) }
	sub mul{ doit('*', @_) }

	sub doit
	{
	my ($d, @nums) = @_;
	return eval( join($d, @nums) );
	}


	print fact(5);