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.
|
#!/usr/local/bin/perl
|
|
|
|
$total = 0;
|
|
$firstcounter = 0;
|
|
DONE: while ($firstcounter < 10) {
|
|
$secondcounter = 1;
|
|
while ($secondcounter <= 10) {
|
|
$total++;
|
|
if ($firstcounter == 4 && $secondcounter == 7) {
|
|
last DONE;
|
|
}
|
|
$secondcounter++;
|
|
}
|
|
$firstcounter++;
|
|
}
|
|
print ("$total\n"); |