Solutions to challenge 080, both parts, in perl

2 files changed, 36 insertions, 0 deletions

diff --git a/challenge-080/shawn-wagner/perl/ch1.pl b/challenge-080/shawn-wagner/perl/ch1.pl
new file mode 100755
index 0000000000..73e21f0063
--- /dev/null
+++ b/challenge-080/shawn-wagner/perl/ch1.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+use feature qw/say/;
+
+sub task1 {
+  my %nums = map { $_ => 1 } @_;
+  for (my $n = 1; ; $n += 1) {
+    if (!exists $nums{$n}) {
+      say $n;
+      return;
+    }
+  }
+}
+
+task1 5, 2, -2, 0;
+task1 1, 8, -1;
+task1 2, 0, -1;
diff --git a/challenge-080/shawn-wagner/perl/ch2.pl b/challenge-080/shawn-wagner/perl/ch2.pl
new file mode 100755
index 0000000000..446fc708cb
--- /dev/null
+++ b/challenge-080/shawn-wagner/perl/ch2.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+use feature qw/say/;
+
+sub task2 {
+  my $candies = @_;
+  for (my $n = 0; $n <= $#_; $n += 1) {
+    if (($n > 0 && $_[$n] > $_[$n - 1]) ||
+        ($n < $#_ && $_[$n] > $_[$n + 1])) {
+      $candies += 1;
+    }
+  }
+  say $candies;
+}
+
+task2 1, 2, 2;
+task2 1, 4, 3, 2;