Challenge 156 Solutions (Raku)

1 files changed, 5 insertions, 7 deletions

diff --git a/challenge-156/mark-anderson/raku/ch-2.raku b/challenge-156/mark-anderson/raku/ch-2.raku
index 982c72ea0c..086f163102 100644
--- a/challenge-156/mark-anderson/raku/ch-2.raku
+++ b/challenge-156/mark-anderson/raku/ch-2.raku
@@ -23,18 +23,16 @@ sub weird($n)
 
 sub subset-sum($sum, @n)
 {
-    my @curr = 1, |(0 xx $sum);
-    @curr[@n.head] = 1;
+    my @a = 1, |(0 xx $sum);
+    @a[@n.head] = 1;
 
     for @n.skip -> $n
     {
-        my @prev = @curr;
-
-        for $n..$sum -> $i
+        for ($n..$sum).reverse -> $i
         {
-            @curr[$i] = @prev[$i-$n] unless @curr[$i]
+            @a[$i] = @a[$i-$n] unless @a[$i]
         }
     }
 
-    @curr.tail
+    @a.tail
 }