Mais um blog inútil.

Viva,

Para celebrarem o Carnaval em força, e também porque me deram acesso ;) resolvi trazer-vos uma implementação da arvorezinha em R.
Para quem não sabe, e deixando de lado pormenores técnicos que não interessam nem ao menino jesus, R foi criado por um Cavalheiro no cu do mundo. Sim, na Nova Zelândia!

Apraz-me dizer que R é aprovada pelo RMS, pelo que o seu uso não interfere com a liberdade das pessoas.

Sem mais delonga deixem-me brindar-vos com a minha implementação.

littletree <- function(len) {
 for(i in 1:len) {
 y <- rep(' ',len-i)
 z <- paste(c(y, rep('*',(2*i)-1)), sep="", collapse = "")
 print(z)
 }

 lll <- (len * 2) - 1;
 empty <- ifelse(len %% 2 == 0, (lll/4)+1, (lll/4))
 stern <- ifelse(len %% 2 == 0, (lll/2), (lll/2)+1)
 for(x in 1:as.integer(len/2)) {
 y <- rep(' ', empty)
 z <- paste(c(y, rep('#',stern)), sep="", collapse = "")
 print(z)
 }
}

Como ver uma arvorezinha?

• Instalar o R (O, pois refiro-me ao ambiente e não à linguagem de programação)
• Fazer source da função.
• Executar a função, passando como parâmetro a altura.

Nota: A implementação tem um bug quando a árvore tem altura 1. Fica para o caro leitor como exercício a sua correção.

Muito obrigado e um grande bem haja!