Merge branch 'manwar:master' into master

120 files changed, 5753 insertions, 1944 deletions

diff --git a/challenge-196/mohammad-anwar/perl/ch-2.pl b/challenge-196/mohammad-anwar/perl/ch-2.pl
new file mode 100644
index 0000000000..3b0b339e73
--- /dev/null
+++ b/challenge-196/mohammad-anwar/perl/ch-2.pl
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+
+=head1
+
+Week 196:
+
+    https://theweeklychallenge.org/blog/perl-weekly-challenge-196
+
+Task #2: Range List
+
+    You are given a sorted unique integer array, @array.
+
+    Write a script to find all possible Number Range i.e [x, y]
+    represent range all integers from x and y (both inclusive).
+
+=cut
+
+use v5.36;
+use Test2::V0;
+
+is range_list(1,3,4,5,7),       [[3,5]],             'Example 1';
+is range_list(1,2,3,6,7,9),     [[1,3],[6,7]],       'Example 2';
+is range_list(0,1,2,4,5,6,8,9), [[0,2],[4,6],[8,9]], 'Example 3';
+
+done_testing;
+
+#
+#
+# METHOD
+
+sub range_list(@list) {
+    my $start = shift @list;
+    my $curr  = $start;
+    my @range = ();
+
+    foreach my $next (@list) {
+        next if ($next == $curr);
+        if ($next == $curr + 1) {
+            $curr = $next;
+        }
+        else {
+            push @range, [$start, $curr]
+                if ($curr > $start);
+            $curr = $start = $next;
+        }
+    }
+
+    push @range, [$start, $curr]
+        if ($curr > $start);
+
+    return \@range;
+}
diff --git a/challenge-196/wambash/raku/ch-1.raku b/challenge-196/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..cd867a9c2c
--- /dev/null
+++ b/challenge-196/wambash/raku/ch-1