diff options
| author | Kang-min Liu <gugod@gugod.org> | 2021-01-11 18:45:33 +0900 |
|---|---|---|
| committer | Kang-min Liu <gugod@gugod.org> | 2021-01-11 18:45:33 +0900 |
| commit | 803b6bebb1cbaf3187f89720734066172db838df (patch) | |
| tree | 2294978c031d4b4f3aaabb164b40fa3a3e3fe4a9 | |
| parent | 89fb47c2ea7c292d6fb590e942d970c92729b79c (diff) | |
| download | perlweeklychallenge-club-803b6bebb1cbaf3187f89720734066172db838df.tar.gz perlweeklychallenge-club-803b6bebb1cbaf3187f89720734066172db838df.tar.bz2 perlweeklychallenge-club-803b6bebb1cbaf3187f89720734066172db838df.zip | |
a solution to pwc 095.1
| -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; +} |