2.12. Comparing values - Calculator

Example 2-13. examples/scalars/calculator.p6

#!/usr/bin/perl6

print "Number:";
my $a = readline;
print "Operator: [+-*/]:";
my $operator = readline;
print "Number:";
my $b = readline;

if $operator eq "+" {
    say $a + $b;
} elsif $operator eq "-" {
    say $a - $b;
} elsif $operator eq "*" {
    say $a * $b;
} elsif $operator eq "/" {
    say $a / $b;
} else {
    say "Invalid operator $operator";
}