diff options
| -rw-r--r-- | challenge-119/luca-ferrari/raku/ch-2.p6 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-119/luca-ferrari/raku/ch-2.p6 b/challenge-119/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..9d1606dd27 --- /dev/null +++ b/challenge-119/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,17 @@ +#!raku + + +sub MAIN( Int $N where { $N > 0 } ) { + + my @numbers = lazy gather { + for 1 .. Inf { + next if $_ ~~ / (11)+ /; + next if $_ ~~ / <[04..9]> /; + + take $_; + + } + } + + @numbers[ $N - 1 ].say; +} |
