diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2023-07-26 00:22:28 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-07-26 00:22:28 +0100 |
| commit | b4d3c92c181b30b015d4ddb70f68439611f3a62f (patch) | |
| tree | 9a8aba41016b550a70afd41fc4521d1546468aec | |
| parent | 5ced74e94e2c6232606b54b73f7091374708e81b (diff) | |
| parent | b8fc2d39ff9af2f77eb7e31caa9fb0bacd37869c (diff) | |
| download | perlweeklychallenge-club-b4d3c92c181b30b015d4ddb70f68439611f3a62f.tar.gz perlweeklychallenge-club-b4d3c92c181b30b015d4ddb70f68439611f3a62f.tar.bz2 perlweeklychallenge-club-b4d3c92c181b30b015d4ddb70f68439611f3a62f.zip | |
Merge pull request #8442 from deadmarshal/TWC227
TWC227
| -rw-r--r-- | challenge-227/deadmarshal/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-227/deadmarshal/perl/ch-1.pl | 16 | ||||
| -rw-r--r-- | challenge-227/deadmarshal/perl/ch-2.pl | 25 |
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'); + |