From 2ff7886e24f0ee207d3aa299d2a34cf63e8f8378 Mon Sep 17 00:00:00 2001
From: 冯昶 <seaker@qq.com>
Date: Wed, 26 Aug 2020 18:35:06 +0800
Subject: #075 ch-1.raku

---
 challenge-075/feng-chang/raku/ch-1.raku | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 challenge-075/feng-chang/raku/ch-1.raku

diff --git a/challenge-075/feng-chang/raku/ch-1.raku b/challenge-075/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..2cfd88dfb6
--- /dev/null
+++ b/challenge-075/feng-chang/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/bin/env raku
+
+sub coins-sum(Int:D @C, Int:D $S, Int:D @solution) {
+    { say @solution; return; } if $S == 0;
+    return if $S < @C[0];
+
+    my Int @coins = @C;
+    while @coins.elems > 0 {
+        my Int @Sol = @solution;
+        @Sol.push(@coins[0]);
+        coins-sum(@coins, $S - @coins[0], @Sol);
+
+        @coins.shift;
+    }
+}
+
+my Int @coins = 1, 2, 4;
+my Int @solution;
+coins-sum(@coins, 6, @solution);
-- 
cgit