diff options
| author | Roger Bell_West <roger@firedrake.org> | 2020-09-01 17:27:44 +0100 |
|---|---|---|
| committer | Roger Bell_West <roger@firedrake.org> | 2020-09-01 17:27:44 +0100 |
| commit | 4134996213e0df50a69f7c72f869d6a48249bb5e (patch) | |
| tree | 4df7d6abbd7f08bd3c69a3117ceac4eec1860655 | |
| parent | a0c7fb8f9d762a1d94e5eef33f8619004f0c7a98 (diff) | |
| download | perlweeklychallenge-club-4134996213e0df50a69f7c72f869d6a48249bb5e.tar.gz perlweeklychallenge-club-4134996213e0df50a69f7c72f869d6a48249bb5e.tar.bz2 perlweeklychallenge-club-4134996213e0df50a69f7c72f869d6a48249bb5e.zip | |
Syntax fix
| -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; } |