Merge pull request #4930 from adamcrussell/challenge-131

Perl solution for challenge 131

1 files changed, 43 insertions, 0 deletions

diff --git a/challenge-131/adam-russell/perl/ch-1.pl b/challenge-131/adam-russell/perl/ch-1.pl
new file mode 100644
index 0000000000..284534287e
--- /dev/null
+++ b/challenge-131/adam-russell/perl/ch-1.pl
@@ -0,0 +1,43 @@
+use strict;
+use warnings;
+##
+# You are given a sorted list of unique positive integers.
+# Write a script to return list of arrays where the arrays 
+# are consecutive integers.
+##
+use Data::Dump q/pp/;
+
+sub consecutive_arrays{
+    my @arrays=([]);
+    my $a = 0;
+    my $x = shift;
+    {
+        if(!@{$arrays[$a]}){
+            push @{$arrays[$a]}, $x;
+        }
+        else{
+            my $y = $arrays[$a]->[@{$arrays[$a]} - 1];
+            if($x == $y + 1){
+                push @{$arrays[$a]}, $x;
+            }
+            else{
+                push @arrays, [$x];
+                $a+=1;
+            }
+        }
+        $x = shift;
+        redo if $x;
+    }
+    return @arrays;
+}
+
+MAIN:{
+    print pp consecutive_arrays(1, 2, 3, 6, 7, 8, 9);
+    print "\n";
+    print pp consecutive_arrays(11, 12, 14, 17, 18, 19);
+    print "\n";
+    print pp consecutive_arrays(2, 4, 6, 8);
+    print "\n";
+    print pp consecutive_arrays(1, 2, 3, 4, 5);
+    print "\n";
+}
\ No newline at end of file