Jak narysować topniejące sople

23

Rzeźbiarz ma za zadanie stworzyć rzeźby z lodu w nowym muzeum na Grenlandii. Jego szef otrzymał specyfikacje, które składają się z dwóch liczb: [s, m] lub rozmiaru i topnienia. Rozmiar musi być liczbą nieparzystą. Dostał kilka zdjęć prawdziwych sopli:

vvvvv [5, 0]
 vvv 
  v


vvvvvvv [7, 0]
 vvvvv 
  vvv
   v


vvvvvvv [7, 2]
 vvvvv 



vvvvvvv [7, 3]




vvv [3, 1]

On potrzebuje programu, który pomoże rysować. Dowolny język dozwolony. Program musi przyjmować S i M, dowolna metoda wprowadzania danych jest możliwa do zaakceptowania. Następnie musisz wydrukować jego reprezentację w stylu ascii.

S to ile vs jest na pierwszej warstwie. M to liczba warstw wyciętych z dołu.

To jest , więc jak zwykle ta konkurencja jest oparta na bajtach . Białe znaki liczą się do liczenia bajtów. Najmniej bajtów wygrywa.

Edycja: Nigdy nie otrzymasz zestawu liczb, które nic nie rysują, na przykład [5, 3]. Sprawdzanie kodu nie jest jednak wymagane.

mniamasta
źródło
Mówisz, że białe znaki się liczą , ale w przykładach niektóre linie mają końcowe spacje. Czy to jest dozwolone?
Luis Mendo,

Odpowiedzi:

8

05AB1E , 11 bajtów

;-Ý·¹+'v×.c

;-          Compute x = Input[1]-Input[0]/2  (e.g. 7,2 -> -1.5)
  Ý         Push [0, ..., x]                 (e.g. 7,2 -> [0, -1])
   ·        Multiply each value by 2         (e.g. 7,2 -> [0, -2])
    ¹+      Add Input[0] to each value       (e.g. 7,2 -> [7, 5])
      'v×   String multiply by 'v'
         .c Center all strings and implicitly display them  

Wypróbuj online!

Osable
źródło
1
Dobra robota, fasola @ 12 bajtów Adnana w 05AB1E !!
yummypasta
2
@yummypasta dobrze, myślę, że jego nick nie jest zbiegiem okoliczności :)
Bacco
Dzięki! Adnan i Emigna zwykle pomagają mi bardziej niż wtedy. I masz rację, mój pseudonim jest dość związany z 05AB1E;).
Osable
16

V , 15 bajtów

Àévò^lYp2x>òÀñd

Wypróbuj online!

Dość bezpośredni.

À               " Arg1 times:
 év             "   Insert a 'v'
   ò       ò    " Recursively:
    ^l          "   Break if there is only one character on this line
      Y         "   Yank this line
       p        "   Paste it below us
        2x      "   Delete two characters
          >     "   Indent this line
            À   " Arg2 times:
             ñd "   Delete a line
DJMcMayhem
źródło
5
Myślę, że V wygrywa za „najbardziej nieprzenikniony język”.
Nissa,
1
debugowanie tego języka wygląda przyjemnie
BlueWizard,
4
Kod źródłowy wygląda jak jakiś wygenerowany losowo skrót. Mógłbym użyć go jako bezpiecznego hasła.
totymedli
8
Podoba mi się, że istnieje język o nazwie V, który może rozwiązać ten problem.
djechlin
9

05AB1E , 12 bajtów

Kod:

ÅÉ'v×R²F¨}.c

Wyjaśnienie:

ÅÉ             # List of uneven numbers: [1, 3, 5, ..., input]
  'v×          # String multiply by 'v', giving ['v', 'vvv', 'vvvvv', ...]
     R         # Reverse the array
      ²F }     # Second input times, do...
        ¨      #   Remove the first element of the array
          .c   # Centralize the array

Wykorzystuje kodowanie CP-1252 . Wypróbuj online!

