给定一个数字N，如何N使用最少数量的代码字符打印出一棵高度高的圣诞树？ N假定被限制为的最小值3和的最大值30（不需要边界和错误检查）。N作为程序或脚本的唯一命令行参数给出。

感谢所有语言，如果您看到一种已经实现的语言，并且可以将其简化，请尽可能编辑-否则请评论，并希望有人清理混乱。为了清楚起见，包括换行符和空格，但不要在字符数中包括它们。

这样生成一棵圣诞树，其“树干”仅包含居中的“ *”

N = 3：

   *
  ***
 *****
   *

N = 4：

    *
   ***
  *****
 *******
    *

N = 5：

     *
    ***
   *****
  *******
 *********
     *

N定义不包括一个主干的分支的高度。

圣诞快乐PPCG！

J，24个字符

(,{.)(}:@|."1,.])[\'*'$~

   (,{.)(}:@|."1,.])[\'*'$~5
    *    
   ***   
  *****  
 ******* 
*********
    *    

说明：

'*'$~5
*****

[\'*'$~5
*    
**   
***  
**** 
*****

然后}:@|."1反转每一行并剥离最后一列，并将其,.装订到]。

然后,{.将第一列粘贴到底部。

以前的条目：

29个字符，完全没有空格。

   （（（\：i。@＃），}。）“ 1 $＆'*'” 0>：0，〜i.3
  *
 ***
*****
  *
   （（\\ i。@＃），}。）“ 1 $＆'*'” 0>：0，〜i.11
          *
         ***
        *****
       *******
      *********
     ***********
    *************
   ***************
  *****************
 *******************
*********************
          *

   注意 从1到 n 计数，然后再从1计数
   >：0，〜i.3
1 2 3 1
   注意 每次复制“ *” x 次
   $＆'*'“ 0>：0，〜i.3
*
**
***
*
   注意 反转每一行
   （\：i。@＃）“ 1 $＆'*'” 0>：0，〜i.3
  *
 **
***
  *
   注意 去除前导柱
   }。“ 1 $＆'*'” 0>：0，〜i.3

*
**

   注意 粘贴在一起
   （（\\ i。@＃），}。）“ 1 $＆'*'” 0>：0，〜i.3
  *
 ***
*****
  *

Brainfuck，240个字符

              ,
             >++
            +++++
           +[-<---
          --->],[>+
         +++++++[-<-
        ----->]<<[->+
       +++++++++<]>>]<
      [->+>+>>>>>>>+<<<
     <<<<<<]>>>>++++++++
    [-<++++>]>++++++[-<++
   +++++>]+>>>++[-<+++++>]
  <<<<<<[-[>.<-]<[-<+>>+<]<
 [->+<]>>>>>[-<.>>+<]>[-<+>]
>.<<++<<<-<->]>>>>>>>-[-<<<<<
           <.>>>
           >>>]<
           <<<<.

尚未完成。它有效，但仅适用于一位数字。

编辑：完成！适用于使用0作为EOF的口译员。请参阅NOTE带有注释的源中带有-1的s。

再次编辑：我应该注意，因为Brainfuck缺乏读取命令行参数的标准方法，所以我改用了stdin（标准输入）。ASCII，当然。

第三次编辑：亲爱的，似乎我.在压缩代码时剥离了（输出）字符。固定...

这是主循环的基本内存管理。我敢肯定，可以对其进行大幅优化，以减少30个左右的字符数。

1. 临时
2. 柜台副本
3. 计数器（计数为0）
4. 空格字符（十进制32）
5. 星号字符（十进制42）
6. 当前行上的星号数（1 + 2 *计数器）
7. 临时
8. 换行符
9. 临时？
10. 总行数（即输入值；在打印主干时一直存储到最后）

精简版：

