Searched refs:car (Results 1 - 5 of 5) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dbigint.pl185 $car = 0;
187 last unless @y || $car;
188 $x -= 1e5 if $car = (($x += shift(@y) + $car) >= 1e5) ? 1 : 0;
191 last unless $car;
192 $y -= 1e5 if $car = (($y += $car) >= 1e5) ? 1 : 0;
194 (@x, @y, $car);
221 ($car, $cty) = (0, $[);
223 $prod = $x * $y + $prod[$cty] + $car;
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/
H A DCalc.pm27 # $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
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Db.t26 sub car { 23 } subroutine
47 my @syms = map { 'Testing::Symtable::'.$_ } qw(This That wibble moo car
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A Dsplit_command.t35 my @test_args = qw(foo bar baz yar car har ackapicklerootyjamboree);
43 my %test_args = ( foo => 42, bar => 23, car => 'har' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/I18N/LangTags/
H A DList.pm431 =item {car} : Carib

Completed in 25 milliseconds