Merge pull request #6758 from jaldhar/challenge-182

Challenge 182 by Jaldhar H. Vyas.

5 files changed, 94 insertions, 0 deletions

diff --git a/challenge-182/jaldhar-h-vyas/blog.txt b/challenge-182/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..b90c13a482
--- /dev/null
+++ b/challenge-182/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2022/09/perl_weekly_challenge_week_182.html
\ No newline at end of file
diff --git a/challenge-182/jaldhar-h-vyas/perl/ch-1.pl b/challenge-182/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..9e740d2920
--- /dev/null
+++ b/challenge-182/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+my @n = @ARGV;
+unless (@n) {
+    die "Need a list of integers\n";
+}
+
+my $max = "-Inf";
+my $index;
+
+while (my ($key, $value) = each @n) {
+    if ($value > $max)  {
+        $max = $value;
+        $index = $key;
+    }
+}
+
+say $index;
diff --git a/challenge-182/jaldhar-h-vyas/perl/ch-2.pl b/challenge-182/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..aaa12ac056
--- /dev/null
+++ b/challenge-182/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+use English;
+
+sub usage() {
+print <<"-USAGE-";
+Usage:
+  $PROGRAM_NAME [<args> ...]
+
+    [<args> ...]    File paths.
+-USAGE-
+    exit 0;
+}
+
+scalar @ARGV || usage();
+
+if (scalar grep { !/^\// } @ARGV) {
+   usage();
+}
+
+my @paths = map { [ split q{/} ] } reverse sort @ARGV;
+
+my @commonDirectoryPath;
+for my $segment (0 .. scalar @{$paths[0]} - 1) {
+    my $dir = @{$paths[0]}[$segment];
+    if (!scalar grep { !/$dir/ } map { @{$_}[$segment] } @paths) {
+        push @commonDirectoryPath, $dir;
+    } else {
+        last;
+    }
+}
+
+say scalar @commonDirectoryPath > 1 ? join q{/}, @commonDirectoryPath : q{/};
\ No newline at end of file
diff --git a/challenge-182/jaldhar-h-vyas/raku/ch-1.raku b/challenge-182/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..aea9b2aa87
--- /dev/null
+++ b/challenge-182/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@n #= a list of integers
+) {
+    my $max = -∞;
+    my $index;
+
+    for @n.pairs -> $i {
+        if $i.value > $max  {
+            $max = $i.value;
+            $index = $i.key;
+        }
+    }
+
+    say $index;
+}
\ No newline at end of file
diff --git a/challenge-182/jaldhar-h-vyas/raku/ch-2.raku b/challenge-182/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..ebb188941c
--- /dev/null
+++ b/challenge-182/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/perl6
+
+sub MAIN(
+   +@args where { $_.elems && $_.all ~~ /^\// }  #= File paths.
+) {
+    my @paths = @args
+                .sort
+                .reverse
+                .map({ $_.split('/') });
+
+    my @commonDirectoryPath;
+    for 0 ..^ @paths[0].elems -> $segment {
+        my $dir = @paths.first()[$segment];
+        if @paths.map({ $_[$segment] }).all eq $dir {
+            push @commonDirectoryPath, $dir;
+        } else {
+            last;
+        }
+    }
+
+    say @commonDirectoryPath.elems > 1 ?? @commonDirectoryPath.join('/') !! '/';
+}
\ No newline at end of file