diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-06-30 13:10:58 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-06-30 13:10:58 +0100 |
| commit | cedd7c3c1470e14f619aef8a3295044a8ce3b065 (patch) | |
| tree | d293e4dec2236d6046a06edfac043243b8080ecb | |
| parent | c583ee7a8c24328494b4c6fcdc73b2451c2dc484 (diff) | |
| parent | 0c7e8ca95bc0bdc6e00f710107ecb8447d8edc22 (diff) | |
| download | perlweeklychallenge-club-cedd7c3c1470e14f619aef8a3295044a8ce3b065.tar.gz perlweeklychallenge-club-cedd7c3c1470e14f619aef8a3295044a8ce3b065.tar.bz2 perlweeklychallenge-club-cedd7c3c1470e14f619aef8a3295044a8ce3b065.zip | |
Merge pull request #4385 from andemark/branch-for-challenge-119
Branch for challenge 119
| -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] } |