Merge pull request #1975 from andemark/branch-for-challenge-070

Challenge 70 Solutions

2 files changed, 36 insertions, 0 deletions

diff --git a/challenge-070/mark-anderson/raku/ch-1.raku b/challenge-070/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..4dba5f55dd
--- /dev/null
+++ b/challenge-070/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/env raku 
+
+sub MAIN(Str $S, UInt $C, UInt $O) {
+    Usage() if $C < 1 or $O < 1 or $O < $C or $S.chars < $C + $O;
+
+    my $N = $S.chars;
+
+    my @S = $S.comb;
+
+    map { @S[$_ % $N, ($_ + $O) % $N] = @S[($_ + $O) % $N, $_ % $N] }, 1 .. $C;
+
+    say @S.join;
+}
+
+sub Usage {
+    note "Usage: $*PROGRAM-NAME " ~ '$S $C $O';
+
+    note 'where $C >= 1, $O >= 1, $O >= $C, $S.chars >= $C + $O';
+
+    exit;
+}
diff --git a/challenge-070/mark-anderson/raku/ch-2.raku b/challenge-070/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..8e0a5c104c
--- /dev/null
+++ b/challenge-070/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+
+sub MAIN(UInt $N where 2 <= $N <= 5) {
+    my @A = [0, 1];
+
+    for 2..$N {
+        my @S1 = @A.map("0" ~ *);
+
+        my @S2 = @A.reverse.map("1" ~ *);
+
+        @A = @S1.append(@S2);
+    }
+
+    say @A.map({ ":2<$_>".Int }).Array; #https://tinyurl.com/y3nw4q5j 
+}