How to print Diamond Pattern in Perl

How to print Diamond Pattern in Perl ?

Answer

To print a Diamond Pattern in Perl, we use nested loops. The outer loop controls the rows and the inner loops control the spaces and stars (*) to form the pattern.

✐ Examples

1 Diamond Pattern

In this example,

We define a function printDiamond that takes the desired number of rows n as a parameter.
We use two nested for loops, where the outer loop runs from 1 to n and the inner loops control the spaces and stars in each row.
Within the inner loops, we calculate the number of spaces and stars based on the current row number to form the diamond pattern.

Perl Program

sub printDiamond {
    my ($n) = @_;
    for my $i (1..$n) {
        print ' ' x ($n - $i), '*' x (2 * $i - 1), "\n";
    }
    for my $i (reverse 1..$n-1) {
        print ' ' x ($n - $i), '*' x (2 * $i - 1), "\n";
    }
}

# Example usage
printDiamond(5);

Output

    *
   ***
  *****
 *******
*********
 *******
  *****
   ***
    *

Summary

In this tutorial, we learned How to print Diamond Pattern in Perl language with well detailed examples.

◀ Previous Next ▶

Perl Tutorials

Perl How-Tos