Finally added solutions to Week 1!

ch-1 and ch-2. perl and raku

5 files changed, 27 insertions, 0 deletions

diff --git a/challenge-001/ruben-westerberg/README b/challenge-001/ruben-westerberg/README
index 89369bf20d..b76ce15054 100644
--- a/challenge-001/ruben-westerberg/README
+++ b/challenge-001/ruben-westerberg/README
@@ -1 +1,9 @@
 Solution by Ruben Westerberg
+
+ch-1.pl and ch-1.p6
+===================
+Run the program to replace all 'e' in target string. Number of replacemets also printed
+
+raku/ch-2.sh and perl/ch-2.sh
+============================
+Run program to demonstate one liner fizz buzz problem for integers between 1 and 20
diff --git a/challenge-001/ruben-westerberg/perl/ch-1.pl b/challenge-001/ruben-westerberg/perl/ch-1.pl
new file mode 100755
index 0000000000..a4100b4c13
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl/ch-1.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $string="Perl Weekly Challenge";
+print "Original string: $string\n";
+print "Total replacements performed ",$string =~ s/e/E/g,"\n";
+print "Modified string: $string\n";
diff --git a/challenge-001/ruben-westerberg/perl/ch-2.sh b/challenge-001/ruben-westerberg/perl/ch-2.sh
new file mode 100755
index 0000000000..b1815d9630
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl/ch-2.sh
@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+
+perl -e 'print join ", ",map {my $o;$o="fizz" if $_ % 3 == 0; $o.="buzz" if $_ % 5 == 0; $o?$o:$_} (1..20)'
diff --git a/challenge-001/ruben-westerberg/raku/ch-1.p6 b/challenge-001/ruben-westerberg/raku/ch-1.p6
new file mode 100755
index 0000000000..579f7636bb
--- /dev/null
+++ b/challenge-001/ruben-westerberg/raku/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+
+my $string="Perl Weekly Challenge";
+put "Original string: $string";
+put "Total replacements performed: ", (s:g/e/E/).elems given $string;
+put "Modified string: $string"
diff --git a/challenge-001/ruben-westerberg/raku/ch-2.sh b/challenge-001/ruben-westerberg/raku/ch-2.sh
new file mode 100755
index 0000000000..f4b45109df
--- /dev/null
+++ b/challenge-001/ruben-westerberg/raku/ch-2.sh
@@ -0,0 +1,2 @@
+#!/usr/bin/env bash
+perl6 -e 'put join ", ",(1..20).map: {my $o; $o="fizz" if $_ %% 3; $o~="buzz" if $_ %% 5; $o??$o!!$_}'