diff options
| author | Humberto Massa <humbertomassa@gmail.com> | 2022-07-15 13:44:48 -0300 |
|---|---|---|
| committer | Humberto Massa <humbertomassa@gmail.com> | 2022-07-15 13:44:48 -0300 |
| commit | 2dd4592441a9f370268396ef55bd11171e6c8cd9 (patch) | |
| tree | c7a85091ba2c4340095208378f939d9e4a456274 | |
| parent | 6b83acc095e4f60b07d0f4dee6286d77cbc2a734 (diff) | |
| download | perlweeklychallenge-club-2dd4592441a9f370268396ef55bd11171e6c8cd9.tar.gz perlweeklychallenge-club-2dd4592441a9f370268396ef55bd11171e6c8cd9.tar.bz2 perlweeklychallenge-club-2dd4592441a9f370268396ef55bd11171e6c8cd9.zip | |
Answers to challenge 173 by Humberto Massa
| -rw-r--r-- | challenge-173/massa/raku/ch-1.raku | 4 | ||||
| -rw-r--r-- | challenge-173/massa/raku/ch-2.raku | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/challenge-173/massa/raku/ch-1.raku b/challenge-173/massa/raku/ch-1.raku new file mode 100644 index 0000000000..f1a68ab26d --- /dev/null +++ b/challenge-173/massa/raku/ch-1.raku @@ -0,0 +1,4 @@ +use v6; +unit sub MAIN(Int $n); +my sub esthetic-number(Int $n --> Bool) { $n.comb.rotor(2 => -1).map({1 == abs [-] $_}).all.Bool } +say esthetic-number $n diff --git a/challenge-173/massa/raku/ch-2.raku b/challenge-173/massa/raku/ch-2.raku new file mode 100644 index 0000000000..b36eea2eb3 --- /dev/null +++ b/challenge-173/massa/raku/ch-2.raku @@ -0,0 +1,3 @@ +use v6.d; +unit sub MAIN(Int $n = 10); +say (2, 3, * × * + 1 ... *).head: $n |