Add nunovieira220 perl solution to challenge 096

2 files changed, 45 insertions, 0 deletions

diff --git a/challenge-096/nunovieira220/perl/ch-1.pl b/challenge-096/nunovieira220/perl/ch-1.pl
new file mode 100644
index 0000000000..87cf5afacb
--- /dev/null
+++ b/challenge-096/nunovieira220/perl/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature qw(say);
+
+# Input
+my $S = "    Perl and   Raku are  part of the same family  ";
+
+# Reverse Words
+$S =~ s/^\s+|\s+$//g;
+$S =~ s/\s+/ /g;
+
+my $res = join(" ", reverse(split(" ", $S)));
+
+# Output
+say($res);
\ No newline at end of file
diff --git a/challenge-096/nunovieira220/perl/ch-2.pl b/challenge-096/nunovieira220/perl/ch-2.pl
new file mode 100644
index 0000000000..7603957e12
--- /dev/null
+++ b/challenge-096/nunovieira220/perl/ch-2.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature qw(say);
+use List::Util qw[max];
+
+# Input
+my $S1 = "kitten";
+my $S2 = "sitting";
+
+# Edit Distance
+my $maxLength = max(length($S1), length($S2));
+
+for(my $i = 0; $i < $maxLength; $i++) {
+  my $char1 = substr($S1, $i, 1);
+  my $char2 = substr($S2, $i, 1);
+
+  if(notEmpty($char1) && notEmpty($char2)) {
+    say("Replace '$char1' with '$char2'");
+  } elsif (notEmpty($char1)) {
+    say("Remove '$char1' at position ".($i + 1));
+  } else {
+    say("Insert '$char2' at the end");
+  }
+}
+
+sub notEmpty { return defined $_[0] && !$_[0] eq '' ? 1 : 0 }