Merge pull request #7308 from seaker/master

Feng Chang's challenge 197 solutions

2 files changed, 20 insertions, 0 deletions

diff --git a/challenge-197/feng-chang/raku/ch-1.raku b/challenge-197/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..8bab342a05
--- /dev/null
+++ b/challenge-197/feng-chang/raku/ch-1.raku
@@ -0,0 +1,8 @@
+#!/bin/env raku
+
+unit sub MAIN(*@N);
+
+for +@N ^... 0 -> \j {
+    @N.push(@N.splice(j, 1)) if @N[j] == 0;
+}
+put @N.join(', ');
diff --git a/challenge-197/feng-chang/raku/ch-2.raku b/challenge-197/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..8eb42b696b
--- /dev/null
+++ b/challenge-197/feng-chang/raku/ch-2.raku
@@ -0,0 +1,12 @@
+#!/bin/env raku
+
+unit sub MAIN(*@N);
+
+@N .= sort;
+my @a = @N.splice((+@N + 1) div 2);
+
+loop (my $i = 1; +@a > 0; $i += 2) {
+    @N.splice($i, 0, @a.shift);
+}
+
+put @N.join(', ');