Lines Matching refs:car
185 $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, 0);
223 $prod = $x * $y + $prod[$cty] + $car;
226 $prod - ($car = int($prod * 1e-5)) * 1e5;
230 $prod - ($car = int($prod / 1e5)) * 1e5;
233 $prod[$cty] += $car if $car;
254 $car = $bar = $prd = 0;
257 $x = $x * $dd + $car;
259 $x -= ($car = int($x * 1e-5)) * 1e5;
262 $x -= ($car = int($x / 1e5)) * 1e5;
265 push(@x, $car); $car = 0;
267 $y = $y * $dd + $car;
269 $y -= ($car = int($y * 1e-5)) * 1e5;
272 $y -= ($car = int($y / 1e5)) * 1e5;
285 ($car, $bar) = (0,0);
287 $prd = $q * $y[$y] + $car;
289 $prd -= ($car = int($prd * 1e-5)) * 1e5;
292 $prd -= ($car = int($prd / 1e5)) * 1e5;
296 if ($x[$#x] < $car + $bar) {
297 $car = 0; --$q;
300 if ($car = (($x[$x] += $y[$y] + $car) > 1e5));
309 $car = 0;
311 $prd = $car * 1e5 + $x;
312 $car = $prd - ($tmp = int($prd / $dd)) * $dd;