diff options
| -rw-r--r-- | challenge-128/wambash/raku/ch-2.raku | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/challenge-128/wambash/raku/ch-2.raku b/challenge-128/wambash/raku/ch-2.raku new file mode 100644 index 0000000000..32028bc0f8 --- /dev/null +++ b/challenge-128/wambash/raku/ch-2.raku @@ -0,0 +1,16 @@ +#!/usr/bin/env raku + +sub minimum-platforms (@arrivals, @deparatures) { + |(@arrivals X=> 1), |(@deparatures X=> -1) + andthen .sort + andthen .map: *.value + andthen [\+] $_ + andthen .max +} + +multi MAIN (Bool :test($)! ) { + use Test; + is minimum-platforms( <11:20 14:30>, <11:50 15:00> ), 1; + is minimum-platforms( <10:20 11:00 11:10 12:20 16:20 19:00>, <10:30 13:20 12:40 12:50 20:20 21:20> ), 3; + done-testing; +} |