From 1e7c6d15f46ca6982ed95154212e62f7b910f9ad Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Tue, 27 Dec 2022 07:30:58 -0600
Subject: Add more conventional solution

---
 challenge-197/wlmb/perl/ch-1a.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 challenge-197/wlmb/perl/ch-1a.pl

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);
-- 
cgit