Merge pull request #781 from tagg/branch-for-challenge-030

Solution to challenge 030

3 files changed, 32 insertions, 1 deletions

diff --git a/challenge-030/lars-thegler/perl5/.gitignore b/challenge-030/lars-thegler/perl5/.gitignore
deleted file mode 100644
index 7d9ecbe3b8..0000000000
--- a/challenge-030/lars-thegler/perl5/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-_Inline/
diff --git a/challenge-030/lars-thegler/perl5/ch-1.pl b/challenge-030/lars-thegler/perl5/ch-1.pl
new file mode 100755
index 0000000000..a287480a8d
--- /dev/null
+++ b/challenge-030/lars-thegler/perl5/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use Modern::Perl;
+use Time::Piece;
+
+# Write a script to list dates for Sunday Christmas between 2019 and 2100.
+# For example, 25 Dec 2022 is Sunday.
+
+for my $year ( 2019 .. 2100 ) {
+    my $christmas_day = Time::Piece->strptime( "$year-12-25", '%F' );
+    say $christmas_day->strftime('%A %F') if $christmas_day->day_of_week == 0;    # sunday
+}
diff --git a/challenge-030/lars-thegler/perl5/ch-2.pl b/challenge-030/lars-thegler/perl5/ch-2.pl
new file mode 100755
index 0000000000..1ed5557b47
--- /dev/null
+++ b/challenge-030/lars-thegler/perl5/ch-2.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+
+use Modern::Perl;
+use Time::Piece;
+
+# Write a script to print all possible series of 3 positive numbers,
+# where in each series at least one of the number is even and sum of the
+# three numbers is always 12. For example, 3,4,5.
+
+for my $a ( 1 .. 12 ) {
+    for my $b ( 1 .. 12 ) {
+        for my $c ( 1 .. 12 ) {
+            next unless ( even($a) || even($b) || even($c) );
+            next unless $a + $b + $c == 12;
+            say "$a,$b,$c";
+        }
+    }
+}
+
+sub even { !!( $_[0] % 2 ) }