Searched defs:badd (Results 1 - 4 of 4) sorted by relevance
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/ |
| H A D | upgradef.t | 55 sub badd subroutine
78 $x = $class->new(123); $y = $ECL->new(123); $z = $x->badd($y);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/ |
| H A D | BigFloat.pm | 547 sub badd subroutine
577 return $upgrade->badd($x,$y,$a,$p,$r) if defined $upgrade &&
649 $x->badd($y,$a,$p,$r); # badd does not leave internal zeros
651 $x; # already rounded by badd()
661 return $x->badd($self->bone(),@r); # digits after dot
686 $x->badd($self->bone(),@r); # badd() does round
696 return $x->badd($self->bone('-'),@r); # digits after dot
722 $x->badd(
[all...] |
| H A D | BigRat.pm | 409 sub badd subroutine
444 $x->{_n}->badd($m);
466 # flip sign of $x, call badd(), then flip sign of result
469 $x->badd($y,@r); # does norm and round
634 $x->{_n}->badd($x->{_d}); # -5/2 => -7/2
676 $x->{_n}->badd($x->{_d}); # 5/2 => 7/2
|
| H A D | BigInt.pm | 48 '+=' => sub { $_[0]->badd($_[1]); },
84 $c->bneg()->badd($_[1]) :
86 '+' => sub { $_[0]->copy()->badd($_[1]); },
1054 sub badd subroutine
1067 return $x if $x->modify('badd');
1068 return $upgrade->badd($upgrade->new($x),$upgrade->new($y),@r) if defined $upgrade &&
1144 $x->badd($y,@r); # badd does not leave internal zeros
1146 $x; # already rounded by badd() or no round necc.
1169 $x->badd(
[all...] |
Completed in 21 milliseconds