Challenge #140, Raku solutions

2 files changed, 38 insertions, 0 deletions

diff --git a/challenge-140/feng-chang/raku/ch-1.raku b/challenge-140/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..38e4cf77a0
--- /dev/null
+++ b/challenge-140/feng-chang/raku/ch-1.raku
@@ -0,0 +1,33 @@
+#!/bin/env raku
+
+multi infix:<加>([], $B) { $B }
+
+multi infix:<加>($A, [0]) { $A }
+
+multi infix:<加>($A, [1]) {
+    my Array $C = $A;
+
+    if $C[*-1] == 0 {
+        $C.splice(*-1, 1, 1);
+    } else {
+        $C.pop;
+        $C 加= [1];
+        $C.push(0);
+    }
+
+    $C
+}
+
+multi infix:<加>($A, $B) {
+    my Array $C = $A.elems ≥ $B.elems - 1 ?? $A[^($A.elems - $B.elems + 1)].Array !! [];
+    for $B.elems ... 1 -> $i {
+        $C 加= [$B[$B.elems - $i]];
+        $C.push(0 ≤ $A.elems - $i + 1 < $A.elems ?? $A[$A.elems - $i + 1] !! 0) if $i > 1;
+    }
+
+    $C
+}
+
+sub MAIN(UInt:D $a, UInt:D $b) {
+    put ($a.comb».UInt.Array 加 $b.comb».UInt.Array).join;
+}
diff --git a/challenge-140/feng-chang/raku/ch-2.raku b/challenge-140/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..46859edc96
--- /dev/null
+++ b/challenge-140/feng-chang/raku/ch-2.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+sub MAIN(UInt:D \i, UInt:D \j, UInt:D \k) {
+    put ((1..i)X(1..j)).map({.[0]*.[1]}).sort[k-1];
+}