diff options
| -rwxr-xr-x | challenge-076/roger-bell-west/raku/ch-1.p6 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-076/roger-bell-west/raku/ch-1.p6 b/challenge-076/roger-bell-west/raku/ch-1.p6 new file mode 100755 index 0000000000..184e79004d --- /dev/null +++ b/challenge-076/roger-bell-west/raku/ch-1.p6 @@ -0,0 +1,13 @@ +#! /usr/bin/perl6 + +use Test; + +plan 1; + +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]); +} |