in reply to asterisk pattern

sub la{
    my $n = shift; 
    print ' ' x ( $n - $_ ), '*' x $_ 
        for 1 .. $n, reverse 0 .. $n - 1;
};;

la(3);;
   *
  **
 ***
  **
   *

la(6);;
      *
     **
    ***
   ****
  *****
 ******
  *****
   ****
    ***
     **
      *

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom