diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-03-09 14:33:57 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-03-09 14:33:57 -0600 |
| commit | 1cb5aed0a4dacc5a07fbc8baa1828efe62d08a92 (patch) | |
| tree | 889e240c3863054adf3950efc200999bc78f6c2b /challenge-051/mark-anderson | |
| parent | 3c4cdc7802472842d6ca8ae7b3d47964269cb0dc (diff) | |
| download | perlweeklychallenge-club-1cb5aed0a4dacc5a07fbc8baa1828efe62d08a92.tar.gz perlweeklychallenge-club-1cb5aed0a4dacc5a07fbc8baa1828efe62d08a92.tar.bz2 perlweeklychallenge-club-1cb5aed0a4dacc5a07fbc8baa1828efe62d08a92.zip | |
Challenge 51 Solutions
Diffstat (limited to 'challenge-051/mark-anderson')
| -rw-r--r-- | challenge-051/mark-anderson/raku/ch-1.p6 | 8 | ||||
| -rw-r--r-- | challenge-051/mark-anderson/raku/ch-2.p6 | 11 |
2 files changed, 19 insertions, 0 deletions
diff --git a/challenge-051/mark-anderson/raku/ch-1.p6 b/challenge-051/mark-anderson/raku/ch-1.p6 new file mode 100644 index 0000000000..8506e7d484 --- /dev/null +++ b/challenge-051/mark-anderson/raku/ch-1.p6 @@ -0,0 +1,8 @@ +#!/usr/bin/env perl6 + +# Usage: ch-1.p6 $T @L +# Example: ch-1.p6 0 -25 -10 -7 -3 2 4 8 10 + +sub MAIN($T, *@L) { + say @L.sort.combinations(3).grep(*.sum == $T); +} diff --git a/challenge-051/mark-anderson/raku/ch-2.p6 b/challenge-051/mark-anderson/raku/ch-2.p6 new file mode 100644 index 0000000000..aecaf25b69 --- /dev/null +++ b/challenge-051/mark-anderson/raku/ch-2.p6 @@ -0,0 +1,11 @@ +#!/usr/bin/env perl6 + +for 100 .. 999 -> $num { + my @digits = $num.comb.unique; + + if @digits == 3 { + if (([*] @digits), ([*] @digits[0,1]), ([*] @digits[1,2])).Set == 3 { + say $num; + } + } +} |