6 lines
134 B
Perl
6 lines
134 B
Perl
|
for ($rows=5; $rows>=1; $rows--){
|
||
|
|
for ($columns=1; $columns<=$rows; $columns++){
|
||
|
|
printf "*";
|
||
|
|
}
|
||
|
|
print "\n";
|
||
|
|
}
|