diff options
| author | Alexander <39702500+threadless-screw@users.noreply.github.com> | 2019-06-18 19:19:26 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-06-18 19:19:26 +0000 |
| commit | f3718a8afce318ad5ca3529e63bcf7dfade9f99e (patch) | |
| tree | 19506e673382852ac9d7d35c118cb21ecb5695fe | |
| parent | 38d37dfa54b1a232c804f4fb34e8935bbac40efd (diff) | |
| download | perlweeklychallenge-club-f3718a8afce318ad5ca3529e63bcf7dfade9f99e.tar.gz perlweeklychallenge-club-f3718a8afce318ad5ca3529e63bcf7dfade9f99e.tar.bz2 perlweeklychallenge-club-f3718a8afce318ad5ca3529e63bcf7dfade9f99e.zip | |
Create ch-1.p6
| -rw-r--r-- | challenge-013/ozzy/perl6/ch-1.p6 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-013/ozzy/perl6/ch-1.p6 b/challenge-013/ozzy/perl6/ch-1.p6 new file mode 100644 index 0000000000..3eb8130330 --- /dev/null +++ b/challenge-013/ozzy/perl6/ch-1.p6 @@ -0,0 +1,8 @@ +!/usr/bin/env perl6 +# Print the last Fridays of the month for a given year. + +sub MAIN ( Int $year ) +{ + .say for grep { .day-of-week == 5 && (.days-in-month - .day < 7 ) }, + (Date.new($year, 1, 1) ... Date.new($year, 12, 31) ); +} |