Pomóż mojej szalonej żonie udekorować naszą choinkę

36

Moja żona jest bardzo, powiedzmy, szczególnie, jeśli chodzi o nakładanie ozdób na naszą choinkę. Dajmy jej kod, który pomoże jej w tym trudnym czasie.

Wkład

Biorąc pod uwagę 2 < n < 10wysokość drzewa i 0 < k < nwyraźną liczbę ozdób.

Zadanie

Udekoruj drzewo, zaczynając od 1i zwiększając k, owijając ozdoby wokół drzewa. Jeśli dotrzemy ki będziemy mieć więcej gałęzi do dekoracji, zacznij od nowa 1.

Nie ma problemu, jeśli na drzewie nie ma takiej samej liczby ozdób, o ile wzór jest spełniony.

Ozdoby powinny pojawiać się nad każdą gałęzią, ^z wyjątkiem górnego rzędu.

Drzewo ma strukturę zaczynającą się od jednej gałęzi, następnie następny poziom ma + 1 gałęzie ze spacją między nimi, przesuniętą od góry jak:

 ^
^ ^

W trzecim rzędzie dodajesz jeszcze jedną gałąź i ustawiasz je ponownie tak, aby żadna gałąź nie była w tej samej kolumnie (jeśli myślisz o niej jak o siatce).

  ^
 ^ ^
^ ^ ^

Wydajność

Wyjmij ozdobione drzewo.

Przykłady

1.

n = 3, k = 2

  ^      //Height is 3
 ^ ^
^ ^ ^

Teraz dekorujemy każdą gałąź zaczynając od 1 i zwiększając do 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
^ ^ ^ ^ ^

To jest więc wygrywa najkrótszy kod! Baw się dobrze i powodzenia!

jacksonecac
źródło
dopuszczalne odstępy po każdej linii?
Mukul Kumar,
1
@MukulKumar nie Powinien zachować powyższą strukturę.
jacksonecac
Czy możemy założyć, że k jest mniejsze niż 10? Albo jak wyrównać liczby?
Luis Mendo,
2
@LuisMendo Tak założyć <10 dobry punkt
jacksonecac

Odpowiedzi:

47

C # 226 221 bajtów

Zaoszczędź 5 bajtów dzięki @Mukul Kumar i @aloisdg

Gra w golfa:

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;}

Nie golfowany:

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;
}

Testowanie:

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 
^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^

Edycja: Miałem casting intdo ConsoleColor... Tegorocznego sezonu :)

wprowadź opis zdjęcia tutaj

MerryChristmas.gif

wprowadź opis zdjęcia tutaj

Pete Arden
źródło
3
Możesz złożyć i=1deklarację int i usunąć ją ze swojej forpętli ...
Mukul Kumar,
1
Możesz zamienić „\ r \ n” na „\ n”. Będzie działał dobrze z rdzeniem i mono.
aloisdg mówi Przywróć Monikę
8
Dobrze widzieć C#odpowiedź, która zyskuje trochę miłości.
Michael McGriff,
@aloisdg Thanks :)
Pete Arden
1
@jacksonecac Cieszę się, że ci się podobało. Nie mogłem się oprzeć, gdy pomysł wpadł mi do głowy :)
Pete Arden,
14

05AB1E ,29 27 24 bajty

Zaoszczędzono trzy bajty dzięki 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

Wypróbuj online!

Osable
źródło
2
Myślę, że można zastąpić NN>*;przez NLO.
Adnan
Oczywiście! To zabawne, ponieważ faktycznie N*(N+1)/2celowo użyłem sumy kolejnych liczb całkowitych, zaczynając od 1, ale zupełnie zapomniałem, że 05AB1E ma do tego wbudowane. Dzięki!
Osable,
2
Czy potrzebujesz ïteraz tej części: p?
Adnan,
1
Nie sądzę ^^.
Osable,
12

JavaScript (ES6), 97 bajtów

Wygląda na to, że twoja żona naprawdę jest maniakalna, więc nie obejmuje to żadnej wiodącej lub końcowej nowej linii ani żadnej wiodącej lub końcowej przestrzeni. :-)

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):''

Próbny

Arnauld
źródło
8

C ++ 214–13–3–1–1–10 = 186 bajtów

grał w golfa

#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';}}  

Dzięki @ cyoce za uratowanie 1 bajtu.
Dzięki @ Conor do krojenia w dół do 186!

Ungolfed + kopiuj i kompiluj

#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
}  
Mukul Kumar
źródło
w końcu <200 ...
Mukul Kumar
1
Czy możesz później usunąć przestrzeń #define s(a)?
Cyoce,
@Cyoce dzięki! Nie wiedziałam o tym!!!
Mukul Kumar,
2
186 bajtów , zmieniając definicję #define s std::cout<<i wprowadzając odpowiednie zmiany.
Conor O'Brien,
Woaa ... to miło .. nigdy nie przyszło mi do głowy: p
Mukul Kumar
3

Python 2, 133 bajty

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
TFeld
źródło
2

Clojure, 223 bajty

Moja pierwsza gra w golfa z 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")))))))

Po wywołaniu jak (println (str "\n" (d 6 5)))nowa linia sprawia, że ​​jest przyjemniej na REPL:

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

Bez golfa:

(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))))))

Miałem pewne problemy z leniwymi sekwencjami i zagnieżdżonymi listami, ale byłem w stanie zapisać niektóre znaki, nie powtarzając repeat;) i używając \^znaków zamiast "^"ciągów znaków. Mogłem też pominąć zaskakująco wiele miejsc.

NikoNyrh
źródło
Ładna pierwsza odpowiedź, witamy na stronie!
DJMcMayhem
1

Ruby 107 bajtów

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}}

Tak się nazywa

t.call(5,4)

Wydajność:

    ^
   1 2
   ^ ^
  3 4 1
  ^ ^ ^
 2 3 4 1
 ^ ^ ^ ^
2 3 4 1 2
^ ^ ^ ^ ^
Neil Slater
źródło
1

C, 170 bajtów

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);}}

Zadzwoń z:

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

Jako bonus, oto 4-bitowa wersja binarna:

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);}}
Steadybox
źródło