How to print Hollow Diamond Pattern in Perl

◀ Previous Next ▶

How to print Hollow Diamond Pattern in Perl ?

Answer

To print a Hollow Diamond Pattern in Perl, we use loops and conditional statements to manage spaces and stars.

✐ Examples

1 Print Hollow Diamond Pattern in Perl

In this example,

We define the number of rows for the diamond pattern, assuming it to be 5.
We use nested loops where the outer loop controls the rows and the inner loop manages spaces and stars.
Conditions within the loops determine when to print stars to create the hollow diamond effect.
We use if-else statements to decide whether to print a space or a star at each position in the pattern.
The outer loop manages the rows of the diamond, incrementing and decrementing based on the midpoint of the diamond.
The inner loop calculates the spaces required to position the stars correctly, ensuring the hollow diamond pattern.

Perl Program

# Print Hollow Diamond Pattern in Perl
use strict;
use warnings;

my $num_rows = 5;

foreach my $row (1..$num_rows) {
    my $pattern = ' ' x ($num_rows - $row);
    if ($row == 1) {
        $pattern .= '*';
    } else {
        $pattern .= '*' . ' ' x (2 * $row - 3) . '*';
    }
    print $pattern . "\n";
}

foreach my $row (reverse(1..($num_rows - 1))) {
    my $pattern = ' ' x ($num_rows - $row);
    if ($row == 1 || $row == $num_rows) {
        $pattern .= '*';
    } else {
        $pattern .= '*' . ' ' x (2 * $row - 3) . '*';
    }
    print $pattern . "\n";
}

Output

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

Summary

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