Merge pull request #1248 from kolcon/master

Challenge 047 LK

2 files changed, 84 insertions, 0 deletions

diff --git a/challenge-047/lubos-kolouch/perl/ch-1.pl b/challenge-047/lubos-kolouch/perl/ch-1.pl
new file mode 100644
index 0000000000..17120f2e43
--- /dev/null
+++ b/challenge-047/lubos-kolouch/perl/ch-1.pl
@@ -0,0 +1,49 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-1.pl
+#
+#        USAGE: ./ch-1.pl  
+#
+#  DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-047/
+#
+#               Roman Calculator
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Lubos Kolouch
+# ORGANIZATION: 
+#      VERSION: 1.0
+#      CREATED: 02/13/2020 02:23:28 PM
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use Roman;
+
+sub roman_magic {
+    my ($v1, $op, $v2) = @_;
+
+    my $rom_v1 = arabic($v1);
+    my $rom_v2 = arabic($v2);
+
+    return uc(roman(eval "$rom_v1 $op $rom_v2"))
+}
+
+# TESTS
+
+my ($v1, $op, $v2) = @ARGV;
+
+print roman_magic($v1, $op, $v2)."\n";
+
+
+use Test::More;
+
+is (roman_magic('V','+','VI'),'XI');
+
+done_testing;
+
+
diff --git a/challenge-047/lubos-kolouch/perl/ch-2.pl b/challenge-047/lubos-kolouch/perl/ch-2.pl
new file mode 100644
index 0000000000..cf616839c2
--- /dev/null
+++ b/challenge-047/lubos-kolouch/perl/ch-2.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-2.pl
+#
+#        USAGE: ./ch-2.pl  
+#
+#  DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-047/
+#       
+#               Gapful Number
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Lubos Kolouch 
+# ORGANIZATION: 
+#      VERSION: 1.0
+#      CREATED: 02/13/2020 09:17:13 PM
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use feature qw/say/;
+
+my $count = 0;
+for (100..10000) {
+    if ($_ % int(substr($_,0,1).substr($_,2,1)) == 0) {
+        say;
+        $count++;
+        last if $count == 20;
+    }
+}
+