Merge pull request #841 from drclaw1394/master

ruben/drclaw solutions to w31 ch1 and ch2. p5 and p6

5 files changed, 64 insertions, 3 deletions

diff --git a/challenge-031/ruben-westerberg/README b/challenge-031/ruben-westerberg/README
index 078e072f1a..2ca4621c32 100644
--- a/challenge-031/ruben-westerberg/README
+++ b/challenge-031/ruben-westerberg/README
@@ -2,9 +2,11 @@ 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.
+If no arguments are provided numerator is set to 1 and denominator is set to 0
 
 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
+Run the program with two arguments. The first is the name of ther variable to create and the second is the value to assign.
+Output is the name and value of the dynamicaly named variable
+If no arguments are given a random name and value are created;
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/perl5/ch-2.pl b/challenge-031/ruben-westerberg/perl5/ch-2.pl
new file mode 100755
index 0000000000..4d3b199d42
--- /dev/null
+++ b/challenge-031/ruben-westerberg/perl5/ch-2.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+use feature qw<say>;
+my $name=$ARGV[0]// "var".rand;
+my $value=$ARGV[1]//rand;
+
+{
+	say "Using symbolic refs";
+	no strict refs;
+	$$name=$value;
+	say "Variable name: $name Value: ${$name}";
+}
+print "\n";
+{
+	say "Using a hash";
+	my %h;
+	$h{$name}=$value;
+	say "Variable name: $name Value: $h{$name}";
+}
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 $!;
+
diff --git a/challenge-031/ruben-westerberg/perl6/ch-2.p6 b/challenge-031/ruben-westerberg/perl6/ch-2.p6
new file mode 100755
index 0000000000..f4ea55d641
--- /dev/null
+++ b/challenge-031/ruben-westerberg/perl6/ch-2.p6
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl6
+use MONKEY-SEE-NO-EVAL;
+my $name=@*ARGS[0]//"var"~1000.rand.Int;
+my $value=@*ARGS[1]//1.rand;
+{
+	put "Using Module/eval";
+	module D {
+		EVAL "our \$$name=\"$value\"";
+	}
+	put $D::($name);
+	put "Variable name: $name Value: {$D::($name)}";
+}
+
+put "";
+
+{
+	put "Using Hash";
+	my %h;
+	%h{$name}=$value;
+	put "Variable name: $name Value: %h{$name}";
+
+}