challenge-197/arne-sommer/raku/move-zero


1
2
3
4
5
6
7
8
9
10

#! /usr/bin/env raku

unit sub MAIN (*@list where @list.elems > 0 && all(@list) ~~ /^<[0..9]>*$/);

my @non-zero = @list.grep: * != 0;
my @zero     = @list.grep: * == 0;

my @wiggly   = (@non-zero, @zero).flat;

say "(", @wiggly.join(", "), ")";