Added ch-1.p6

1 files changed, 7 insertions, 0 deletions

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..79333560b3
--- /dev/null
+++ b/challenge-045/ruben-westerberg/raku/ch-1.p6
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl6
+
+my $string="The quick brown fox jumps over the lazy dog";
+my $padded=$string.trans(" "=>"");
+$padded ~= "" x (8-$padded.chars%8);
+my $a=$padded.comb.rotor: 8;
+put ([Z~] $a).join: " ";