Set up for challenge 74

2 files changed, 78 insertions, 0 deletions

diff --git a/challenge-074/bob-lied/perl/lib/FNR.pm b/challenge-074/bob-lied/perl/lib/FNR.pm
new file mode 100644
index 0000000000..c0cbae378d
--- /dev/null
+++ b/challenge-074/bob-lied/perl/lib/FNR.pm
@@ -0,0 +1,39 @@
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# FNR.pm
+#=============================================================================
+# Copyright (c) 2020, Bob Lied
+#=============================================================================
+# Description:
+#=============================================================================
+
+package FNR;
+
+use strict;
+use warnings;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw();
+our @EXPORT_OK = qw();
+
+sub new
+{
+    my $class = shift;
+    my $class = ref($class) || $class;
+    my $self = {
+        _name1 = $_[0],
+    };
+    bless $self, $class;
+    return $self;
+}
+
+sub FNR
+{
+    my ($s) = @_;
+    my $result = "";
+
+    return $result;
+}
+
+1;
diff --git a/challenge-074/bob-lied/perl/lib/MajorityElement.pm b/challenge-074/bob-lied/perl/lib/MajorityElement.pm
new file mode 100644
index 0000000000..8a7dcb0192
--- /dev/null
+++ b/challenge-074/bob-lied/perl/lib/MajorityElement.pm
@@ -0,0 +1,39 @@
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# MajorityElement.pm
+#=============================================================================
+# Copyright (c) 2020, Bob Lied
+#=============================================================================
+# Description:
+#=============================================================================
+
+package MajorityElement;
+
+use strict;
+use warnings;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(majorityElement);
+our @EXPORT_OK = qw();
+
+sub new
+{
+    my $class = shift;
+    my $class = ref($class) || $class;
+    my $self = {
+        _name1 = $_[0],
+    };
+    bless $self, $class;
+    return $self;
+}
+
+sub majorityElement
+{
+    my (@arr) = @_;
+    my $result = -1;
+
+    return $result;
+}
+
+1;