in reply to asterisk pattern

print <<PATTERN;
  *
 **
***
 **
  *
PATTERN

[download]
True laziness is hard work

Replies are listed 'Best First'.
Re^2: asterisk pattern
by JavaFan (Canon) on Oct 27, 2011 at 14:54 UTC
    But he wants it in a loop! So, I propose: 
    do {1;} until print <<"*";
  *
 **
***
 **
  *
*

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom