From 6750dc1c85e2796da0b31970e0a64d2585386ac2 Mon Sep 17 00:00:00 2001
From: Jose Luis Perez <jluis@escomposlinux.org>
Date: Wed, 7 Oct 2020 12:26:47 +0200
Subject: base strings 1st iteration

---
 challenge-081/jluis/README       |  1 +
 challenge-081/jluis/perl/ch-1.pl | 53 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 54 insertions(+)
 create mode 100644 challenge-081/jluis/README
 create mode 100644 challenge-081/jluis/perl/ch-1.pl

diff --git a/challenge-081/jluis/README b/challenge-081/jluis/README
new file mode 100644
index 0000000000..ff80e1d3bd
--- /dev/null
+++ b/challenge-081/jluis/README
@@ -0,0 +1 @@
+Solution by jluis
diff --git a/challenge-081/jluis/perl/ch-1.pl b/challenge-081/jluis/perl/ch-1.pl
new file mode 100644
index 0000000000..8549a26895
--- /dev/null
+++ b/challenge-081/jluis/perl/ch-1.pl
@@ -0,0 +1,53 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+sub base { 
+    # bassed on Abigil's prime number regex	
+    # get all base strings of $_[0] 
+    # a base string is one that concateneted 0 or more times can generate 
+    # the original string
+    my $orig = shift;
+    my @bases;
+    my $length = 1;
+    while (1) {
+        last unless $orig =~ /^(.{$length,}?)\1+$/;
+	push @bases,$1;
+	$length = 1+length($1); 
+    }
+    return (@bases,$orig)
+}
+
+sub format_list {
+	my $out = "("; 
+	while (my $val = shift) {
+	    $out .= '"'.$val.'"';
+	    $out .= ',' if defined @_[0];
+        }
+	return "$out)";
+}
+
+sub common_base {
+    my @A = base(shift);
+    my @B = base(shift);
+    my @result;
+    my $AIndex = 0;
+    my $BIndex = 0;
+    while ($AIndex  <= $#A and $BIndex <= $#B) {
+	   if ($A[$AIndex] eq $B[$BIndex]) {
+		   push @result,$A[$AIndex];
+		   $AIndex += 1;
+		   $BIndex += 1;
+		   next;
+	   }
+           last if length($A[$AIndex]) == length($B[$BIndex]);	   
+           if (length($A[$AIndex]) > length($B[$BIndex])) {
+	           $BIndex  += 1;
+           } else {
+		   $AIndex  += 1;
+	   }	   
+    }
+   return @result;
+}
+CORE::say format_list common_base 'aa'x210,'a'x105;
-- 
cgit 


From 347371e27ff3dd862b942ed73a867473b3bedb3a Mon Sep 17 00:00:00 2001
From: Jose Luis Perez <jluis@escomposlinux.org>
Date: Wed, 7 Oct 2020 13:21:05 +0200
Subject: second chalenge done

---
 challenge-081/jluis/perl/ch-2.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 challenge-081/jluis/perl/ch-2.pl

diff --git a/challenge-081/jluis/perl/ch-2.pl b/challenge-081/jluis/perl/ch-2.pl
new file mode 100644
index 0000000000..010b34985f
--- /dev/null
+++ b/challenge-081/jluis/perl/ch-2.pl
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use 5.010;
+
+open(my $input,'<','input') or die "Can't open input: $!";
+
+my %freq;
+while(<$input>){
+	chomp;
+	s/\.|"|\(|\)|,|'s|--/ /g;
+	while (s/\s*(\w+)\s*//) {
+		$freq{$1} = 0 unless defined $freq{$1};
+		$freq{$1} += 1;
+	}
+}
+
+my @results;
+for my $key (sort keys %freq) {
+    $results[$freq{$key}] = "$freq{$key}" unless defined $results[$freq{$key}];
+    $results[$freq{$key}] .= " $key";
+}
+
+defined($_) and say for @results;
-- 
cgit 


