challenge-031/javier-luque/perl6/ch-1.p6


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

use v6.d;

sub MAIN () {
    # A few test cases
    my @array = ['1/0', '1/2', '0/100'];
    for @array -> $array-item {
        divide-by-zero-check($array-item);
    }
}

# Catch the error and say if we can't divide by 0
sub divide-by-zero-check(Str $statement) {
    try {
        my $answer = Rat($statement);
        say $answer;

        CATCH {
            default { say "divide by 0 error, $_" }
        }
    }
}