From 19c9cd2c19d5a556d09d311e7a2958dd3e3421bd Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 28 Sep 2020 02:00:16 -0600
Subject: Challenge 80 Solutions (Raku)

---
 challenge-080/mark-anderson/raku/ch-1.raku |  3 +++
 challenge-080/mark-anderson/raku/ch-2.raku | 13 +++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 challenge-080/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-080/mark-anderson/raku/ch-2.raku

diff --git a/challenge-080/mark-anderson/raku/ch-1.raku b/challenge-080/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..fb1a2b541f
--- /dev/null
+++ b/challenge-080/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,3 @@
+unit sub MAIN(*@ints where .all ~~ Int);
+
+say $_ ?? .min.key !! 1 with (1..@ints.max+1) (-) @ints.map(+*); 
diff --git a/challenge-080/mark-anderson/raku/ch-2.raku b/challenge-080/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..94023b4e65
--- /dev/null
+++ b/challenge-080/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,13 @@
+unit sub MAIN(*@ints);
+
+my $candies = @ints.elems;
+
+@ints.push(Inf);
+@ints.unshift(Inf);
+
+for (1..^@ints.end) -> $i {
+    $candies++ if @ints[$i] > @ints[$i-1];
+    $candies++ if @ints[$i] > @ints[$i+1];
+}
+
+say $candies;
-- 
cgit