ch-1 complete

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";