Merge pull request #3282 from wambash/challenge-week-095

solutions week 095

2 files changed, 36 insertions, 0 deletions

diff --git a/challenge-095/wambash/raku/ch-1.raku b/challenge-095/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..cdec64fc2b
--- /dev/null
+++ b/challenge-095/wambash/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+sub palindrom-number ( $n ) {
+    $n eq $n.flip
+}
+
+multi MAIN (Bool :$test!) {
+    use Test;
+    is palindrom-number(1221), True;
+    is palindrom-number(-101), False;
+    is palindrom-number(  90), False;
+    done-testing;
+}
+
+multi MAIN ($n) {
+    say +palindrom-number $n
+}
diff --git a/challenge-095/wambash/raku/ch-2.raku b/challenge-095/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..66959511bb
--- /dev/null
+++ b/challenge-095/wambash/raku/ch-2.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+class Stack {
+    has @!stack handles (|<push pop min>, top => <tail>);
+}
+
+multi MAIN (Bool :$test! ) {
+    use Test;
+    with Stack.new {
+        .push:  2;
+        .push: -1;
+        .push:  0;
+        .pop;
+        is .top, -1;
+        .push:  0;
+        is .min, -1;
+    }
+    done-testing;
+}