Merge pull request #6519 from oWnOIzRi/week175

add solution week 175 task 1

1 files changed, 25 insertions, 0 deletions

diff --git a/challenge-175/steven-wilson/perl/ch-01.pl b/challenge-175/steven-wilson/perl/ch-01.pl
new file mode 100644
index 0000000000..15a456dcbe
--- /dev/null
+++ b/challenge-175/steven-wilson/perl/ch-01.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+# Week 175 Task 1
+# Write a script to list Last Sunday of every month in the given year.
+
+use strict;
+use warnings;
+use DateTime;
+
+my $year = $ARGV[0];
+my $dt   = DateTime->new( year => $year, month => 1, day => 1 );
+my %sundays;
+
+while ( $year == $dt->year ) {
+    if ( $dt->dow == 7 ) {
+        $sundays{ $dt->mon } = $dt->day;
+        $dt->add( days => 7 );
+    }
+    else {
+        $dt->add( days => 1 );
+    }
+}
+
+for my $month ( sort { $a <=> $b } keys %sundays ) {
+    printf( "$year-%02d-$sundays{$month}\n", $month );
+}