diff options
| -rw-r--r-- | challenge-119/luca-ferrari/blog-1.txt | 1 | ||||
| -rw-r--r-- | challenge-119/luca-ferrari/blog-2.txt | 1 | ||||
| -rw-r--r-- | challenge-119/luca-ferrari/raku/ch-1.p6 | 20 | ||||
| -rw-r--r-- | challenge-119/luca-ferrari/raku/ch-2.p6 | 17 |
4 files changed, 39 insertions, 0 deletions
diff --git a/challenge-119/luca-ferrari/blog-1.txt b/challenge-119/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..21dd90aa88 --- /dev/null +++ b/challenge-119/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/06/28/PerlWeeklyChallenge119.html#task1 diff --git a/challenge-119/luca-ferrari/blog-2.txt b/challenge-119/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..15c5632c26 --- /dev/null +++ b/challenge-119/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/06/28/PerlWeeklyChallenge119.html#task2 diff --git a/challenge-119/luca-ferrari/raku/ch-1.p6 b/challenge-119/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..2d8d1b200c --- /dev/null +++ b/challenge-119/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,20 @@ +#!raku + + +sub MAIN( Int $N where { $N < 256 && $N >= 0 } ) { + + # create an 8 digits binary string + '%08d'.sprintf( $N.base( 2 ) ) + # separate each digit into an array + .split( '', :skip-empty ) + # rotate by four elements + .rotate( 4 ) + # recombine + .join + # reparse as binary + .Str + .parse-base( 2 ) + # and print + .say; + +} 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; +} |