RosettaCodeData/Task/Loops-For/Perl/loops-for-4.pl
2023-07-01 13:44:08 -04:00

1 line
34 B
Perl

map {print '*' x $_ . "\n"} 1..5;