Added W8 ch2 p5 p6 solutions

2 files changed, 17 insertions, 0 deletions

diff --git a/challenge-008/ruben-westerberg/perl5/ch-2.pl b/challenge-008/ruben-westerberg/perl5/ch-2.pl
new file mode 100755
index 0000000000..d8ca7799bc
--- /dev/null
+++ b/challenge-008/ruben-westerberg/perl5/ch-2.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+print $_."\n" for (center(<>));
+sub center {
+	my $max=0;
+	map { chomp; ($max < length($_ )) ? $max=length($_):();} @_;
+	return map { ' ' x (($max - length $_)/2) . $_} @_;
+}
diff --git a/challenge-008/ruben-westerberg/perl6/ch-2.p6 b/challenge-008/ruben-westerberg/perl6/ch-2.p6
new file mode 100755
index 0000000000..98241478bf
--- /dev/null
+++ b/challenge-008/ruben-westerberg/perl6/ch-2.p6
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl6
+center(lines())>>.say;
+sub center(*@lines) {
+	my $max= max @lines>>.chars;
+	map {' ' x ($max - .chars)/2 ~$_}, @lines;
+}
+
+