From 803b6bebb1cbaf3187f89720734066172db838df Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Mon, 11 Jan 2021 18:45:33 +0900
Subject: a solution to pwc 095.1

---
 challenge-095/gugod/raku/ch-1.raku | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 challenge-095/gugod/raku/ch-1.raku

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;
+}
-- 
cgit 


From 7201dd2ba4d51b1867781e72700672aff33cf34f Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Mon, 11 Jan 2021 18:51:28 +0900
Subject: a solution to pwc 095.2

---
 challenge-095/gugod/raku/ch-2.raku | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 challenge-095/gugod/raku/ch-2.raku

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;
+}
-- 
cgit 


From 73e376dfc5a5a74f568e29e8b6e16f6c1ed0ed62 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Tue, 12 Jan 2021 09:05:24 +0900
Subject: blog post

---
 challenge-095/gugod/blog.txt | 1 +
 1 file changed, 1 insertion(+)
 create mode 100644 challenge-095/gugod/blog.txt

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/
-- 
cgit 


From 42a264ab86774861bfae9f135c9e4bee7a8e19b8 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Wed, 13 Jan 2021 10:14:03 +0900
Subject: a solution to pwc 095.1 in janet-lang

---
 challenge-095/gugod/janet/ch-1.janet | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 challenge-095/gugod/janet/ch-1.janet

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")))
-- 
cgit