diff options
| author | Luis Mochan <mochan@fis.unam.mx> | 2022-12-27 07:30:58 -0600 |
|---|---|---|
| committer | Luis Mochan <mochan@fis.unam.mx> | 2022-12-27 07:30:58 -0600 |
| commit | 1e7c6d15f46ca6982ed95154212e62f7b910f9ad (patch) | |
| tree | 5d4aea6264181463b4674b549c9b734f4d067be4 | |
| parent | ac290ea1f8eeb5c3b3bb73d0f54109143bb15aca (diff) | |
| download | perlweeklychallenge-club-1e7c6d15f46ca6982ed95154212e62f7b910f9ad.tar.gz perlweeklychallenge-club-1e7c6d15f46ca6982ed95154212e62f7b910f9ad.tar.bz2 perlweeklychallenge-club-1e7c6d15f46ca6982ed95154212e62f7b910f9ad.zip | |
Add more conventional solution
| -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); |