From c65c694f21ce314c2a47e9a0bf5b4d3a0c993cb4 Mon Sep 17 00:00:00 2001
From: Jose Luis Perez Diez <jluis@escomposlinux.org>
Date: Wed, 7 Oct 2020 19:35:20 +0200
Subject: Add usage information

---
 challenge-081/jluis/perl/ch-1.pl | 25 +++++++++++++++++++++----
 challenge-081/jluis/perl/ch-2.pl |  9 ++++++++-
 2 files changed, 29 insertions(+), 5 deletions(-)
 mode change 100644 => 100755 challenge-081/jluis/perl/ch-1.pl
 mode change 100644 => 100755 challenge-081/jluis/perl/ch-2.pl

diff --git a/challenge-081/jluis/perl/ch-1.pl b/challenge-081/jluis/perl/ch-1.pl
old mode 100644
new mode 100755
index 8549a26895..0563d11964
--- a/challenge-081/jluis/perl/ch-1.pl
+++ b/challenge-081/jluis/perl/ch-1.pl
@@ -2,12 +2,29 @@
 
 use strict;
 use warnings;
+use 5.010;
+
+if ($#ARGV != 1) {
+   say <<USAGE;
+      
+        Returns the comon base strigs
+        Base strings are those that can generte the original by repetition 
+
+	ch-1.pl "aaaa" "aaaaaaaaaaaa" 
+	
+	returns ("a","aa","aa") the commom bases for the two strings
+USAGE
+   exit;
+} 
+my ($A,$B) = @ARGV;
+
+say format_list( common_base($A,$B) );
 
 sub base { 
-    # bassed on Abigil's prime number regex	
+    # bassed on Abigail's prime number regex	
     # get all base strings of $_[0] 
     # a base string is one that concateneted 0 or more times can generate 
-    # the original string
+    # the original string 
     my $orig = shift;
     my @bases;
     my $length = 1;
@@ -23,7 +40,7 @@ sub format_list {
 	my $out = "("; 
 	while (my $val = shift) {
 	    $out .= '"'.$val.'"';
-	    $out .= ',' if defined @_[0];
+	    $out .= ',' if defined $_[0];
         }
 	return "$out)";
 }
@@ -34,6 +51,7 @@ sub common_base {
     my @result;
     my $AIndex = 0;
     my $BIndex = 0;
+    #Both arrays are ordered by the length of its strings
     while ($AIndex  <= $#A and $BIndex <= $#B) {
 	   if ($A[$AIndex] eq $B[$BIndex]) {
 		   push @result,$A[$AIndex];
@@ -50,4 +68,3 @@ sub common_base {
     }
    return @result;
 }
-CORE::say format_list common_base 'aa'x210,'a'x105;
diff --git a/challenge-081/jluis/perl/ch-2.pl b/challenge-081/jluis/perl/ch-2.pl
old mode 100644
new mode 100755
index 010b34985f..a06a666220
--- a/challenge-081/jluis/perl/ch-2.pl
+++ b/challenge-081/jluis/perl/ch-2.pl
@@ -1,6 +1,13 @@
+#!/usr/bin/env perl 
 use strict;
 use warnings;
 use 5.010;
+say(<<USAGE)  and exit  if @ARGV;
+finds the frequency of all the words of input
+
+ch-2.pl must be called without any parameters it operates on a file caled input on the current dir
+
+USAGE
 
 open(my $input,'<','input') or die "Can't open input: $!";
 
@@ -8,7 +15,7 @@ my %freq;
 while(<$input>){
 	chomp;
 	s/\.|"|\(|\)|,|'s|--/ /g;
-	while (s/\s*(\w+)\s*//) {
+	while (/(\w+)/g) {
 		$freq{$1} = 0 unless defined $freq{$1};
 		$freq{$1} += 1;
 	}
-- 
cgit