Merge pull request #7315 from carlos157oliveira/challenge-197

feat: solution to challenge 197

2 files changed, 41 insertions, 0 deletions

diff --git a/challenge-197/carlos-oliveira/perl/ch-1.pl b/challenge-197/carlos-oliveira/perl/ch-1.pl
new file mode 100644
index 0000000000..61e4473855
--- /dev/null
+++ b/challenge-197/carlos-oliveira/perl/ch-1.pl
@@ -0,0 +1,14 @@
+use strict;
+use warnings;
+
+use Data::Dump;
+
+sub moveZero {
+  my @listWithoutZeros = grep { $_ != 0 } @_;
+  return @listWithoutZeros, (0) x (@_ - @listWithoutZeros);
+}
+
+dd moveZero 1, 0, 3, 0, 0, 5;
+dd moveZero 1, 6, 4;
+dd moveZero 0, 1, 0, 2, 0;
+
diff --git a/challenge-197/carlos-oliveira/perl/ch-2.pl b/challenge-197/carlos-oliveira/perl/ch-2.pl
new file mode 100644
index 0000000000..6219c64d9c
--- /dev/null
+++ b/challenge-197/carlos-oliveira/perl/ch-2.pl
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+use 5.36.0;
+use Data::Dump;
+
+
+sub wiggle;
+
+
+dd wiggle 1,5,1,1,6,4;
+dd wiggle 1,3,2,2,3,1;
+dd wiggle 9,8,7,6,5,4,3,2,1;
+
+
+sub wiggle {
+  my $originalLength = @_;
+  @_ = sort @_;
+  my $offset = int @_ / 2;
+  my @pivots = splice @_, -$offset, $offset;
+
+  for my $i ( reverse 1 .. $#_ + ($originalLength % 2 == 0) ) {
+    my $pivot = pop @pivots;
+    splice @_, $i, 0, $pivot;
+  }
+
+  return @_;
+}