diff options
| -rw-r--r-- | challenge-119/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/challenge-119/mark-anderson/raku/ch-2.raku b/challenge-119/mark-anderson/raku/ch-2.raku index ef7d83b64f..6dd1e679d6 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 +# +# added 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]>+) $ <!{ $0 ~~ /11/ }> /)[$N-1] + (1..*).map(*.base(4)).grep(* !~~ /0||11/)[$N-1] } |