last minute improvement

1 files changed, 9 insertions, 7 deletions

diff --git a/challenge-077/mark-anderson/raku/ch-1.raku b/challenge-077/mark-anderson/raku/ch-1.raku
index cab9692458..07c0f969e0 100644
--- a/challenge-077/mark-anderson/raku/ch-1.raku
+++ b/challenge-077/mark-anderson/raku/ch-1.raku
@@ -1,11 +1,13 @@
-unit sub MAIN(UInt $N);
+multi sub MAIN(UInt $N where 0 <= $N <= 2) { say $N }
 
-my @fib = (1, 2, * + * ... $N <= * + *);
+multi sub MAIN(UInt $N) {
+    my @fib = (1, 2, * + * ... $N <= * + *);
 
-my @results = gather {
-    for 2..@fib -> $n {
-        take $_ for @fib.combinations($n).grep(*.sum == $N); 
+    my @results = gather {
+        for 2..@fib -> $n {
+            take $_ for @fib.combinations($n).grep(*.sum == $N); 
+        }
     }
-}
 
-say "$_.join(" + ") = $N" for @results;
+    say "$_.join(" + ") = $N" for @results;
+}