Arvorezinha - Perl
Já que avançámos para linguagens mais normais e para demonstrar que o python suga, segue o meu one liner em perl.
david@tokyo ~ $ perl -l arvorezinha.pl
*
**
***
****
*****
david@tokyo ~ $ cat arvorezinha.pl
for (1..5){print "*"x$_;}
david@tokyo ~ $ wc -c arvorezinha.pl
O “-l” põe automaticamente o carriage return no fim de cada linha.
Bem-haja!
Sem comentários a “Arvorezinha - Perl”