diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-06-28 15:54:38 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-06-28 15:54:38 +0200 |
| commit | 2a697a8247142bf75ea6672f88ea7aa7d86a606c (patch) | |
| tree | cb65e240d2cec7b7da77482676616420b3c8f513 | |
| parent | 23bc3b117bc1971df65bba67b94415427c5893a9 (diff) | |
| download | perlweeklychallenge-club-2a697a8247142bf75ea6672f88ea7aa7d86a606c.tar.gz perlweeklychallenge-club-2a697a8247142bf75ea6672f88ea7aa7d86a606c.tar.bz2 perlweeklychallenge-club-2a697a8247142bf75ea6672f88ea7aa7d86a606c.zip | |
Task 2 done
| -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; +} |