diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-09-01 17:34:05 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-01 17:34:05 +0100 |
| commit | b950fff99851f0813821ce848a9d33aaf8ad4e07 (patch) | |
| tree | ace6f243269ca646dad3936d4f2f11629647721e | |
| parent | e46c814d833ba81f727a8bbba1e584f8320bd3e1 (diff) | |
| parent | 4134996213e0df50a69f7c72f869d6a48249bb5e (diff) | |
| download | perlweeklychallenge-club-b950fff99851f0813821ce848a9d33aaf8ad4e07.tar.gz perlweeklychallenge-club-b950fff99851f0813821ce848a9d33aaf8ad4e07.tar.bz2 perlweeklychallenge-club-b950fff99851f0813821ce848a9d33aaf8ad4e07.zip | |
Merge pull request #2189 from Firedrake/rogerbw-challenge-076c
Rogerbw challenge 076c - need more test cases.
| -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; } |