aboutsummaryrefslogtreecommitdiff
path: root/challenge-197/arne-sommer/raku/move-zero
blob: ecacb70367802698c75d252e62b362315fe5f2bf (plain)
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(", "), ")";