- Added solutions by Maxim Nechaev.

2 files changed, 23 insertions, 0 deletions

diff --git a/challenge-013/maxim-nechaev/perl5/ch-1.pl b/challenge-013/maxim-nechaev/perl5/ch-1.pl
new file mode 100755
index 0000000000..1c31870897
--- /dev/null
+++ b/challenge-013/maxim-nechaev/perl5/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+use strict;
+use feature 'say';
+use DateTime;
+
+
+my $year = 2019;
+
+for my $month (1..12) {
+    my $dt = DateTime->last_day_of_month( year => $year, month => $month );
+    $dt->subtract( days => (2 + $dt->dow)%7 );
+    say $dt->ymd('/');
+}
diff --git a/challenge-013/maxim-nechaev/perl5/ch-2.pl b/challenge-013/maxim-nechaev/perl5/ch-2.pl
new file mode 100755
index 0000000000..b83455e1d1
--- /dev/null
+++ b/challenge-013/maxim-nechaev/perl5/ch-2.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+use strict;
+use feature 'say';
+no warnings 'recursion';
+
+sub F { my $n=shift; $n>0? $n - M(F($n-1)) : 1 }
+sub M { my $n=shift; $n>0? $n - F(M($n-1)) : 0 }
+
+say F(99);	# 61
+say M(101);	# 63