aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad S Anwar <Mohammad.Anwar@yahoo.com>2020-05-18 09:59:51 +0100
committerGitHub <noreply@github.com>2020-05-18 09:59:51 +0100
commit5ec62d5183a14c6170b76690510772dc2605393f (patch)
treed7d6db6b118d0adfdc684f997bed5f311df4e499
parent04eaf8caef8302636c11b18db369dcca00cb9582 (diff)
parent78758c83bb71a3b303be7ff07330e18d4c4d1788 (diff)
downloadperlweeklychallenge-club-5ec62d5183a14c6170b76690510772dc2605393f.tar.gz
perlweeklychallenge-club-5ec62d5183a14c6170b76690510772dc2605393f.tar.bz2
perlweeklychallenge-club-5ec62d5183a14c6170b76690510772dc2605393f.zip
Merge pull request #1731 from Scimon/master
On Holiday last week and avoided all coding.
-rw-r--r--challenge-061/simon-proctor/raku/ch-1.raku17
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-061/simon-proctor/raku/ch-1.raku b/challenge-061/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..6c65ec0fcc
--- /dev/null
+++ b/challenge-061/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+use v6;
+
+sub MAIN ( *@values ) {
+ sub-lists( @values ).sort( -> $l { [*] @$l } ).reverse.first.say;
+}
+
+sub sub-lists( @list ) {
+ gather {
+ for ^@list -> $start {
+ for $start..^@list -> $end {
+ take @list[$start..$end];
+ }
+ }
+ }
+}