Lines Matching refs:rem
554 my $rem;
555 $rem = _mod($c,[ @$x ],$yorg) if wantarray;
567 return ($x,$rem) if wantarray;
576 my $rem;
577 $rem = [@$x] if wantarray; # make copy
580 return ($x,$rem) if wantarray; # including remainder?
587 my $rem;
592 $rem = [@$x] if wantarray; # make copy
595 return ($x,$rem) if wantarray; # including remainder?
615 $rem = [ 0 ]; # a = 0 => x == y => rem 1
616 $rem = [@$x] if $a != 0; # a < 0 => x < y => rem = x
625 return ($x,$rem) if wantarray;
748 my $rem;
749 $rem = _mod($c,[ @$x ],$yorg) if wantarray;
761 return ($x,$rem) if wantarray;
769 my $rem;
770 $rem = [@$x] if wantarray; # make copy
773 return ($x,$rem) if wantarray; # including remainder?
780 my $rem;
785 $rem = [@$x] if wantarray; # make copy
788 return ($x,$rem) if wantarray; # including remainder?
809 $rem = [ 0 ]; # a = 0 => x == y => rem 1
810 $rem = [@$x] if $a != 0; # a < 0 => x < y => rem = x
819 return ($x,$rem) if wantarray;
1108 my ($xo,$rem) = _div($c,$x,$yo);
1109 return $rem;
1186 my $rem = $src % $BASE_LEN; # remainder to shift
1188 if ($rem == 0)
1200 $vd = substr($vd,-$BASE_LEN,$BASE_LEN-$rem);
1202 $vd = substr($z.$x->[$src],-$rem,$rem) . $vd;
1209 } # else rem == 0
1226 my $rem = $len % $BASE_LEN; # remainder to shift
1234 $vd = substr($vd,-$BASE_LEN+$rem,$BASE_LEN-$rem);
1235 $vd .= $src > 0 ? substr($z.$x->[$src-1],-$BASE_LEN,$rem) : '0' x $rem;