diff options
| author | Ben Davies <kaiepi@outlook.com> | 2021-03-29 07:03:38 -0300 |
|---|---|---|
| committer | Ben Davies <kaiepi@outlook.com> | 2021-03-29 09:20:58 -0300 |
| commit | 38ed327510eabe7ffb745ded4ccea2bf81ad796b (patch) | |
| tree | 1ead79404944e9bbcd9303e27951d1d4093e8301 | |
| parent | 0beed338bde9c2ee3c13c79878d4225103c346e8 (diff) | |
| download | perlweeklychallenge-club-38ed327510eabe7ffb745ded4ccea2bf81ad796b.tar.gz perlweeklychallenge-club-38ed327510eabe7ffb745ded4ccea2bf81ad796b.tar.bz2 perlweeklychallenge-club-38ed327510eabe7ffb745ded4ccea2bf81ad796b.zip | |
Add Ben Davies' solutions to challenge 106
| -rw-r--r-- | challenge-106/ben-davies/raku/ch-01.raku | 4 | ||||
| -rw-r--r-- | challenge-106/ben-davies/raku/ch-02.raku | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/challenge-106/ben-davies/raku/ch-01.raku b/challenge-106/ben-davies/raku/ch-01.raku new file mode 100644 index 0000000000..2fbb70ca90 --- /dev/null +++ b/challenge-106/ben-davies/raku/ch-01.raku @@ -0,0 +1,4 @@ +use v6; +unit sub MAIN(**@n where .all ~~ IntStr:D) { + say @n.sort(&[R<=>]).rotor(2 => -1).map(&[-] ∘ |*).max; +} diff --git a/challenge-106/ben-davies/raku/ch-02.raku b/challenge-106/ben-davies/raku/ch-02.raku new file mode 100644 index 0000000000..1e9fb7e1f3 --- /dev/null +++ b/challenge-106/ben-davies/raku/ch-02.raku @@ -0,0 +1,4 @@ +use v6; +unit sub MAIN(IntStr:D $n, IntStr:D $d) { + say ($n / $d).base-repeating.reduce({ $^repeating ?? "$^base\($^repeating)" !! $^base }); +} |