,>++++++++[-<------>],[>++++++++[-<------>]<<[->++++++++++<]>>]<[->+>+>>>>>>>+<<<<<<<<<]>>>>++++++++[-<++++>]>++++++[-<+++++++>]+>>>++[-<+++++>]<<<<<<[-[>.<-]<[-<+>>+<]<[->+<]>>>>>[-<.>>+<]>[-<+>]>.<<++<<<-<->]>>>>>>>-[-<<<<<<.>>>>>>]<<<<<.

和漂亮的版本：

ASCII to number
,>
++++++++[-<------>]  = 48 ('0')

Second digit (may be NULL)
,
NOTE:   Add plus sign here if your interpreter uses negative one for EOF
[ NOTE: Then add minus sign here
 >++++++++[-<------>]
 <<[->++++++++++<]>>  Add first digit by tens
]

Duplicate number
<[->+>+>>>>>>>+<<<<<<<<<]>>

Space char
>>++++++++[-<++++>]

Asterisk char
>++++++[-<+++++++>]

Star count
+

New line char
>>>++[-<+++++>]<<<

<<<

Main loop
[
Print leading spaces
-[>.<-]

Undo delete
<[-<+>>+<]
<[->+<]
>>

Print stars
>>>[-<.>>+<]

Add stars and print new line
>[-<+>]
>.<
<++

<<<

-<->
End main loop
]

Print the trunk
>>>>>>>
-[-<<<<<<.>>>>>>]
<<<<<.

Merry Christmas =)

Perl，50个字符

（1个相关空格）

perl：一行版本：

print$"x($a-$_),'*'x($_*2+1),$/for 0..($a=pop)-1,0

现在有了更多的空白：

print $"  x ( $a - $_ ),             #"# Syntax Highlight Hacking Comment
      '*' x ( $_ * 2  + 1),
      $/
for 0 .. ( $a = pop ) - 1, 0;

$ perl tree.pl 3
   *
  ***
 *****
   *
$ perl tree.pl 11
           *
          ***
         *****
        *******
       *********
      ***********
     *************
    ***************
   *****************
  *******************
 *********************
           *
$ 

非Perl用户的扩展说明。

# print $Default_List_Seperator ( a space )  
#     repeated ( $a - $currentloopiterationvalue ) times,
print $" x ( $a - $_ ), 
#"# print '*' repeated( $currentloopiteration * 2 + 1 ) times. 
  '*' x ( $_ * 2  + 1),
# print $Default_input_record_seperator ( a newline )
  $/
# repeat the above code, in a loop, 
#   iterating values 0 to ( n - 1) , and then doing 0 again
for 0 .. ( $a = pop ) - 1, 0;
# prior to loop iteration, set n to the first item popped off the default list, 
#   which in this context is the parameters passed on the command line. 

语言：Python（通过shell），字符数：64（2个有效空间）

python -c "
n=w=$1
s=1
while w:
    print' '*w+'*'*s
    s+=2
    w-=1
print' '*n+'*'"

$ sh ax6 11
           *
          ***
         *****
        *******
       *********
      ***********
     *************
    ***************
   *****************
  *******************
 *********************
           *

x86 asm 16位，50字节

还没有汇编版本？:)

    bits 16
    org 100h

    mov si, 82h
    lodsb
    aaa
    mov cx, ax
    mov dx, 1
    push cx 
    mov al, 20h
    int 29h
    loop $-2
    push dx
    mov al, 2ah
    int 29h
    dec dx
    jnz $-3
    pop dx
    mov al, 0ah
    int 29h
    inc dx
    inc dx
    pop cx
    loop $-23
    shr dx, 1
    xchg cx, dx
    mov al, 20h
    int 29h
    loop $-2
    mov al, 2ah
    int 29h
    ret

（注意：在此版本中，N限于1-9）

G:\>tree 9
         *
        ***
       *****
      *******
     *********
    ***********
   *************
  ***************
 *****************
         *

在这里下载

语言：Windows批处理脚本（令人震惊！）

@echo off
echo Enable delayed environment variable expansion with CMD.EXE /V

