diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-09-05 20:14:08 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-09-05 20:14:08 +0100 |
| commit | 0f17af5816aa2c1e57fcae79cc04fabd0b6f08fc (patch) | |
| tree | 34c84c462d8bce7d2717d77bbc7f776a697239c9 | |
| parent | 1cadc1464bde1bba0345c4b0e34b566d3d526953 (diff) | |
| parent | 2088636a4f70511d77b97efdb1aafdb77b73ba50 (diff) | |
| download | perlweeklychallenge-club-0f17af5816aa2c1e57fcae79cc04fabd0b6f08fc.tar.gz perlweeklychallenge-club-0f17af5816aa2c1e57fcae79cc04fabd0b6f08fc.tar.bz2 perlweeklychallenge-club-0f17af5816aa2c1e57fcae79cc04fabd0b6f08fc.zip | |
Merge pull request #4836 from wambash/challenge-week-128
solution week 128-2
| -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; +} |