Arvorezinha em perl
Como a ultima arvorezinha era muito grande, vai aqui uma versão reduzida da v2!
#!/usr/bin/perl
$i=$ARGV[0];map{$a.=" "x($i-$_-1)."*"x($_*2+1)."\n";$b.=" "x($i/2)."#"x($i%2?$i:$i-1)."\n"if($i-$_+1)%2}(0..$i-1);print$a.$b;
Como a ultima arvorezinha era muito grande, vai aqui uma versão reduzida da v2!
#!/usr/bin/perl
$i=$ARGV[0];map{$a.=" "x($i-$_-1)."*"x($_*2+1)."\n";$b.=" "x($i/2)."#"x($i%2?$i:$i-1)."\n"if($i-$_+1)%2}(0..$i-1);print$a.$b;
widgeon
É mesmo inútil o teu blog :P mas eu gosto