diff --git a/cli/operators.pl b/cli/operators.pl index 090a712..2d247d3 100644 --- a/cli/operators.pl +++ b/cli/operators.pl @@ -51,13 +51,48 @@ print '$a = '; my $a = ; print '$b = '; my $b = ; +print '$c = '; +my $c = ; + + +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(); }