diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-22 17:08:26 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-22 17:08:26 +0100 |
| commit | 89aca2c966eb7468eefb9f3683d1972f4d17bc9f (patch) | |
| tree | 5ca0d6129eb9e759bd079556b072f2d7fe30672c | |
| parent | 8cba287d10540749782a4daee77bccb1c251945a (diff) | |
| parent | 298111357d5fd6141b5944aacb00a17279063592 (diff) | |
| download | perlweeklychallenge-club-89aca2c966eb7468eefb9f3683d1972f4d17bc9f.tar.gz perlweeklychallenge-club-89aca2c966eb7468eefb9f3683d1972f4d17bc9f.tar.bz2 perlweeklychallenge-club-89aca2c966eb7468eefb9f3683d1972f4d17bc9f.zip | |
Merge pull request #829 from Doomtrain14/master
Added perl6 solution ch#31-1
| -rw-r--r-- | challenge-031/yet-ebreo/perl5/ch-1.pl | 1 | ||||
| -rw-r--r-- | challenge-031/yet-ebreo/perl6/ch-1.p6 | 19 |
2 files changed, 20 insertions, 0 deletions
diff --git a/challenge-031/yet-ebreo/perl5/ch-1.pl b/challenge-031/yet-ebreo/perl5/ch-1.pl index ffe41c3a6e..4bf4f6a896 100644 --- a/challenge-031/yet-ebreo/perl5/ch-1.pl +++ b/challenge-031/yet-ebreo/perl5/ch-1.pl @@ -1,3 +1,4 @@ +#!/usr/bin/perl #Create a function to check divide by zero error #without checking if the denominator is zero. use strict; diff --git a/challenge-031/yet-ebreo/perl6/ch-1.p6 b/challenge-031/yet-ebreo/perl6/ch-1.p6 new file mode 100644 index 0000000000..678e3cfd58 --- /dev/null +++ b/challenge-031/yet-ebreo/perl6/ch-1.p6 @@ -0,0 +1,19 @@ +#Create a function to check divide by zero error +#without checking if the denominator is zero. + +sub div_zero_check ($n, $d) { + my $r; + try { + $r = $n / $d; + + #Error is not raised when the result of division is not used + say $r; + } + + $! && say "Division by zero detected"; +} + +div_zero_check(112,0); +div_zero_check(0,0); +div_zero_check(0,1); +div_zero_check(32,12);
\ No newline at end of file |