in reply to Modulo operation to return quotient and remainder
The module you seek is actually just a pragma: integer.
sub quotient_remainder { use integer; my( $dividend, $divisor ) = @_; my $quotient = $dividend / $divisor; my $remainder = $dividend % $divisor; return ( $quotient, $remainder ); } say quotient_remainder( 3, 2 );
The integer pragma is lexically scoped, and can be a way of reducing your need to pepper your calculations with int.
Dave
|
|---|