diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-10-14 12:02:59 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-10-14 12:02:59 +0100 |
| commit | 8c39bf2fd3367278e2af9abefb9e036e9144501a (patch) | |
| tree | b3cbcc657ebfece0100d50bcb4022a4627b519b9 /challenge-030 | |
| parent | 174c09af84cec71ed00a105289e3b1da35e96d7e (diff) | |
| download | perlweeklychallenge-club-8c39bf2fd3367278e2af9abefb9e036e9144501a.tar.gz perlweeklychallenge-club-8c39bf2fd3367278e2af9abefb9e036e9144501a.tar.bz2 perlweeklychallenge-club-8c39bf2fd3367278e2af9abefb9e036e9144501a.zip | |
- Added solution by Pete Houston.
Diffstat (limited to 'challenge-030')
| -rw-r--r-- | challenge-030/pete-houston/perl5/ch-1.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-030/pete-houston/perl5/ch-1.pl b/challenge-030/pete-houston/perl5/ch-1.pl new file mode 100644 index 0000000000..83894ec5bc --- /dev/null +++ b/challenge-030/pete-houston/perl5/ch-1.pl @@ -0,0 +1,17 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use Time::Piece; + +my $d = Time::Piece->strptime ('20191225', '%Y%m%d');; +my $dow = 1; +while ($d->year < 2101) { + if ($d->wday == $dow) { + printf "%s is %s\n", $d->strftime ('%d %b %Y'), $d->fullday; + $d = $d->add_years (5); + } else { + $d = $d->add_years (1); + } +} + |