7 lines
102 B
Perl
7 lines
102 B
Perl
|
for(my $x = 1; $x <= 5; $x++) {
|
||
|
|
for(my $y = 1; $y <= $x; $y++) {
|
||
|
|
print "*";
|
||
|
|
}
|
||
|
|
print "\n";
|
||
|
|
}
|