Lines Matching refs:car
27 # $i = $i * $y + $car; $car = int($i / $MBASE); $i = $i % $MBASE;
30 # $i = $i * $y + $car; $car = int($i / $MBASE); $i -= $MBASE * $car;
307 my $i; my $car = 0; my $j = 0;
310 $x->[$j] -= $BASE if $car = (($x->[$j] += $i + $car) >= $BASE) ? 1 : 0;
313 while ($car != 0)
315 $x->[$j] -= $BASE if $car = (($x->[$j] += $car) >= $BASE) ? 1 : 0; $j++;
358 my $car = 0; my $i; my $j = 0;
363 last unless defined $sy->[$j] || $car;
364 $i += $BASE if $car = (($i -= ($sy->[$j] || 0) + $car) < 0); $j++;
373 #last unless defined $sy->[$j] || $car;
375 if $car = (($sy->[$j] = $i-($sy->[$j]||0) - $car) < 0);
408 my $y = $yv->[0]; my $car = 0;
411 $i = $i * $y + $car; $car = int($i * $RBASE); $i -= $car * $MBASE;
413 push @$xv, $car if $car != 0;
422 my @prod = (); my ($prod,$car,$cty,$xi,$yi);
426 $car = 0; $cty = 0;
431 # $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
433 # $prod - ($car = int($prod * RBASE)) * $MBASE; # see USE_MUL
435 # $prod[$cty] += $car if $car; # need really to check for 0?
443 $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
445 ## $prod = $prod[$cty]; $prod += ($car + $xi * $yi); # no ||0 here
447 $prod - ($car = int($prod * $RBASE)) * $MBASE; # see USE_MUL
449 $prod[$cty] += $car if $car; # need really to check for 0?
485 my $y = $yv->[0]; my $car = 0;
488 $i = $i * $y + $car; $car = int($i / $MBASE); $i -= $car * $MBASE;
490 push @$xv, $car if $car != 0;
499 my @prod = (); my ($prod,$car,$cty,$xi,$yi);
502 $car = 0; $cty = 0;
507 $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
509 $prod - ($car = int($prod / $MBASE)) * $MBASE;
511 $prod[$cty] += $car if $car; # need really to check for 0?
636 my ($car,$bar,$prd,$dd,$xi,$yi,@q,$v2,$v1,@d,$tmp,$q,$u2,$u1,$u0);
638 $car = $bar = $prd = 0;
643 $xi = $xi * $dd + $car;
644 $xi -= ($car = int($xi * $RBASE)) * $MBASE; # see USE_MUL
646 push(@$x, $car); $car = 0;
649 $yi = $yi * $dd + $car;
650 $yi -= ($car = int($yi * $RBASE)) * $MBASE; # see USE_MUL
669 ($car, $bar) = (0,0);
672 $prd = $q * $y->[$yi] + $car;
673 $prd -= ($car = int($prd * $RBASE)) * $MBASE; # see USE_MUL
676 if ($x->[-1] < $car + $bar)
678 $car = 0; --$q;
682 if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $MBASE));
694 $car = 0;
697 $prd = $car * $MBASE + $xi;
698 $car = $prd - ($tmp = int($prd / $dd)) * $dd; # see USE_MUL
830 my ($car,$bar,$prd,$dd,$xi,$yi,@q,$v2,$v1,@d,$tmp,$q,$u2,$u1,$u0);
832 $car = $bar = $prd = 0;
837 $xi = $xi * $dd + $car;
838 $xi -= ($car = int($xi / $MBASE)) * $MBASE;
840 push(@$x, $car); $car = 0;
843 $yi = $yi * $dd + $car;
844 $yi -= ($car = int($yi / $MBASE)) * $MBASE;
867 ($car, $bar) = (0,0);
870 $prd = $q * $y->[$yi] + $car;
871 $prd -= ($car = int($prd / $MBASE)) * $MBASE;
874 if ($x->[-1] < $car + $bar)
876 $car = 0; --$q;
880 if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $MBASE));
891 $car = 0;
894 $prd = $car * $MBASE + $xi;
895 $car = $prd - ($tmp = int($prd / $dd)) * $dd;