Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-031/simon-proctor/perl6/ch-1.p6 b/challenge-031/simon-proctor/perl6/ch-1.p6
new file mode 100644
index 0000000000..150bd1e870
--- /dev/null
+++ b/challenge-031/simon-proctor/perl6/ch-1.p6
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl6
+
+use v6;
+
+sub MAIN() {
+    for ^25 {
+        my $nu = (^100).pick() / 10;
+        my $de = (^3).pick();
+
+        say "{$nu} / {$de} safe? {safe-division($nu,$de)??"Yes"!!"No"}";
+    }
+}
+
+sub safe-division( Numeric $nu, Numeric $de ) {
+    try {
+        ($nu/$de).Str();
+        return True;
+    }
+    return False;
+}