diff options
| -rw-r--r-- | challenge-073/luca-ferrari/blog-1.txt | 1 | ||||
| -rw-r--r-- | challenge-073/luca-ferrari/blog-2.txt | 1 | ||||
| -rw-r--r-- | challenge-073/luca-ferrari/raku/ch-1.p6 | 15 | ||||
| -rw-r--r-- | challenge-073/luca-ferrari/raku/ch-2.p6 | 19 |
4 files changed, 36 insertions, 0 deletions
diff --git a/challenge-073/luca-ferrari/blog-1.txt b/challenge-073/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..7847da2989 --- /dev/null +++ b/challenge-073/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2020/08/16/PerlWeeklyChallenge73.html#task1 diff --git a/challenge-073/luca-ferrari/blog-2.txt b/challenge-073/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..8d7d36cee2 --- /dev/null +++ b/challenge-073/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2020/08/16/PerlWeeklyChallenge73.html#task2 diff --git a/challenge-073/luca-ferrari/raku/ch-1.p6 b/challenge-073/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..35d68bbfdc --- /dev/null +++ b/challenge-073/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,15 @@ +#!raku + + +# % raku ch-1.p6 3 1 5 0 2 9 3 7 6 4 8 +# 0,0,0,2,3,3,4,4 +sub MAIN( Int $S where { 0 < $S }, + *@A where { @A.elems > $S } ) { + + my @mins; + for 0 .. ( @A.elems - $S ) { + @mins.push: [min] @A[ $_ ..^ ( $_ + $S ) ]; + } + + @mins.join( ',' ).say; +} diff --git a/challenge-073/luca-ferrari/raku/ch-2.p6 b/challenge-073/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..4787da134c --- /dev/null +++ b/challenge-073/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,19 @@ +#!raku + +# % raku ch-2.p6 7 8 3 12 10 +# 0,7,0,3,3 + + +# % raku ch-2.p6 4 6 5 +# 0,4,4 + + +sub MAIN( *@A where { @A.grep( * ~~ Int ).elems == @A.elems } ) { + my @mins; + for 0 ..^ @A.elems { + my $current-min = $_ == 0 ?? 0 !! [min] @A[ 0 ..^ $_ ]; + @mins.push: $current-min < @A[ $_ ] ?? $current-min !! 0; + } + + @mins.join( ',' ).say; +} |