TWC227

3 files changed, 42 insertions, 0 deletions

diff --git a/challenge-227/deadmarshal/blog.txt b/challenge-227/deadmarshal/blog.txt
new file mode 100644
index 0000000000..dc3c1dcd72
--- /dev/null
+++ b/challenge-227/deadmarshal/blog.txt
@@ -0,0 +1 @@
+https://deadmarshal.blogspot.com
diff --git a/challenge-227/deadmarshal/perl/ch-1.pl b/challenge-227/deadmarshal/perl/ch-1.pl
new file mode 100644
index 0000000000..ad8789b8a8
--- /dev/null
+++ b/challenge-227/deadmarshal/perl/ch-1.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Time::Piece;
+
+sub friday_13th{
+  my ($count,$year) = (0,@_);
+  foreach my $month(1..12){
+    my $d = Time::Piece->strptime("$year-$month-13", "%Y-%m-%d");
+    $count++ if $d->day_of_week == 5;
+  }
+  $count
+}
+
+printf "%d\n", friday_13th(2023);
+
diff --git a/challenge-227/deadmarshal/perl/ch-2.pl b/challenge-227/deadmarshal/perl/ch-2.pl
new file mode 100644
index 0000000000..19895ee12c
--- /dev/null
+++ b/challenge-227/deadmarshal/perl/ch-2.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Roman;
+
+sub roman_maths
+{
+  my ($n1,$n2,$r) = (arabic($_[0]),arabic($_[2]));
+  eval "\$r = $n1 $_[1] $n2;";
+  die "Error: $@" if $@;
+  if($r != int($r) || $r < 0 || $r > 3999){return "non potest"}
+  elsif($r == 0){return "nulla"}
+  uc(roman($r));
+}
+
+printf "%s\n", roman_maths('IV','+','V');
+printf "%s\n", roman_maths('M','-','I');
+printf "%s\n", roman_maths('X','/','II');
+printf "%s\n", roman_maths('XI','*','VI');
+printf "%s\n", roman_maths('VII','**','III');
+printf "%s\n", roman_maths('V','-','V');
+printf "%s\n", roman_maths('V','/','II');
+printf "%s\n", roman_maths('MMM','+','M');
+printf "%s\n", roman_maths('V','-','X');
+