From 2dd4592441a9f370268396ef55bd11171e6c8cd9 Mon Sep 17 00:00:00 2001 From: Humberto Massa Date: Fri, 15 Jul 2022 13:44:48 -0300 Subject: Answers to challenge 173 by Humberto Massa --- challenge-173/massa/raku/ch-1.raku | 4 ++++ challenge-173/massa/raku/ch-2.raku | 3 +++ 2 files changed, 7 insertions(+) create mode 100644 challenge-173/massa/raku/ch-1.raku create mode 100644 challenge-173/massa/raku/ch-2.raku 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 -- cgit