7 lines
72 B
Perl
7 lines
72 B
Perl
|
foreach (1..5) {
|
||
|
|
foreach (1..$_) {
|
||
|
|
print '*';
|
||
|
|
}
|
||
|
|
print "\n";
|
||
|
|
}
|