Merge pull request #3240 from gugod/gugod-095

@gugod's solutions to pwc 095

4 files changed, 52 insertions, 0 deletions

diff --git a/challenge-095/gugod/blog.txt b/challenge-095/gugod/blog.txt
new file mode 100644
index 0000000000..640d51cbdb
--- /dev/null
+++ b/challenge-095/gugod/blog.txt
@@ -0,0 +1 @@
+https://gugod.org/2021/01/pwc-095-en/
diff --git a/challenge-095/gugod/janet/ch-1.janet b/challenge-095/gugod/janet/ch-1.janet
new file mode 100644
index 0000000000..2da685f405
--- /dev/null
+++ b/challenge-095/gugod/janet/ch-1.janet
@@ -0,0 +1,15 @@
+
+(defn is-palindrome
+  "Tell if the given string is a palindrome"
+  [s]
+  (= s (string/reverse s)))
+
+(defn is-palindrome-number
+  "Tell if the given number is palindromic"
+  [n]
+  (is-palindrome (string n)))
+
+(loop [n :in @[1221 -101 90]]
+  (print (string
+        "Input: " n "\n"
+        "Output: " (if (is-palindrome-number n) 1 0) "\n")))
diff --git a/challenge-095/gugod/raku/ch-1.raku b/challenge-095/gugod/raku/ch-1.raku
new file mode 100644
index 0000000000..0e9d9626b5
--- /dev/null
+++ b/challenge-095/gugod/raku/ch-1.raku
@@ -0,0 +1,9 @@
+sub MAIN {
+    for (1221, -101, 90) -> $n {
+        say "\nInput: $n\nOutput: " ~ (is-palindrome-number($n) ?? "1" !! "0");
+    }
+}
+
+sub is-palindrome-number (Int $n --> Bool) {
+    return "$n" eq "$n".flip;
+}
diff --git a/challenge-095/gugod/raku/ch-2.raku b/challenge-095/gugod/raku/ch-2.raku
new file mode 100644
index 0000000000..087d432964
--- /dev/null
+++ b/challenge-095/gugod/raku/ch-2.raku
@@ -0,0 +1,27 @@
+class IntStack {
+    has Int @!store;
+
+    method push(Int $n) {
+        @!store.push($n);
+    }
+    method pop(--> Int) {
+        @!store.pop;
+    }
+    method top(--> Int) {
+        @!store.tail;
+    }
+    method min(--> Int) {
+        @!store.min;
+    }
+}
+
+sub MAIN {
+    my $stack = IntStack.new;
+    $stack.push(2);
+    $stack.push(-1);
+    $stack.push(0);
+    $stack.pop;
+    say $stack.top;
+    $stack.push(0);
+    say $stack.min;
+}