aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Proctor <simon.proctor@zoopla.co.uk>2020-05-18 09:57:20 +0100
committerSimon Proctor <simon.proctor@zoopla.co.uk>2020-05-18 09:57:20 +0100
commit78758c83bb71a3b303be7ff07330e18d4c4d1788 (patch)
tree350ef2d02718b48d1575cc35940b4120e00d5cc7
parent59fa83dda8cf2a528342ec69e31cd16d31f1c282 (diff)
downloadperlweeklychallenge-club-78758c83bb71a3b303be7ff07330e18d4c4d1788.tar.gz
perlweeklychallenge-club-78758c83bb71a3b303be7ff07330e18d4c4d1788.tar.bz2
perlweeklychallenge-club-78758c83bb71a3b303be7ff07330e18d4c4d1788.zip
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];
+ }
+ }
+ }
+}