Adnan
źródło
;-Ý·¹+'v×.czaoszczędziłby jeden bajt
Osable
@Osable to nie jest zupełnie inna odpowiedź?
djechlin
Dobra uwaga, naprawdę nie wiem, ponieważ za tymi odpowiedziami nie ma dużego algorytmu. W razie potrzeby opublikuję ją jako kolejną odpowiedź.
Osable
1
@Osable Nice find! Myślę, że powinieneś ująć to jako inną odpowiedź, ponieważ jest bardzo różna od tej.
Adnan
7

MATL , 22 bajty

'v'itQ2/i-wX"R2&PRZ{Zv

Wypróbuj online!

Wyjaśnienie

'v'   % Push character 'v'
it    % Input first number. Duplicate
Q2/   % Add 1 and divide by 2
i-    % Input second number. Subtract
w     % Swap
X"    % Char matrix of 'v' repeated those many times along each dim
R     % Upper triangular part
2&P   % Flip horizontally
R     % Upper triangular part
Z{    % Split char matrix along first dimension into a cell array of strings 
Zv    % Remove trailing spaces from each string. Implicitly display
Luis Mendo
źródło
6

Galaretka , 19 bajtów

Rm-2”vẋµLḶ⁶ẋżðḣL_¥Y

TryItOnline!

W jaki sposób?

Rm-2”vẋµLḶ⁶ẋżðḣL_¥Y - Main link: s, m
       µ            - monadic chain separation
R                   - range(s)  [1,2,3,...s]
 m-2                - mod -2    [s,s-2,s-4,...,1]
    ”v              - 'v'
      ẋ             - repeat    ['v'*s,...,'vvv','v']  (call this y)
             ð      - dyadic chain separation
        L           - length, effectively (s+1)/2
         Ḷ          - lowered range [0,1,2,...length-1]
          ⁶         - ' '
           ẋ        - repeat ['', ' ', ... ' '*(length-1)]
            ż       - zip with y
                 ¥  - last two links as a dyad
               L    -     length
                _   -     subtract m
              ḣ     - head
                  Y - join with line feeds
                    - implicit print
Jonathan Allan
źródło
Podoba mi się ten łańcuch długości i długości w środku ;-)
ETHproductions
Tak, J’(zakres zmniejszonej długości) również miałby ten sam efekt, ale nie ma obniżonej wersji Ji LḶjest to trochę urocze :)
Jonathan Allan
5

Partia, 142 bajty

@set/ah=%1-%2-%2
@set s=v
@for /l %%i in (3,2,%1)do @call set s=%%s%%vv
@for /l %%i in (1,2,%h%)do @call echo %%s%%&call set s= %%s:~0,-2%%
Neil
źródło
5

Rubinowy, 46 44 bajtów

->s,m{0.upto(s/2-m){|i|puts' '*i+?v*s;s-=2}}

2 bajty zapisane dzięki GB

Level River St
źródło
putsnie wymaga spacji
GB,
1
I możesz uratować jeszcze jedną postać, zmniejszając s: zamiast ?v*(s-2*i)używać?v*s;s-=2
GB
4

Python, 76 73 bajtów

def f(s,m):print"\n".join([' '*(s/2-i/2)+'V'*i for i in range(s,m*2,-2)])

Edycja: Zapisano 3 bajty dzięki @TuukkaX i @ Challenger5 (Dzięki!)

nephi12
źródło
2
Po tym printnastępuje bezużyteczna
biała
1
Dlaczego nie skorzystać z lambda? lambda s,m:"\n".join([' '*(s/2-i/2)+'V'*i for i in range(s,m*2,-2)])
0WJYxW9FMN
1
Możesz umieścić kod funkcji bezpośrednio po def f(s,m):, oszczędzając dwa bajty.
Esolanging Fruit
@ J843136028 Jest to ta sama liczba bajtów: def f()7 lambda to 7. z końcówką Challenger5, def jest w rzeczywistości krótszy. przynajmniej tak myślę :)
nephi12,
@nephi Ale usuwasz również print, więc jest o 4 znaki krótszy ( lambda s,m:"\n".join(...)), ponieważ w lambdazasadzie ma niejawny zwrot.
Artyer
3

