ch-1.raku

1 files changed, 20 insertions, 0 deletions

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