Added ch1 p5 and p6

3 files changed, 21 insertions, 3 deletions

diff --git a/challenge-031/ruben-westerberg/README b/challenge-031/ruben-westerberg/README
index 078e072f1a..a14127bd20 100644
--- a/challenge-031/ruben-westerberg/README
+++ b/challenge-031/ruben-westerberg/README
@@ -2,9 +2,8 @@ Solution by Ruben Westerberg
 
 ch-1.pl and ch-1.p6
 ===
-Run program to display all Sunday Xmas dates between years 2019 and 2100
-
+Run the program with two command line arguments. First is the numerator, second is the denominator. Output will print successful result unless a divide by zero is detected.
 
 ch-2.pl and ch-2.p6
 ===
-Run program to find all combinations of 3 number sequence which add to 12 and have at least 1 even number
+
diff --git a/challenge-031/ruben-westerberg/perl5/ch-1.pl b/challenge-031/ruben-westerberg/perl5/ch-1.pl
new file mode 100755
index 0000000000..6996d7c22b
--- /dev/null
+++ b/challenge-031/ruben-westerberg/perl5/ch-1.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+use feature qw<say>;
+my $numerator=$ARGV[0]//1;
+my $denominator=$ARGV[1]//0;
+my $result=eval {$numerator/$denominator};
+say "Division ok: $numerator/$denominator = $result" if defined $result;
+say "Division failed: divide by zero" if !defined $result;
+		
diff --git a/challenge-031/ruben-westerberg/perl6/ch-1.p6 b/challenge-031/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..a1410d6256
--- /dev/null
+++ b/challenge-031/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+
+my $numerator=@*ARGS[0]//1;
+my $denominator=@*ARGS[1]//0;
+my $result;
+
+try $result=($numerator/$denominator).Str;
+
+put "Division ok: $numerator/$denominator = $result" unless $!;
+put "Division failed: Divide by zero" if $!;
+