From 5ae992bd8cbab537aeae9fcd18795cf2a97c148a Mon Sep 17 00:00:00 2001 From: Ysmael Ebreo Date: Tue, 15 Oct 2019 00:27:41 +0800 Subject: Added perl6 solution ch#30-1 --- challenge-030/yet-ebreo/perl6/ch-1.p6 | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 challenge-030/yet-ebreo/perl6/ch-1.p6 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 -- cgit