2.11. Chained comparisons

Example 2-12. examples/scalars/chained_comparison.p6

#!/usr/bin/perl6

say "Type in a number between 23 and 42";
my $a = readline;
if (23 <= $a and $a <= 42) {
    say "Good, $a is in the range.";
} else {
    say "Did I say between 23 and 42 ?";
}


# you can also compare like this
if (23 <= $a <= 42) {
    say "Good, $a is in the range.";
} else {
    say "Did I say between 23 and 42 ?";
}



say "Type another number between 0 and $a";
my $small = readline;
say "Type another number between $a and 100";
my $big = readline;

if (0 <= $small <= $a <= $big <= 100) {
    say "good";
} else {
    say "something is fishy";
}