diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-08-10 15:21:41 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-08-10 15:21:41 +0100 |
| commit | 67d235f2ed26008b3b99080cee2f6f378aa9dd80 (patch) | |
| tree | 6ccc960990d55fc03d6ff9d9a4f2f59d19727100 | |
| parent | 6f7a796a1d505fd4ee5b53dee9d550f90a52f9fa (diff) | |
| parent | fe8e869e6ee323e58ff95f63b8177f7162b3e731 (diff) | |
| download | perlweeklychallenge-club-67d235f2ed26008b3b99080cee2f6f378aa9dd80.tar.gz perlweeklychallenge-club-67d235f2ed26008b3b99080cee2f6f378aa9dd80.tar.bz2 perlweeklychallenge-club-67d235f2ed26008b3b99080cee2f6f378aa9dd80.zip | |
Merge pull request #2064 from Kaiepi/challenge-073
Add Raku solutions for challenge #073 by Ben Davies
| -rw-r--r-- | challenge-073/ben-davies/raku/ch-01.raku | 4 | ||||
| -rw-r--r-- | challenge-073/ben-davies/raku/ch-02.raku | 7 |
2 files changed, 11 insertions, 0 deletions
diff --git a/challenge-073/ben-davies/raku/ch-01.raku b/challenge-073/ben-davies/raku/ch-01.raku new file mode 100644 index 0000000000..ed55a8b271 --- /dev/null +++ b/challenge-073/ben-davies/raku/ch-01.raku @@ -0,0 +1,4 @@ +use v6; +unit sub MAIN(+@array where .all ~~ Int:D, Int:D :$s! where 1 <= * <= @array) { + say (0...@array - $s).map({ @array.skip($_).head($s).min }); +} diff --git a/challenge-073/ben-davies/raku/ch-02.raku b/challenge-073/ben-davies/raku/ch-02.raku new file mode 100644 index 0000000000..40e145087e --- /dev/null +++ b/challenge-073/ben-davies/raku/ch-02.raku @@ -0,0 +1,7 @@ +use v6; +unit sub MAIN(+@array where .all ~~ Int:D) { + say (0...^+@array).map({ + my (@prev, Int:D $cur) := @array[0..^$_, $_]; + @prev && (my Int:D $min = @prev.min) < $cur ?? $min !! 0 + }); +} |