From 1dfb2a7a1ec053840c9d83d31d6b18a9c2ac666e Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Mon, 26 Dec 2022 16:16:12 +0800
Subject: challenge 197, raku solutions

---
 challenge-197/feng-chang/raku/ch-1.raku |  8 ++++++++
 challenge-197/feng-chang/raku/ch-2.raku | 12 ++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100755 challenge-197/feng-chang/raku/ch-1.raku
 create mode 100755 challenge-197/feng-chang/raku/ch-2.raku

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(', ');
-- 
cgit