From 03e0357b648a10d56954a8f4f7b5773895fa1dc2 Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Mon, 11 Jan 2021 09:24:21 +0000
Subject: This weeks challenge

---
 challenge-095/simon-proctor/raku/ch-1.raku |  9 +++++++++
 challenge-095/simon-proctor/raku/ch-2.raku | 20 ++++++++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100644 challenge-095/simon-proctor/raku/ch-1.raku
 create mode 100644 challenge-095/simon-proctor/raku/ch-2.raku

diff --git a/challenge-095/simon-proctor/raku/ch-1.raku b/challenge-095/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..463db50797
--- /dev/null
+++ b/challenge-095/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,9 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Given a Palindromic number print 1
+multi sub MAIN( Int() $N where { $N.Str.flip ~~ $N } ) { say 1 }
+
+#| Given a non Palindromic number print 0
+multi sub MAIN( $ ) { say 0 }
diff --git a/challenge-095/simon-proctor/raku/ch-2.raku b/challenge-095/simon-proctor/raku/ch-2.raku
new file mode 100644
index 0000000000..09f9e1e2ab
--- /dev/null
+++ b/challenge-095/simon-proctor/raku/ch-2.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+use v6;
+
+role Stack {
+    has @!list handles <push pop min>;
+
+    method top { @!list[*-1]; }
+}
+
+sub MAIN() {
+    my $stack = Stack.new;
+    $stack.push(2);
+    $stack.push(-1);
+    $stack.push(0);
+    say $stack.pop; # print and removes 0
+    say $stack.top; # prints -1
+    $stack.push(0);
+    say $stack.min; # prints -1
+}
-- 
cgit