diff options
| -rw-r--r-- | challenge-073/luca-ferrari/raku/ch-2.p6 | 19 |
1 files changed, 19 insertions, 0 deletions
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; +} |