How to print Floyd's Trianlge Pattern in Perl

How to print Floyd's Trianlge Pattern in Perl ?

Answer

To print Floyd's Triangle Pattern in Perl, you can use nested loops where the outer loop controls the rows and the inner loop manages the numbers in each row.

✐ Examples

1 Floyd's Triangle Pattern

In this example,

We use a variable n to represent the number of rows in Floyd's triangle.
We initialize a variable num to 1, which represents the starting number for the triangle.
We use two nested loops to print the triangle.
Within each loop, we increment the value of num and print it to form the triangle pattern.

Perl Program

sub print_floyds_triangle {
  my $n = shift;
  my $num = 1;
  for my $i (1..$n) {
    my $row = '';
    for my $j (1..$i) {
      $row .= $num . ' ';
      $num++;
    }
    print "$row\n";
  }
}

print_floyds_triangle(5);

Output

1 
2 3 
4 5 6 
7 8 9 10 
11 12 13 14 15

Summary

In this tutorial, we learned How to print Floyd's Trianlge Pattern in Perl language with well detailed examples.

◀ Previous Next ▶

Perl Tutorials

Perl How-Tos