Merge pull request #1189 from drclaw1394/master

ruben's solutions to w45 ch-1 and ch-2. perl and raku

5 files changed, 35 insertions, 6 deletions

diff --git a/challenge-045/ruben-westerberg/README b/challenge-045/ruben-westerberg/README
index 05d4a09b2d..d98174517b 100644
--- a/challenge-045/ruben-westerberg/README
+++ b/challenge-045/ruben-westerberg/README
@@ -1,14 +1,11 @@
 Solution by Ruben Westerberg
 
-perl/ch-1.sh and raku/ch-1.sh
+ch-1.pl and ch-1.p6
 ===================
-Breaks the string 123456789 into terms which are added or subtracted to sum to 100
-Run the program to show all combinations
+Demostrates the Square Secret Code of the string “The quick brown fox jumps over the lazy dog”.
 
 ch-2.pl and ch-2.p6
 ===================
-Finds the smallest number of moves to (add 1, or double) to accumulate  1 into 200;
-Run the program to show sequence of moves
-	
+Program print out own source code
 
 
diff --git a/challenge-045/ruben-westerberg/perl/ch-1.pl b/challenge-045/ruben-westerberg/perl/ch-1.pl
new file mode 100755
index 0000000000..336f93c87e
--- /dev/null
+++ b/challenge-045/ruben-westerberg/perl/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+my $string="The quick brown fox jumps over the lazy dog";
+my $padded=$string =~ tr/ //dr;
+$padded .= " " x (8+8-length($padded)%8);
+my @rows;
+my $steps=length($padded)/ 8;
+push @rows, [split "", substr $padded, $_*8,8] for (0..$steps-1);
+my $out="";
+for my $c (0..7) {
+	for my $r (0..$steps-1) {
+		$out.= join "",$rows[$r]->[$c];
+	}
+}
+$out=~s/ +/ /g;
+$out=~s/ $//;
+print $out;
diff --git a/challenge-045/ruben-westerberg/perl/ch-2.pl b/challenge-045/ruben-westerberg/perl/ch-2.pl
new file mode 100755
index 0000000000..a4473a3878
--- /dev/null
+++ b/challenge-045/ruben-westerberg/perl/ch-2.pl
@@ -0,0 +1,5 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+open my $f,"<",$0;
+print $_ for ( <$f> );
diff --git a/challenge-045/ruben-westerberg/raku/ch-1.p6 b/challenge-045/ruben-westerberg/raku/ch-1.p6
new file mode 100755
index 0000000000..46548d3da8
--- /dev/null
+++ b/challenge-045/ruben-westerberg/raku/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+
+my $string="The quick brown fox jumps over the lazy dog";
+my $padded=$string.trans(" "=>"");
+my $a=$padded.comb.rotor: 8;
+put ([Z~] $a).join: " ";
diff --git a/challenge-045/ruben-westerberg/raku/ch-2.p6 b/challenge-045/ruben-westerberg/raku/ch-2.p6
new file mode 100755
index 0000000000..5f565bd234
--- /dev/null
+++ b/challenge-045/ruben-westerberg/raku/ch-2.p6
@@ -0,0 +1,2 @@
+#!/usr/bin/env perl6
+$*PROGRAM.IO.lines.map: *.put;