You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
178 B
Perl
11 lines
178 B
Perl
5 years ago
|
@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";
|
||
|
}
|