diff options
| -rw-r--r-- | challenge-187/wambash/raku/ch-1.raku | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/challenge-187/wambash/raku/ch-1.raku b/challenge-187/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..a1edafafba --- /dev/null +++ b/challenge-187/wambash/raku/ch-1.raku @@ -0,0 +1,22 @@ +#!/usr/bin/env raku +multi days-together ( +@dr ) { + [∩] @dr + andthen .elems +} + + +multi MAIN (Bool :test($)!) { + use Test; + is-deeply days-together((.clone(:12day) .. .clone(:20day)), (.clone(:15day) .. .clone(:18day))), 4 with Date.new: '1999-01-01'; + is-deeply days-together((.clone( :2day) .. .clone(:12day)), (.clone(:13day) .. .clone(:14day))), 0 with Date.new: '1999-03-01'; + is-deeply days-together((.clone( :2day) .. .clone(:12day)), (.clone(:11day) .. .clone(:15day))), 2 with Date.new: '1999-03-01'; + is-deeply days-together( + (.clone(:30day) .. .clone(:5day:4month)), + (.clone(:28day) .. .clone(:2day:4month)) + ), 4 with Date.new: '1999-03-01'; + done-testing; +} + +multi MAIN (Date() $Foo-sd,Date() $Foo-ed, Date() $Bar-sd, Date() $Bar-ed) { + say days-together $Foo-sd..$Foo-ed, $Bar-sd..$Bar-ed +} |