From 4134996213e0df50a69f7c72f869d6a48249bb5e Mon Sep 17 00:00:00 2001 From: Roger Bell_West Date: Tue, 1 Sep 2020 17:27:44 +0100 Subject: Syntax fix --- challenge-076/roger-bell-west/raku/ch-1.p6 | 4 ++-- 1 file 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; } -- cgit