Arvorezinha em perl
Já que tamos numa de fazer arvorezinhas, aqui vai o meu one liner em perl
$i=1;while($i <=5 ) {print '*' x $i++ . "\n";}
Já que tamos numa de fazer arvorezinhas, aqui vai o meu one liner em perl
$i=1;while($i <=5 ) {print '*' x $i++ . "\n";}
fixe
print(("*"x$_)."\n") for (1..5);