diff options
| -rw-r--r-- | challenge-030/yet-ebreo/perl6/ch-1.p6 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-030/yet-ebreo/perl6/ch-1.p6 b/challenge-030/yet-ebreo/perl6/ch-1.p6 new file mode 100644 index 0000000000..041e7854b1 --- /dev/null +++ b/challenge-030/yet-ebreo/perl6/ch-1.p6 @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +# Write a script to list dates for Sunday +# Christmas between 2019 and 2100. +# For example, 25 Dec 2022 is Sunday. + +for 2019..2100 -> $year { + my $date = Date.new($year, 12, 25); + if ($date.day-of-week == 7) { + say "12/25/$year" + } +}
\ No newline at end of file |