From e34f3a94bb9decae6b48dfd0714b89c2223eb8c9 Mon Sep 17 00:00:00 2001 From: Anton Date: Fri, 25 Oct 2019 20:48:52 +0500 Subject: ch-1 complete --- challenge-031/anton-fedotov/task1-divide-by-zero.pl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100755 challenge-031/anton-fedotov/task1-divide-by-zero.pl 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"; -- cgit