diff options
| -rwxr-xr-x | challenge-176/2colours/raku/ch-1.raku | 4 | ||||
| -rwxr-xr-x | challenge-176/2colours/raku/ch-2.raku | 11 |
2 files changed, 15 insertions, 0 deletions
diff --git a/challenge-176/2colours/raku/ch-1.raku b/challenge-176/2colours/raku/ch-1.raku new file mode 100755 index 0000000000..4714b6c64d --- /dev/null +++ b/challenge-176/2colours/raku/ch-1.raku @@ -0,0 +1,4 @@ +#!/usr/bin/env raku + + +(1 .. *).first({ $_ <<*<< (1 .. 6) andthen .map(*.comb.List) andthen [(==)] $_ }).say; diff --git a/challenge-176/2colours/raku/ch-2.raku b/challenge-176/2colours/raku/ch-2.raku new file mode 100755 index 0000000000..0f46b349fe --- /dev/null +++ b/challenge-176/2colours/raku/ch-2.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku + +sub reversible(Int $n) { + $n + $n.comb.reverse.join andthen + .comb.none %% 2 +} + +(1 ..^ 100) + .grep: &reversible andthen + .join: ', ' andthen + .say; |
