From 9e7e6f6df37e27f13020b3cb2d7a7cc6885e803e Mon Sep 17 00:00:00 2001 From: Walt Mankowski Date: Tue, 18 Feb 2020 21:25:43 -0500 Subject: perl code for challenge 48-2 --- challenge-048/walt-mankowski/perl/ch-2.pl | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 challenge-048/walt-mankowski/perl/ch-2.pl (limited to 'challenge-048') diff --git a/challenge-048/walt-mankowski/perl/ch-2.pl b/challenge-048/walt-mankowski/perl/ch-2.pl new file mode 100644 index 0000000000..b7e51255a0 --- /dev/null +++ b/challenge-048/walt-mankowski/perl/ch-2.pl @@ -0,0 +1,23 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use feature qw(:5.30); +use experimental qw(signatures); +use DateTime; + +# TASK #2 +# Palindrome Dates + +# Write a script to print all Palindrome Dates between 2000 and +# 2999. The format of date is mmddyyyy. For example, the first one was +# on October 2, 2001 as it is represented as 10022001. + +for my $year (2000..2999) { + for my $month (1..12) { + my $dt = DateTime->new(year => $year, month => $month); + for my $day (1..$dt->month_length()) { + my $date = sprintf("%02d%02d%d", $month, $day, $year); + say $date if $date eq reverse($date); + } + } +} -- cgit