diff options
| -rw-r--r-- | challenge-052/mark-anderson/raku/ch-1.p6 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-052/mark-anderson/raku/ch-1.p6 b/challenge-052/mark-anderson/raku/ch-1.p6 new file mode 100644 index 0000000000..1bbc8648fe --- /dev/null +++ b/challenge-052/mark-anderson/raku/ch-1.p6 @@ -0,0 +1,13 @@ +#!/usr/bin/env raku + +# I learned about polymod from Kevin Colyer's ch-2.p6 solution last week. +# I like that method for splitting up the number into its digits. + +sub MAIN($num1, $num2 where $num1 >= 100 < $num2 <= 999) { + for ($num1..$num2) -> $num { + my @digits = (+$num).polymod(10,10); + if (([-] @digits[0,1]).abs == ([-] @digits[1,2]).abs == 1) { + say $num; + } + } +} |