rem Branches
for /l %%k in (1,1,%1) do (
set /a A=%1 - %%k
set /a B=2 * %%k - 1
set AA=
for /l %%i in (1,1,!A!) do set "AA=!AA! "
set BB=
for /l %%i in (1,1,!B!) do set BB=*!BB!
echo !AA!!BB!
)

rem Trunk
set /a A=%1 - 1
set AA=
for /l %%i in (1,1,!A!) do set "AA=!AA! "
echo !AA!*

Ruby，64个字节

n=ARGV[0].to_i
((1..n).to_a+[1]).each{|i|puts' '*(n-i)+'*'*(2*i-1)}

n=$*[0].to_i
((1..n).to_a<<1).each{|i|puts' '*(n-i)+'*'*(2*i-1)}

祝大家圣诞快乐！

编辑：根据约书亚·斯威克（Joshua Swink）的建议进行了改进

语言：C＃，字符数：120

static void Main(string[] a)
{
    int h = int.Parse(a[0]);

    for (int n = 1; n < h + 2; n++)
        Console.WriteLine(n <= h ?
            new String('*', n * 2 - 1).PadLeft(h + n) :
            "*".PadLeft(h + 1));
    }
}

仅代码，不格式化（120个字符）：

int h=int.Parse(a[0]);for(int n=1;n<h+2;n++)Console.WriteLine(n<=h?new String('*',n*2-1).PadLeft(h+n):"*".PadLeft(h+1));

109个字符的版本（仅代码）：

for(int i=1,n=int.Parse(a[0]);i<n+2;i++)Console.WriteLine(new String('*',(i*2-1)%(n*2)).PadLeft((n+(i-1)%n)));

高度= 10的结果：

          *
         ***
        *****
       *******
      *********
     ***********
    *************
   ***************
  *****************
 *******************
          *

语言：dc（通过外壳）字符数：83

直流版本短一点：

dc -e '?d1rdsv[d32r[[rdPr1-d0<a]dsaxszsz]dsbx1-rd42rlbx2+r10Plv1-dsv0<c]dscxszsz32rlbx[*]p' <<<$1

编辑：将常量10更改为$ 1

python，“-c”技巧... @ 61个字符（一行）

python -c"for i in range($1)+[0]:print' '*($1-i)+'*'*(2*i+1)"

这是一个节省空间的Haskell版本，共有107个字符：

main=interact$(\g->unlines$map(\a->replicate(g-a)' '++replicate(a*2-1)'*')$[1..g]++[1]).(read::[Char]->Int)

运行它：

$ echo 6 | runhaskell tree.hs
     *
    ***
   *****
  *******
 *********
***********
     *

圣诞快乐，所有:)

语言：dc（通过外壳），字符数：119（1个有效空间）

只是为了它的晦涩:)

dc -e "$1dsnsm"'
[[ ]n]ss
[[*]n]st
[[
]n]sl
[s2s1[l2xl11-ds10<T]dsTx]sR
[lndlslRxlcdltlRxllx2+sc1-dsn0<M]sM
1sclMxlmlslRxltxllx
'

$ sh ax3 10
          *
         ***
        *****
       *******
      *********
     ***********
    *************
   ***************
  *****************
 *******************
          *

更好的C ++，大约210个字符：

#include <iostream>
using namespace std;
ostream& ChristmasTree(ostream& os, int height) {
    for (int i = 1; i <= height; ++i) {
        os << string(height-i, ' ') << string(2*i-1, '*') << endl;
    }
    os << string(height-1, ' ') << '*' << endl;
    return os;
}

最小化为179：

#include <iostream>
using namespace std;ostream& xmas(ostream&o,int h){for(int i=1;i<=h;++i){o<<string(h-i,' ')<<string(2*i-1,'*')<<endl;}o<<string(h-1,' ')<<'*'<<endl;return o;}

语言：python，没有技巧，78个字符

