diff options
| author | Jan Krňávek <Jan.Krnavek@gmail.com> | 2021-09-05 12:31:32 +0200 |
|---|---|---|
| committer | Jan Krňávek <Jan.Krnavek@gmail.com> | 2021-09-05 12:31:32 +0200 |
| commit | 2088636a4f70511d77b97efdb1aafdb77b73ba50 (patch) | |
| tree | 34c84c462d8bce7d2717d77bbc7f776a697239c9 | |
| parent | 1cadc1464bde1bba0345c4b0e34b566d3d526953 (diff) | |
| download | perlweeklychallenge-club-2088636a4f70511d77b97efdb1aafdb77b73ba50.tar.gz perlweeklychallenge-club-2088636a4f70511d77b97efdb1aafdb77b73ba50.tar.bz2 perlweeklychallenge-club-2088636a4f70511d77b97efdb1aafdb77b73ba50.zip | |
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; +} |