diff options
| author | Ysmael Ebreo <Ysmael.Ebreo@latticesemi.com> | 2019-10-15 00:27:41 +0800 |
|---|---|---|
| committer | Ysmael Ebreo <Ysmael.Ebreo@latticesemi.com> | 2019-10-15 00:27:41 +0800 |
| commit | 5ae992bd8cbab537aeae9fcd18795cf2a97c148a (patch) | |
| tree | 7662afe03e0652ee5a7c873ae303513366c7dc1d /challenge-030 | |
| parent | 642e8ddf16c4de8de7163a9b916f895f7193e42f (diff) | |
| download | perlweeklychallenge-club-5ae992bd8cbab537aeae9fcd18795cf2a97c148a.tar.gz perlweeklychallenge-club-5ae992bd8cbab537aeae9fcd18795cf2a97c148a.tar.bz2 perlweeklychallenge-club-5ae992bd8cbab537aeae9fcd18795cf2a97c148a.zip | |
Added perl6 solution ch#30-1
Diffstat (limited to 'challenge-030')
| -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 |