diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-11-08 09:00:19 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-11-08 09:00:19 +0000 |
| commit | 6d4e806f53208af77261d1d34ccca176790df30a (patch) | |
| tree | b49befa2a7eef854be6979597b6871434c87fd4a | |
| parent | 488ccf2730c1738bd4723f1a1924d127804083e3 (diff) | |
| parent | 161dddcd4199513459cde47a5c3f72d5df4b4b61 (diff) | |
| download | perlweeklychallenge-club-6d4e806f53208af77261d1d34ccca176790df30a.tar.gz perlweeklychallenge-club-6d4e806f53208af77261d1d34ccca176790df30a.tar.bz2 perlweeklychallenge-club-6d4e806f53208af77261d1d34ccca176790df30a.zip | |
Merge pull request #5179 from ash/ash-138
Task 1 of Challenge 138
| -rw-r--r-- | challenge-138/ash/raku/ch-1.raku | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-138/ash/raku/ch-1.raku b/challenge-138/ash/raku/ch-1.raku new file mode 100644 index 0000000000..8960e78b78 --- /dev/null +++ b/challenge-138/ash/raku/ch-1.raku @@ -0,0 +1,8 @@ +# $ raku ch-1.raku 2021 +# 261 +# $ raku ch-1.raku 2020 +# 262 + +sub MAIN(Int $year) { + say +(grep {$_.day-of-week < 6}, (Date.new($year, 1, 1) .. Date.new($year, 12, 31))) +} |