From 2a697a8247142bf75ea6672f88ea7aa7d86a606c Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 28 Jun 2021 15:54:38 +0200 Subject: Task 2 done --- challenge-119/luca-ferrari/raku/ch-2.p6 | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 challenge-119/luca-ferrari/raku/ch-2.p6 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; +} -- cgit