diff options
| -rw-r--r-- | challenge-077/mark-anderson/raku/ch-1.raku | 16 |
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; +} |