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”;}
Janeiro 11th, 2008 at 13:11
fixe