Mais um blog inútil.

Janeiro 11, 2008

Arvorezinha em perl

Filed under: Coding,Useless — devnull @ 12:51

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

2 comentários a “Arvorezinha em perl”

  1. Choom diz:

    print(("*"x$_)."\n") for (1..5);

Comentar

widgeon
widgeon
widgeon
widgeon