How to print Pascal's Triangle Pattern in Perl

How to print Pascal's Triangle Pattern in Perl ?

Answer

To print Pascal's Triangle Pattern in Perl, you can use nested loops where the outer loop controls the rows and the inner loop calculates the values for each row based on the binomial coefficient formula.

✐ Examples

1 Pascal's Triangle Pattern

In this example,

We use a variable $n to represent the number of rows in Pascal's triangle.
We initialize an array of arrays @pascal to store the triangle values.
We use nested loops to calculate and store the values using the binomial coefficient formula.
We print the triangle values using a formatted output.

Perl Program

sub print_pascals_triangle {
    my ($n) = @_;
    my @pascal;
    for my $i (0..$n-1) {
        for my $j (0..$i) {
            $pascal[$i][$j] = $j == 0 || $j == $i ? 1 : $pascal[$i-1][$j-1] + $pascal[$i-1][$j];
            print $pascal[$i][$j], ' ';
        }
        print "\n";
    }
}

my $rows = 5;
print_pascals_triangle($rows);

Output

Summary

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

◀ Previous Next ▶

Perl Tutorials

Perl How-Tos