Challenge 197 by Jaldhar H. Vyas.

5 files changed, 83 insertions, 0 deletions

diff --git a/challenge-197/jaldhar-h-vyas/blog.txt b/challenge-197/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..f27c3fa767
--- /dev/null
+++ b/challenge-197/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2023/01/perl_weekly_challenge_week_197.html
\ No newline at end of file
diff --git a/challenge-197/jaldhar-h-vyas/perl/ch-1.pl b/challenge-197/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..9b1972dce1
--- /dev/null
+++ b/challenge-197/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+my @list = @ARGV;
+my @zeros;
+my @numbers;
+
+for my $i (@list) {
+    if ($i == 0) {
+        push @zeros, $i;
+    } else {
+        push @numbers, $i;
+    }
+}
+
+push @numbers, @zeros;
+say q{(}, (join q{, }, @numbers), q{)};
diff --git a/challenge-197/jaldhar-h-vyas/perl/ch-2.pl b/challenge-197/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..2e0872a2b5
--- /dev/null
+++ b/challenge-197/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+my @list = sort { $a <=> $b } @ARGV;
+my $mid = scalar @list / 2;
+my @sorted;
+my $odd = scalar @list % 2 == 1;
+
+if ($odd) {
+    push @sorted, $list[$mid];
+}
+
+for my $i (0 .. $mid - 1) {
+    if ($odd) {
+        push @sorted, $list[scalar @list - $i - 1], $list[$i];
+    } else {
+        push @sorted, $list[$i], $list[scalar @list - $i - 1];
+    }
+}
+
+say q{(}, (join q{,}, @sorted), q{)};
diff --git a/challenge-197/jaldhar-h-vyas/raku/ch-1.raku b/challenge-197/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..1f3cb1a323
--- /dev/null
+++ b/challenge-197/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@list
+) {
+    my @zeros;
+    my @numbers;
+
+    for @list -> $i {
+        if $i == 0 {
+            @zeros.push($i)
+        } else {
+            @numbers.push($i)
+        }
+    }
+
+    say q{(}, @numbers.push(| @zeros).join(q{, }), q{)};
+}
\ No newline at end of file
diff --git a/challenge-197/jaldhar-h-vyas/raku/ch-2.raku b/challenge-197/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..a506d06cfa
--- /dev/null
+++ b/challenge-197/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,24 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@list
+) {
+    @list = @list.sort({ $^a <=> $^b });
+    my $mid = @list.elems div 2;
+    my @sorted;
+    my $odd = @list.elems % 2 == 1;
+
+    if $odd {
+        @sorted.push(@list[$mid]);
+    }
+
+    for 0 ..^ $mid -> $i {
+        if $odd {
+            @sorted.push(@list[@list.end - $i], @list[$i]);
+        } else {
+            @sorted.push(@list[$i], @list[@list.end - $i]);
+        }
+    }
+
+    say q{(}, @sorted.join(q{,}), q{)};
+}
\ No newline at end of file