diff options
| -rw-r--r-- | challenge-095/gugod/raku/ch-1.raku | 9 |
1 files changed, 9 insertions, 0 deletions
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; +} |