From 949855271e37cc7472b5d54e5a491c323f9f1b00 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Tue, 12 Jan 2021 09:24:28 -0700
Subject: ch-1.raku

---
 challenge-095/mark-anderson/raku/ch-1.raku | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 challenge-095/mark-anderson/raku/ch-1.raku

diff --git a/challenge-095/mark-anderson/raku/ch-1.raku b/challenge-095/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..8f3d310dff
--- /dev/null
+++ b/challenge-095/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+multi MAIN 
+{
+    use Test;
+
+    ok palindrome(1221) == 1, "Example 1";
+    ok palindrome(-101) == 0, "Example 2";
+    ok palindrome(90)   == 0, "Example 3";
+}
+ 
+multi MAIN(Str $N where $N ~~ Int) 
+{
+    say palindrome($N);
+}
+
+sub palindrome(Int:D $N) 
+{
+    .Int given $N eq $N.flip;
+}
-- 
cgit