diff options
| -rwxr-xr-x | challenge-076/roger-bell-west/raku/ch-1.p6 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-076/roger-bell-west/raku/ch-1.p6 b/challenge-076/roger-bell-west/raku/ch-1.p6 index 184e79004d..bc0a186e54 100755 --- a/challenge-076/roger-bell-west/raku/ch-1.p6 +++ b/challenge-076/roger-bell-west/raku/ch-1.p6 @@ -8,6 +8,6 @@ is(psum(9),2,"example"); sub psum($n) { my @p=reverse grep {is-prime($_)}, (2..$n); - my @s=grep {sum(@_)==$n}, @p.combinations(1..@p.elems); - return sum(@s[0]); + my @s=grep {sum(@($_))==$n}, @p.combinations(1..@p.elems); + return @s[0].elems; } |