|
|
|
@ -51,13 +51,48 @@ print '$a = ';
|
|
|
|
|
my $a = <STDIN>;
|
|
|
|
|
print '$b = ';
|
|
|
|
|
my $b = <STDIN>;
|
|
|
|
|
print '$c = ';
|
|
|
|
|
my $c = <STDIN>;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $ncookies = 0;
|
|
|
|
|
|
|
|
|
|
sub printcookies {
|
|
|
|
|
print "I like cookies " . $ncookies++ . "\n";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($a == 5 && $b == 2) {
|
|
|
|
|
print "I like cookies\n";
|
|
|
|
|
printcookies();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($a == 5 && $b == 2 || $c == 2) {
|
|
|
|
|
print "I like cookies\n";
|
|
|
|
|
printcookies();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($a == 5 and ($b == 2 || $c == 3)) {
|
|
|
|
|
printcookies();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($a == 5 && $b == 2 or $c == 3) {
|
|
|
|
|
printcookies();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($a == 5 && $b == 2 or $c == 3) {
|
|
|
|
|
printcookies();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if (($a == 5 && $b == 2) or $c == 3) {
|
|
|
|
|
printcookies();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
($a, $b) = (5, 2);
|
|
|
|
|
if ($a == 4 && $b < 3) {
|
|
|
|
|
printcookies();
|
|
|
|
|
}
|
|
|
|
|