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