ภรรยาของฉันเป็นอย่างมากโดยเฉพาะอย่างยิ่งเมื่อมันมาถึงการใส่เครื่องประดับบนต้นคริสต์มาสของเรา ให้เธอได้รหัสเพื่อช่วยเธอในเวลานี้ลอง

อินพุต

ให้2 < n < 10ความสูงของต้นไม้และ0 < k < nจำนวนเครื่องประดับที่แตกต่างกัน

งาน

ตกแต่งต้นไม้ที่เริ่มต้นด้วย1และเพิ่มขึ้นในkขณะที่เราห่อเครื่องประดับรอบ ๆ ต้นไม้ ถ้าเราไปถึงkและเรามีสาขาให้ตกแต่งมากขึ้นจากนั้นเริ่มต้น1ใหม่

มันก็โอเคถ้าเครื่องประดับแต่ละชิ้นมีจำนวนไม่เท่ากันบนต้นไม้ตราบใดที่รูปแบบพอใจ

เครื่องประดับควรปรากฏขึ้นเหนือแต่ละสาขา^ยกเว้นแถวบนสุด

ต้นไม้มีโครงสร้างโดยเริ่มต้นจากหนึ่งสาขาจากนั้นระดับถัดไปจะมี +1 สาขาด้วยช่องว่างระหว่างกันโดยแยกจากด้านบนดังนี้:

 ^
^ ^

สำหรับแถวที่สามคุณจะต้องเพิ่มอีกหนึ่งสาขาและซวนเซพวกเขาอีกครั้งโดยที่ไม่มีสาขาอยู่ในคอลัมน์เดียวกัน (ถ้าคุณคิดว่ามันเหมือนกริด)

  ^
 ^ ^
^ ^ ^

เอาท์พุต

เอาท์พุทต้นไม้ที่ตกแต่งของคุณ

ตัวอย่าง

1

n = 3, k = 2

  ^      //Height is 3
 ^ ^
^ ^ ^

ตอนนี้เราตกแต่งแต่ละสาขาโดยเริ่มจาก 1 และเพิ่มเป็น k:

  ^
 1 2
 ^ ^
1 2 1
^ ^ ^

2

n = 6, k = 5

     ^    //Non-Decorated
    ^ ^
   ^ ^ ^
  ^ ^ ^ ^
 ^ ^ ^ ^ ^
^ ^ ^ ^ ^ ^

     ^    //Decorated
    1 2
    ^ ^
   3 4 5
   ^ ^ ^
  1 2 3 4
  ^ ^ ^ ^
 5 1 2 3 4
 ^ ^ ^ ^ ^
5 1 2 3 4 5
^ ^ ^ ^ ^ ^

3

n = 5, k = 1

    ^
   ^ ^
  ^ ^ ^
 ^ ^ ^ ^
^ ^ ^ ^ ^

    ^
   1 1
   ^ ^
  1 1 1
  ^ ^ ^
 1 1 1 1
 ^ ^ ^ ^
1 1 1 1 1
^ ^ ^ ^ ^

นี่คือรหัส - กอล์ฟเพื่อให้ได้รหัสที่สั้นที่สุดชนะ! ขอให้สนุกและโชคดี!

C # 226 221 ไบต์

บันทึก 5 ไบต์ด้วย @Mukul Kumar และ @aloisdg

แข็งแรงเล่นกอล์ฟ:

string C(int n,int k){string o="",x;int j=1,i=1,m;for(;i<=n;i++){o+=string.Concat(Enumerable.Repeat("^ ",i)).PadLeft(n+i)+"\n";m=0;x="";if(i<n){while(m<i+1){if(j>k)j=1;x+=j+++" ";m++;}o+=x.PadLeft(n+i+1)+"\n";}}return o;}

Ungolfed:

public string C(int n, int k, WifeMode wifeMode = WifeMode.Maniacal)
{
  string o = "",x;
  int j = 1,i=1,m;

  for (; i <= n; i++)
  {
    o += string.Concat(Enumerable.Repeat("^ ", i)).PadLeft(n+i) + "\n";

    m = 0;
    x = "";

    if (i < n)
    {
      while (m < i + 1)
      {
        if (j > k) j = 1;
        x += j++ + " ";
        m++;
      }

      o += x.PadLeft(n + i + 1) + "\n";
    }
  }

  return o;
}

