Added perl/ch-1.sh and raku/ch-1.sh

Updated README

4 files changed, 8 insertions, 5 deletions

diff --git a/challenge-042/ruben-westerberg/README b/challenge-042/ruben-westerberg/README
index 739bcf2117..860958cfb7 100644
--- a/challenge-042/ruben-westerberg/README
+++ b/challenge-042/ruben-westerberg/README
@@ -1,13 +1,12 @@
 Solution by Ruben Westerberg
 
-ch-1.pl and ch-1.p6
+perl/ch-1.sh and raku/ch-1.sh
 ===================
-Run program to show 'attractive numbers' between 1 and 50
+Run the shell script perl one liner to display octal number from 0 to 50
 
 ch-2.pl and ch-2.p6
 ===================
-Run program to display the first 20 Leonardo Numbers
-
+Run the script to generate a random string of '(' and ')' and test if the resulting string has blanaced pairs. An optional argument of the max length of the string can be supplied. Otherwise a max length of 20 characters is used.
 	
 	
 
diff --git a/challenge-042/ruben-westerberg/perl/ch-1.sh b/challenge-042/ruben-westerberg/perl/ch-1.sh
new file mode 100755
index 0000000000..81ff2c2b60
--- /dev/null
+++ b/challenge-042/ruben-westerberg/perl/ch-1.sh
@@ -0,0 +1,2 @@
+#!/usr/bin/env bash
+perl -e 'printf "Decimal: %4d Octal: %4o\n",$_,$_ for 0..50';
diff --git a/challenge-042/ruben-westerberg/raku/ch-1.sh b/challenge-042/ruben-westerberg/raku/ch-1.sh
new file mode 100755
index 0000000000..828a928e50
--- /dev/null
+++ b/challenge-042/ruben-westerberg/raku/ch-1.sh
@@ -0,0 +1,2 @@
+#!/usr/bin/env bash
+perl6 -e 'printf "Decimal: %4d Octal: %4o\n",$_,$_ for 0..50';
diff --git a/challenge-042/ruben-westerberg/raku/ch-2.p6 b/challenge-042/ruben-westerberg/raku/ch-2.p6
index 99d2ee83ba..d75b52817d 100755
--- a/challenge-042/ruben-westerberg/raku/ch-2.p6
+++ b/challenge-042/ruben-westerberg/raku/ch-2.p6
@@ -7,7 +7,7 @@ while 1 {
 	my @v= [\+] $str.comb.map({(ord($_)-40)*-2+1});
 
 	if @v[*-1]==0 and !@v.grep(* < 0) {
-		put "balanced $str";
+		put "balanced: $str";
 		sleep 1;
 		next;
 	}