2 files changed, 18 insertions, 0 deletions
diff --git a/challenge-188/feng-chang/raku/ch-1.raku b/challenge-188/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..84ad3bdca7
--- /dev/null
+++ b/challenge-188/feng-chang/raku/ch-1.raku
@@ -0,0 +1,7 @@
+#!/bin/env raku
+
+unit sub MAIN(*@nums);
+
+my Int \k = @nums.pop;
+put '@list = (', @nums.join(', '), '), $k = ', k;
+put @nums.combinations(2).grep({ .sum %% k }).elems;
diff --git a/challenge-188/feng-chang/raku/ch-2.raku b/challenge-188/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..751dff20bd
--- /dev/null
+++ b/challenge-188/feng-chang/raku/ch-2.raku
@@ -0,0 +1,11 @@
+#!/bin/env raku
+
+unit sub MAIN(UInt:D $x is copy, UInt:D $y is copy);
+
+my UInt $cnt = 0;
+while $x and $y {
+    $x ≥ $y ?? ($x -= $y) !! ($y -= $x);
+    ++$cnt;
+}
+
+put $cnt;