From bc33bace88dd73ba29bf89993ba9a91f4a2ab08a Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sun, 15 Dec 2019 03:44:45 +0000
Subject: - Added solutions by Ruben Westerberg.

---
 challenge-001/ruben-westerberg/perl5/ch-1.pl | 8 ++++++++
 challenge-001/ruben-westerberg/perl5/ch-2.sh | 3 +++
 challenge-001/ruben-westerberg/perl6/ch-1.p6 | 6 ++++++
 challenge-001/ruben-westerberg/perl6/ch-2.sh | 2 ++
 4 files changed, 19 insertions(+)
 create mode 100755 challenge-001/ruben-westerberg/perl5/ch-1.pl
 create mode 100755 challenge-001/ruben-westerberg/perl5/ch-2.sh
 create mode 100755 challenge-001/ruben-westerberg/perl6/ch-1.p6
 create mode 100755 challenge-001/ruben-westerberg/perl6/ch-2.sh

(limited to 'challenge-001')

diff --git a/challenge-001/ruben-westerberg/perl5/ch-1.pl b/challenge-001/ruben-westerberg/perl5/ch-1.pl
new file mode 100755
index 0000000000..a4100b4c13
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl5/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/perl5/ch-2.sh b/challenge-001/ruben-westerberg/perl5/ch-2.sh
new file mode 100755
index 0000000000..b1815d9630
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl5/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/perl6/ch-1.p6 b/challenge-001/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..579f7636bb
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl6/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/perl6/ch-2.sh b/challenge-001/ruben-westerberg/perl6/ch-2.sh
new file mode 100755
index 0000000000..f4b45109df
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl6/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!!$_}'
-- 
cgit