diff options
| -rwxr-xr-x | challenge-031/anton-fedotov/task1-divide-by-zero.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-031/anton-fedotov/task1-divide-by-zero.pl b/challenge-031/anton-fedotov/task1-divide-by-zero.pl new file mode 100755 index 0000000000..ed83b6fe44 --- /dev/null +++ b/challenge-031/anton-fedotov/task1-divide-by-zero.pl @@ -0,0 +1,17 @@ +#1/usr/bin/perl + +use strict; +use warnings; +use v5.10; + +sub check_div_zero { + my ( $numerator, $denominator ) = @_; + return 'Can\'t divide by zero' if cos($denominator) == 1; + return $numerator/$denominator; +} + +my ($n, $den, $zero) = (7, 3, 0); +my $result = check_div_zero($n, $den); +say "Division $n by $den returns: $result"; +$result = check_div_zero($n, $zero); +say "Division $n by $zero returns: $result"; |