11 lines
178 B
Perl
11 lines
178 B
Perl
|
@a = (0 .. 20);
|
||
|
|
@b = (-10 .. 10);
|
||
|
|
|
||
|
|
DIVISION: while (@a) {
|
||
|
|
$a = pop @a;
|
||
|
|
$b = pop @b;
|
||
|
|
|
||
|
|
next DIVISION if ($b == 0);
|
||
|
|
print "$a / $b = " . $a / $b . "\n";
|
||
|
|
}
|