diff options
| -rwxr-xr-x | challenge-197/wlmb/perl/ch-1a.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-197/wlmb/perl/ch-1a.pl b/challenge-197/wlmb/perl/ch-1a.pl new file mode 100755 index 0000000000..69d0ca3aca --- /dev/null +++ b/challenge-197/wlmb/perl/ch-1a.pl @@ -0,0 +1,13 @@ +#!/usr/bin/env perl +# Perl weekly challenge 197 +# Task 1: Move Zero. Slightly faster +# +# See https://wlmb.github.io/2022/12/26/PWC197/#task-1-move-zero +use v5.36; +say(<<~"FIN"), exit unless @ARGV; + Usage: $0 N1 [N2...] + to move all zeroes among the numbers N1, N2... towards the right, + keeping the order of the rest. + FIN +my $count=0; +say join " ", @ARGV, "->", (grep {$_||++$count;$_} @ARGV), ((0)x$count); |