JavaScript (ES6), 57 bajtów

f=(s,m,p=``)=>s<m+m?``:p+`v`.repeat(s)+`
`+f(s-2,m,p+` `)

Generuje końcowy znak nowej linii. Jeśli wiodący nowy wiersz jest akceptowalny, to dla 54 bajtów:

f=(s,m,p=`
`)=>s<m+m?``:p+`v`.repeat(s)+f(s-2,m,p+` `)
Neil
źródło
3

Python 2, 63 bajty

lambda s,m:'\n'.join((s-x)/2*' '+x*'v'for x in range(s,m*2,-2))
TFeld
źródło
3

Turtlèd , 53 bajty

@v?,:l[v,l][ [ l]rr[ d,ur]ld' l]?<:d[ [ u]d[ ' d]luu]

Wypróbuj online!

Wyjaśnienie:

@v,           set char var to v, write it to cell

   ?:l        take positive int input, move that many character right, move 1 left

      [v,l]   move left back to the v, writing v on all the cells it goes on

           [                   ]                      until the current cell is a space

             [ l]    move left until finding a space
                 rr  move two right

                   [     ]  until cell is a space
                     d,ur   move down, write v, move up and right


                          ld' l    move left, down, write space

                                [end of big loop]


                                  [that part made the "icicle", the next melts some]




                                ?<:    
           Take integer input again,
           rotate counterclockwise, move that number right (now up the icicle)

                                    d      move down
                                     [               ] until cell is space
                                       [ u]d   up until space is found, down 1
                                            [ ' d]  until space is found, write space to cell and move down
                                                  luu    move left, up, up
                                                   [end loop]
Zniszczalna cytryna
źródło
2

Java, 138 137 bajtów

void m(int l,int r){int f=l;do{String v="";for(int i=0;i++<l;v+="v");if(l/2<r)break;System.out.printf("%"+f--+"s%n",v);l-=2;}while(l>0);}

Nie golfowany:

void m(int l, int r) {
    int f = l;
    do {
        String v = "";
        for (int i = 0; i++ < l; v += "v");
        if (l / 2 < r) break;
        System.out.printf("%" + f-- + "s%n", v);
        l -= 2;
    } while (l > 0);
}

Aktualizacja: Jeden bajt i ciało pętli zniknęły dzięki @ClaytonRamsey.

Eugene
źródło
Możesz zmniejszyć o jeden bajt, jeśli przepiszesz pętlę for jak (int i = 0; i ++ <l; v + = "v");
Clayton Ramsey
1

C, 83 bajty

i,j;f(s,m){for(i=-1;i++<s/2-m;)for(j=-1;++j<=s;)putchar(j<s?j>=i&&s-j>i?86:32:10);}

Niegolfowane i użytkowanie:

i,j;
f(s,m){
  for(i=-1;i++<s/2-m;)
    for(j=-1;++j<=s;)
      putchar(j<s ?
                j>=i&&s-j>i ? 86 : 32
                : 10);
}


main() {

  f(5,0);
  f(7,0);
  f(7,2);
  f(7,3);
  f(3,1);

}
Karl Napf
źródło
1

Pyth, 21 bajtów

j<E.e+*kd*hyb\v_Uh/Q2

Program, który pobiera dane, Spo których następujeM rozdzielenie znakiem nowej linii i wypisuje wynik.

Zestaw testowy

Jak to działa

j<E.e+*kd*hyb\v_Uh/Q2  Program. Inputs: Q, E
                  /Q2  Yield Q // 2
                 h      + 1
                U      Yield [0, 1, 2, ..., Q //2 +1]
               _       Reverse
   .e                  Map over with elements as b and zero-indexed indices as k:
           yb           2 * b
          h              + 1
         *   \v          "v" characters
     +                  prepended with
       k                k
      * d                spaces
 <E                    All but the last E elements
j                      Join on newlines
                       Implicitly print
TheBikingViking
źródło