การทดสอบ:

Console.Write(new ChristmasTreeDecorating().C(20, 9));

                   ^ 
                  1 2 
                  ^ ^ 
                 3 4 5 
                 ^ ^ ^ 
                6 7 8 9 
                ^ ^ ^ ^ 
               1 2 3 4 5 
               ^ ^ ^ ^ ^ 
              6 7 8 9 1 2 
              ^ ^ ^ ^ ^ ^ 
             3 4 5 6 7 8 9 
             ^ ^ ^ ^ ^ ^ ^ 
            1 2 3 4 5 6 7 8 
            ^ ^ ^ ^ ^ ^ ^ ^ 
           9 1 2 3 4 5 6 7 8 
           ^ ^ ^ ^ ^ ^ ^ ^ ^ 
          9 1 2 3 4 5 6 7 8 9 
          ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
         1 2 3 4 5 6 7 8 9 1 2 
         ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
        3 4 5 6 7 8 9 1 2 3 4 5 
        ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
       6 7 8 9 1 2 3 4 5 6 7 8 9 
       ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
      1 2 3 4 5 6 7 8 9 1 2 3 4 5 
      ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
     6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 
     ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
    3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 
    ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
   1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 
   ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
  9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 
  ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 
 ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 
^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^

แก้ไข: ฉันมีการส่งนักแสดงintไปที่ConsoleColor... เป็นฤดูกาล :)

MerryChristmas.gif

05AB1E ,29 27 24 ไบต์

บันทึกสามไบต์ด้วย Adnan!

>GN„^ ×NÝNLO<+²%>ðý}\».c

>G                       For N in [1, ..., input[0]]
  N„^ ×                  Push a string of "^ " N times
       NÝ                Push [0, ..., N]
         NLO<            Compute the decoration offset, sum([1, ..., N])-1
             +           Add the offset value to each array cell
              ²%         Modulo input[1]
                >        Add 1 so that it is in range [1, k] instead of [0, k-1]
                 ðý      Join with spaces, now we have a string with the full decoration for the current layer
                   }     End for
                    \    Remove the last decoration
                     »   Join everything with newlines
                      .c Center all and implicitly display

ลองออนไลน์!

JavaScript (ES6), 97 ไบต์

ดูเหมือนว่าภรรยาของคุณเป็นคนคลั่งไคล้จริง ๆดังนั้นจึงไม่รวมถึงการขึ้นบรรทัดใหม่หรือการต่อท้ายใด ๆ หรือพื้นที่ชั้นนำหรือต่อท้าย :-)

f=(n,k,x,s=`^
`)=>n--?(p=' '.repeat(n)+s,x?p.replace(/\^/g,_=>x++%k+1)+p:p)+f(n,k,x||k,'^ '+s):''

การสาธิต

f=(n,k,x,s=`^
`)=>n--?(p=' '.repeat(n)+s,x?p.replace(/\^/g,_=>x++%k+1)+p:p)+f(n,k,x||k,'^ '+s):''

console.log(f(6, 5))

C ++ 214 - 13 - 3 - 1 -1 - 10 = 186 ไบต์

แข็งแรงเล่นกอล์ฟ

#define s std::cout<<
int f(int n,int k){int N=++n,K=0,i=0,I;for(;i<n;i++,N--){for(I=N;I--;)s' ';for(I=0;I++<i&&i-1;)s' '<<(K++%k)+1;s'\n';for(I=N;I--;)s' ';for(I=0;I++<i;)s" ^";s'\n';}}  

ขอบคุณ @ cyoce สำหรับการบันทึก 1 ไบต์
ขอบคุณ @ conor ที่จะตัดมันลงไปที่ 186!

Ungolfed + copy & compile

#include<iostream>
#include<conio.h>

#define s(a) std::cout<<a;

