From 7ff3c841a5ab9bae81b9748218dfe84cf182833d Mon Sep 17 00:00:00 2001 From: Mark A Date: Tue, 29 Jun 2021 15:49:56 -0600 Subject: added base(4) after looking at other solutions. --- challenge-119/mark-anderson/raku/ch-2.raku | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/challenge-119/mark-anderson/raku/ch-2.raku b/challenge-119/mark-anderson/raku/ch-2.raku index ef7d83b64f..6d2c1cae3c 100644 --- a/challenge-119/mark-anderson/raku/ch-2.raku +++ b/challenge-119/mark-anderson/raku/ch-2.raku @@ -1,5 +1,9 @@ #!/usr/bin/env raku +# +# adding base(4) after looking at other solutions. +# + use Test; plan 3; @@ -9,5 +13,5 @@ is seq(60), 2223; sub seq($N where * > 0) { - (1..*).grep(/ ^ (<[123]>+) $ /)[$N-1] + (1..*).map(*.base(4)).grep(* !~~ /0||11/)[$N-1]; } -- cgit From 0c7e8ca95bc0bdc6e00f710107ecb8447d8edc22 Mon Sep 17 00:00:00 2001 From: Mark A Date: Tue, 29 Jun 2021 15:51:29 -0600 Subject: added base(4) after looking at other solutions. --- challenge-119/mark-anderson/raku/ch-2.raku | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/challenge-119/mark-anderson/raku/ch-2.raku b/challenge-119/mark-anderson/raku/ch-2.raku index 6d2c1cae3c..6dd1e679d6 100644 --- a/challenge-119/mark-anderson/raku/ch-2.raku +++ b/challenge-119/mark-anderson/raku/ch-2.raku @@ -1,7 +1,7 @@ #!/usr/bin/env raku # -# adding base(4) after looking at other solutions. +# added base(4) after looking at other solutions. # use Test; @@ -13,5 +13,5 @@ is seq(60), 2223; sub seq($N where * > 0) { - (1..*).map(*.base(4)).grep(* !~~ /0||11/)[$N-1]; + (1..*).map(*.base(4)).grep(* !~~ /0||11/)[$N-1] } -- cgit