diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2023-07-26 00:15:03 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-07-26 00:15:03 +0100 |
| commit | 6971359e6b43379abd822e5ee30523fd0526bdb2 (patch) | |
| tree | 45a27e0d91b54c304664bb4246a3b4227e16d5c6 | |
| parent | cd5be706955ad3f8b7062a7189bc378c97f8168b (diff) | |
| parent | e95d4e36d8582956966a1ebd3cd7df48ab39089b (diff) | |
| download | perlweeklychallenge-club-6971359e6b43379abd822e5ee30523fd0526bdb2.tar.gz perlweeklychallenge-club-6971359e6b43379abd822e5ee30523fd0526bdb2.tar.bz2 perlweeklychallenge-club-6971359e6b43379abd822e5ee30523fd0526bdb2.zip | |
Merge pull request #8437 from Scimon/master
Challenge 1
| -rw-r--r-- | challenge-227/simon-proctor/raku/ch-1.raku | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-227/simon-proctor/raku/ch-1.raku b/challenge-227/simon-proctor/raku/ch-1.raku new file mode 100644 index 0000000000..4cfb804d05 --- /dev/null +++ b/challenge-227/simon-proctor/raku/ch-1.raku @@ -0,0 +1,12 @@ +#!/usr/bin/env raku + +#| Given a year between 1753 and 9999 print the number of friday the 13ths +sub MAIN( + Int() $year where 1753 <= * <= 9999 #= Year between 1753 and 9999 +) { + (1..12) + .map( -> $m { Date.new($year,$m,13) } ) + .grep( -> $d { $d.day-of-week == 5 } ) + .elems + .say; +} |