diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2023-03-30 10:21:38 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2023-03-30 10:21:38 +0200 |
| commit | dd044a58a3f0703625308eb5ee867b4b270bb598 (patch) | |
| tree | da6e48a53929b6ad3d71c51fa266fc625eb6c7af | |
| parent | 8915a66de2cb2a724aee5e55ddfc15580cfdf1d5 (diff) | |
| download | perlweeklychallenge-club-dd044a58a3f0703625308eb5ee867b4b270bb598.tar.gz perlweeklychallenge-club-dd044a58a3f0703625308eb5ee867b4b270bb598.tar.bz2 perlweeklychallenge-club-dd044a58a3f0703625308eb5ee867b4b270bb598.zip | |
Task 1 done
| -rw-r--r-- | challenge-210/luca-ferrari/raku/ch-1.p6 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/challenge-210/luca-ferrari/raku/ch-1.p6 b/challenge-210/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..65bc083093 --- /dev/null +++ b/challenge-210/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,23 @@ +#!raku + +# +# Perl Weekly Challenge 210 +# Task 1 +# +# See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-210/> +# + +sub MAIN( *@list is copy where { @list.grep( * ~~ Int).elems == @list.elems } ) { + + my @removed; + + for 2 .. @list.max { + next if @removed.grep( * == $_ ); + next if @removed.grep( * == ( $_ + 1 ) ); + next if @removed.grep( * == ( $_ - 1 ) ); + @removed.push: @list.grep( * == $_ ), @list.grep( * == ( $_ + 1 ) ), @list.grep( * == ( $_ - 1 ) ); + } + + @removed.sum.say; +} + |