From 511d5aefd2d2cd851f9fa34bd2bff77ef95bb83d Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 11 Jan 2021 02:23:24 -0500
Subject: 1st commit on 095_raku

---
 challenge-095/stuart-little/raku/ch-1.p6 |  6 ++++++
 challenge-095/stuart-little/raku/ch-2.p6 | 21 +++++++++++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100755 challenge-095/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-095/stuart-little/raku/ch-2.p6

(limited to 'challenge-095')

diff --git a/challenge-095/stuart-little/raku/ch-1.p6 b/challenge-095/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..b4d820de49
--- /dev/null
+++ b/challenge-095/stuart-little/raku/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <number>
+
+(@*ARGS[0] eq @*ARGS[0].flip).Int.say
diff --git a/challenge-095/stuart-little/raku/ch-2.p6 b/challenge-095/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..e88c26c01a
--- /dev/null
+++ b/challenge-095/stuart-little/raku/ch-2.p6
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script>
+
+sub stack_min (@stack,$mn) {
+    (! @stack) && return $mn;
+    my $popped=@stack.pop;
+    return (stack_min(@stack,$mn),($mn,$popped).min).min
+}
+
+my @stack;
+
+[2,-1,0,10,4].map({ @stack.push($_) });
+say qq|Current stack: {@stack}|;
+say qq|Popping: {@stack.pop}|;
+say qq|Current stack: {@stack}|;
+say qq|Peeking: {@stack.[*-1]}|;
+say qq|Current stack: {@stack}|;
+say qq|Stack minimum: {stack_min(@stack,Inf)}|;
+say qq|Current stack: {@stack}|;
-- 
cgit