Solutions for w11 ch-1 ch-2 p5 and p6

4 files changed, 25 insertions, 0 deletions

diff --git a/challenge-011/ruben-westerberg/perl5/ch-1.pl b/challenge-011/ruben-westerberg/perl5/ch-1.pl
new file mode 100755
index 0000000000..8c468738fe
--- /dev/null
+++ b/challenge-011/ruben-westerberg/perl5/ch-1.pl
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl
+my $m=(212- (my $c=32))/100;
+my $ep=$c/(1-$m);
+print $ep."\n";
+
+
diff --git a/challenge-011/ruben-westerberg/perl5/ch-2.pl b/challenge-011/ruben-westerberg/perl5/ch-2.pl
new file mode 100755
index 0000000000..3c4054217f
--- /dev/null
+++ b/challenge-011/ruben-westerberg/perl5/ch-2.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+my $s=$ARGV[0]//10;
+my @r;
+for(my $i=0; $i<$s; $i++){
+	$r[$i]= [(0) x $s];
+	${$r[$i]}[$i]=1;
+	print join(' ', @{$r[$i]})."\n";
+}
+
diff --git a/challenge-011/ruben-westerberg/perl6/ch-1.p6 b/challenge-011/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..e5f6ecadc2
--- /dev/null
+++ b/challenge-011/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+my $m=(212- my $c=32)/100;
+my $ep=$c/(1-$m);
+say $ep;
+
+
diff --git a/challenge-011/ruben-westerberg/perl6/ch-2.p6 b/challenge-011/ruben-westerberg/perl6/ch-2.p6
new file mode 100755
index 0000000000..024ccbf567
--- /dev/null
+++ b/challenge-011/ruben-westerberg/perl6/ch-2.p6
@@ -0,0 +1,4 @@
+#!/usr/bin/env perl6
+my $s=@*ARGS[0]//10;
+(([1,|(0 xx $s-1)].rotate: -$++)  xx $s).map: *.join(" ").say;
+