import sys
n=int(sys.argv[1])
for i in range(n)+[0]:print' '*(n-i)+'*'*(2*i+1)

Groovy 62B

n=args[0]as Long;[*n..1,n].any{println' '*it+'*'*(n-~n-it*2)}

_

n = args[0] as Long
[*n..1, n].any{ println ' '*it + '*'*(n - ~n - it*2) }

改善ΤζΩΤζΙΟΥ的答案。我无法发表评论，所以这是新帖子。72个字符。

import sys
n=int(sys.argv[1])
for i in range(n)+[0]:
   print ("*"*(2*i+1)).center(2*n)

使用“ python -c”技巧，共有61个字符。

python -c "
for i in range($1)+[0]:
   print ('*'*(2*i+1)).center(2*$1)
"

我了解了中心函数，并且“ python -c”可以接受多个行代码。谢谢，谢谢。

使用Linq的C＃：

    using System;
    using System.Linq;
    class Program
        {
            static void Main(string[] args)
            {
                int n = int.Parse(args[0]);
                int i=0;
                Console.Write("{0}\n{1}", string.Join("\n", 
                   new int[n].Select(r => new string('*',i * 2 + 1)
                   .PadLeft(n+i++)).ToArray()),"*".PadLeft(n));
            }
       }

170个字符。

int n=int.Parse(a[0]);int i=0;Console.Write("{0}\n{1}",string.Join("\n",Enumerable.Repeat(0,n).Select(r=>new string('*',i*2+1).PadLeft(n+i++)).ToArray()),"*".PadLeft(n));

AWK，一行上有86个字符。

awk '{s="#";for(i=0;i<$1;i++){printf"%"$1-i"s%s\n","",s;s=s"##"}printf"%"$1"s#\n",""}'

echo "8" | awk '{s="#";for(i=0;i<$1;i++){printf"%"$1-i"s%s\n","",s;s=s"##"}printf"%"$1"s#\n",""}'
        #
       ###
      #####
     #######
    #########
   ###########
  #############
 ###############
        #

cat tree.txt
3
5

awk '{s="#";for(i=0;i<$1;i++){printf"%"$1-i"s%s\n","",s;s=s"##"}printf"%"$1"s#\n",""}' tree.txt
   #
  ###
 #####
   #
     #
    ###
   #####
  #######
 #########
     #

语言：Java，字符数：219

class T{ /* 219 characters */
  public static void main(String[] v){
    int n=new Integer(v[0]);
    String o="";
    for(int r=1;r<=n;++r){
      for(int s=n-r;s-->0;)o+=' ';
      for(int s=1;s<2*r;++s)o+='*';
      o+="%n";}
    while(n-->1)o+=' ';
    System.out.printf(o+"*%n");}}

作为参考，我能够使用递归将以前的Java解决方案（从以前的最少269个字符减少到231个字符）进行剃毛。尽管更长一点，但我还是喜欢这种解决方案，因为T它确实是面向对象的。您可以创建一个随机大小的T实例的小森林。这是该方法的最新进展：

class T{ /* 231 characters */
  public static void main(String[] v){new T(new Integer(v[0]));}}
  String o="";
  T(int n){
    for(int r=1;r<=n;++r){
      x(' ',n-r);x('*',2*r-1);o+="%n";}
    x(' ',n-1);
    System.out.printf(o+"*%n");
  }
  void x(char c,int x){if(x>0){o+=c;x(c,x-1);}
 }

语言：PowerShell，字符数：41（包括1个空格）

1..$args[0]+1|%{" "*(30-$_)+"*"*($_*2-1)}

dyalog APL为21个字符。

m,⍨⌽0 1↓m←↑'*'\¨⍨1,⍨⍳

⍳给出一个从1开始的整数向量。

1，⍨在向量的末尾添加一个。这将是树的脚。

'*'\¨⍨给出一个*字符串向量，其长度由前一个向量给定。

