diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2022-12-27 09:11:50 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2022-12-27 09:11:50 +0100 |
| commit | c22de68f0b4b07034ac2ed02fce5a6df04508c89 (patch) | |
| tree | ff727c6182a7cbea9b27afdee44a097190bcb807 | |
| parent | 63fb76188e132564e50feefd2d9d5b8491568948 (diff) | |
| download | perlweeklychallenge-club-c22de68f0b4b07034ac2ed02fce5a6df04508c89.tar.gz perlweeklychallenge-club-c22de68f0b4b07034ac2ed02fce5a6df04508c89.tar.bz2 perlweeklychallenge-club-c22de68f0b4b07034ac2ed02fce5a6df04508c89.zip | |
Task 1 done
| -rw-r--r-- | challenge-197/luca-ferrari/raku/ch-1.p6 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-197/luca-ferrari/raku/ch-1.p6 b/challenge-197/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..2bf7eb3e3c --- /dev/null +++ b/challenge-197/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,9 @@ +#!raku + +# Perl Weekly Challenge 197 + +sub MAIN( *@list where { @list.grep( * ~~ Int ).elems == @list.elems } ) { + my ( @swapped ); + @swapped = | @list.grep( * !~~ 0 ), | @list.grep( * ~~ 0 ); + @swapped.join( ',' ).say; +} |