Data commit

Task/Floyds-triangle/Perl/floyds-triangle.pl

@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+sub displayFloydTriangle {
+  my $numRows = shift;
+  print "\ndisplaying a $numRows row Floyd's triangle:\n\n";
+  my $maxVal = int($numRows * ($numRows + 1) / 2); # calculate the max value.
+  my $digit = 0;
+  foreach my $row (1 .. $numRows) {
+    my $col = 0;
+    my $output = '';
+    foreach (1 .. $row) {
+      ++$digit;
+      ++$col;
+      my $colMaxDigit = $maxVal - $numRows + $col;
+      $output .= sprintf " %*d", length($colMaxDigit), $digit;
+    }
+    print "$output\n";
+  }
+  return;
+}
+
+# ==== Main ================================================
+my @counts;
+@counts = @ARGV;
+@counts = (5, 14) unless @ARGV;
+
+foreach my $count (@counts) {
+  displayFloydTriangle($count);
+}
+
+0;
+__END__