↑将向量转换为矩阵，并在右侧添加空格。

m←将矩阵存储在m中。

0 1↓删除零行和第一列。

s反转矩阵。

m，⍨在右侧与m连接。

语言：C，字符数：133

C版本的改进。

char s[61];

l(a,b){printf("% *.*s\n",a,b,s);}

main(int i,char**a){
  int n=atoi(a[1]);memset(s,42,61);
  for(i=0;i<n;i++)l(i+n,i*2+1);l(n,1);
}

起作用，甚至以树的高度作为参数。需要可以容忍K＆R风格代码的编译器。

我现在感觉很脏。这是丑陋的代码。

R（62个字节）

我还没有看到R解决方案。如果我错过了，请纠正我。

for(i in c(1:N,1))cat(rep(" ",N-i),rep("*",2*i-1),"\n",sep="")

输出：

> N <- 3
> for(i in c(1:N,1))cat(rep(" ",N-i),rep("*",2*i-1),"\n",sep="")
  *
 ***
*****
  *
> 
> N <- 4
> for(i in c(1:N,1))cat(rep(" ",N-i),rep("*",2*i-1),"\n",sep="")
   *
  ***
 *****
*******
   *
> 
> N <- 5
> for(i in c(1:N,1))cat(rep(" ",N-i),rep("*",2*i-1),"\n",sep="")
    *
   ***
  *****
 *******
*********
    *

语言：C，字符数：176（2个相关空格）

#include <stdio.h>
#define P(x,y,z) for(x=0;x++<y-1;)printf(z);
main(int c,char **v){int i,j,n=atoi(v[1]);for(i=0;i<n;i++){P(j,n-i," ")P(j,2*i+2,"*")printf("\n");}P(i,n," ")printf("*\n");}

Shell版本，134个字符：

#!/bin/sh
declare -i n=$1
s="*"
for (( i=0; i<$n; i++ )); do
    printf "%$(($n+$i))s\n" "$s"
    s+="**"
done
printf "%$(($n))s\n" "*"

语言：Python，有效字符数：90

很难看，但是可以用：

import sys
n=int(sys.argv[1])
print"\n".join(" "*(n-r-1)+"*"*(r*2+1)for r in range(n)+[0])

...

$ python tree.py 13
            *
           ***
          *****
         *******
        *********
       ***********
      *************
     ***************
    *****************
   *******************
  *********************
 ***********************
*************************
            *

由于这是CW：我不喜欢代码高尔夫球总是以“字符数”之类来组织的。难道不能按照针对编译器/解释器的指令数量（或类似标准）来组织它们吗？这又是Ruby解决方案，基本上是相同的，但现在也供人类使用：

SPACE = " "
ASTERISK = "*"
height_of_tree=ARGV[0].to_i
tree_lines = (1..height_of_tree).to_a
tree_lines.push 1 # trunk
tree_lines.each do | line |
   spaces_before = SPACE*(height_of_tree-line)
   asterisks = ASTERISK*(2*line-1) 
   puts spaces_before + asterisks
end

木炭，9字节（无竞争）

Ｇ↗↘←Ｎ*Ｍ↓*

在线尝试！

详细

Polygon(:UpRight, :DownRight, :Left, InputNumber(), "*")
Move(:Down)
Print("*")

在线尝试！

果冻，12字节

R”*ẋz⁶ṚŒBṁ‘Y

在线尝试！

PHP，111个字符

（最后一个字符应该是换行符。）

<?php $n=$argv[1];for($r='str_repeat';$i<$n;$i++)echo $r(' ',$n-$i).$r('*',$i*2+1)."\n";echo $r(' ',$n).'*' ?>

可读版本：

<?php

$n = $argv[1];

for ($r = 'str_repeat'; $i < $n; $i++)
    echo $r(' ', $n - $i) . $r('*' , $i * 2 + 1) . "\n";

echo $r(' ', $n) . '*'

?>