int main()
{
    int n,N,k,K=0,i,I;
    std::cin>>n>>k;
    N=++n;
    for(i=0;i<n;i++,N--)
    {
        for(I=N;I--;)

            s(' ')

        for(I=0;I<i&&i-1;I++)

            s(' '<<(K++%k)+1)

        s('\n')

        for(I=N;I;I--)

            s(' ')

        for(I=0;I<i;I++)

            s(" ^")

        s('\n')

    }
    getch();//or any func to pause the console
}  

Python 2, 133 ไบต์

n,k=input()
d=-1
j=' '.join
for i in range(1,n+1):s=' '*(n-i);print(['',s+j(`x%k+1`for x in range(d,d+i))+'\n'][i>1]+s+j('^'*i));d+=i

Clojure 223 ไบต์

การเล่นกอล์ฟครั้งแรกของฉันกับ Clojure:

(let[r repeat](defn d[n k](apply str(concat(r(dec n)\ )"^\n"(flatten(for[i(range 2(inc n))m[nil true]](concat(r(- n i)\ )(butlast(interleave(if m(r\^)(rest(iterate #(inc(mod % k))(dec(/(* i(dec i))2)))))(r i\ )))"\n")))))))

เมื่อถูกเรียกเหมือนขึ้น(println (str "\n" (d 6 5)))บรรทัดใหม่ทำให้ nicer บน REPL:

     ^
    1 2
    ^ ^
   3 4 5
   ^ ^ ^
  1 2 3 4
  ^ ^ ^ ^
 5 1 2 3 4
 ^ ^ ^ ^ ^
5 1 2 3 4 5
^ ^ ^ ^ ^ ^

ยกเลิกแข็งแรงเล่นกอล์ฟ:

(defn tree-row [n k index mode]
  (concat
    (repeat (- n index) \ ) ; Left padding
    (butlast ; Removing trailing space
      (interleave
        ; Either printing carets or numbers...
        (if mode
          (repeat \^)
          ; Using "rest" as the iteration starts from a large value
          ; from which the modulo has not been calculated yet.
          (rest (iterate #(inc (mod % k)) (dec (/ (* index (dec index)) 2)))))
        ; ...and interleaved with spaces
        (repeat index \ )))
    "\n"))

(defn decorate [n k]
  (apply str (concat
               (repeat (dec n) \ ) "^\n"
               (flatten (for [index (range 2 (inc n)) mode [nil true]]
                          (tree-row n k index mode))))))

ฉันมีปัญหาบางอย่างกับลำดับที่ขี้เกียจและรายการที่ซ้อนกัน แต่ฉันสามารถบันทึกอักขระบางตัวได้โดยไม่ทำซ้ำrepeat;) และใช้\^อักขระแทน"^"สตริง ฉันยังสามารถออกไปหลายที่แปลกใจ

Ruby 107 ไบต์

t=->(n,k){d=[*1..k]*n*n;o=0;(1..n).each{|b|s=' '*(n-b);b>1&&(puts(s+d[o,b].join(' '));o+=b);puts s+'^ '*b}}

เรียกว่าแบบนี้

t.call(5,4)

เอาท์พุท:

    ^
   1 2
   ^ ^
  3 4 1
  ^ ^ ^
 2 3 4 1
 ^ ^ ^ ^
2 3 4 1 2
^ ^ ^ ^ ^

C, 170 ไบต์

i=0;d,j,l;t(n,k){char s[20],r[20];d=k-2;l=n;for(;i++<n;){for(j=0;j<l;++j)s[j]=r[j]=32;for(j=n-i;j<l;j+=2){s[j]=94;r[j]=(++d%k)+49;}s[l]=r[l++]=0;if(i-1)puts(r);puts(s);}}

โทรด้วย:

int main()
{
   t(5,4);
}

เป็นโบนัสนี่คือไบนารีเวอร์ชัน 4 บิต:

m=0;b(n,k){char*a="000100100011010001010110011110001001";char s[20],r[20];d=k*4-2;l=n;for(;m++<n;){for(j=0;j<l;++j)s[j]=r[j]=32;for(j=n-m;j<l;j+=2){s[j]=94;r[j]=a[++d%(k*4)];}s[l]=r[l++]=0;if(m-1)puts(r);puts(s);}}