From e4dd63ce924a5440a23ebff642e08e27793cc0af Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Tue, 15 Mar 2022 10:38:50 +0000
Subject: Challenge 156 Solutions (Raku)

---
 challenge-156/mark-anderson/raku/ch-2.raku | 12 +++++-------
 1 file 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
 }
-- 
cgit