Merge pull request #902 from ndelucca/challenge-033/ndelucca

challenge-033/ndelucca

1 files changed, 71 insertions, 0 deletions

diff --git a/challenge-033/ndelucca/perl5/ch-2-recursive.pl b/challenge-033/ndelucca/perl5/ch-2-recursive.pl
new file mode 100644
index 0000000000..1c681b191d
--- /dev/null
+++ b/challenge-033/ndelucca/perl5/ch-2-recursive.pl
@@ -0,0 +1,71 @@
+use strict;
+use warnings;
+
+die "Choose a matrix size" unless @ARGV;
+
+my $size = shift @ARGV;
+
+render_matrix($size);
+
+sub render_matrix{
+
+    my $max = $size;
+    my $min = 1;
+    my $w = 1 + length $max**2;
+
+    my $matrix = [];
+    matrix_generator($min,$max,$matrix);
+    $matrix->[0]->[0] = "x";
+
+    print row($w,$matrix->[0]->[0],"|", map { $matrix->[0]->[$_] } ($min..$max));
+    print row($w,"-"x$w,"-"x($w-1)."+", map { "-"x$w } ($min..$max));
+
+    for my $row ($min..$max){
+        print row($w,$matrix->[$row]->[0],"|", map { $matrix->[$row]->[$_] || "" } ($min..$max));
+    }
+}
+
+sub matrix_generator{
+
+    my ($row_c,$max,$matrix) = @_;
+
+    return if $row_c > $max;
+
+    $matrix->[$row_c]->[0] = $row_c;
+
+    row_generator($row_c,$row_c,$max,$matrix);
+
+    $row_c++;
+
+    matrix_generator($row_c,$max,$matrix);
+
+}
+
+sub row_generator{
+
+    my ($row_c,$col_c,$max,$matrix) = @_;
+
+    return if $col_c > $max;
+
+    $matrix->[0]->[$col_c] = $col_c;
+
+    $matrix->[$row_c]->[$col_c] = $col_c*$row_c;
+
+    $col_c++;
+
+    row_generator($row_c,$col_c,$max,$matrix);
+
+}
+
+sub cell{
+    my $width = shift;
+    return sprintf "%".$width."s",shift;
+}
+
+sub row{
+    my $width = shift;
+    my @row = ();
+    push @row, cell($width,$_) foreach (@_);
+    push @row, "\n";
+    return @row;
+}