小编Nas*_*oen的帖子

对于作业,我们需要在R画一棵圣诞树.我搜索了互联网,发现了一些有用的建议,但最终,我不知道如何继续,希望有人可以帮助我.

到目前为止这是我的代码.

#ctree: prints a Christmas tree on screen with size N
ctree <- function(N){
for (i in 1:N){
    width = sample("*",i,replace=T)
    cat(width,sep="-","\n")
    }   
cat(width[1],"\n")
}

这让我看到了树的中间和右侧(N = 4),这很棒,但还不够.

*-
*-*-
*-*-*-
*-*-*-*-
*

我计划颠倒我所拥有的(基本上右对齐函数的产品)来创建左侧,随后删除左侧最右边的列并将其与树的右侧粘合在一起,创建一个圣诞树.

我真的希望有人可以帮我实现这个目标!期待您的建议.

提前致谢.