Проблема

Натхненний попереднім викликом робити щось подібне

З урахуванням позитивного цілого введення nвиведіть форму, що відповідає цій схемі:

вхід n=1:

* *
 *
* *

вхід n=2:

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

вхід n=3:

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

і так далі...

Він має такі властивості:

n*2+1 лінії високі

"руки" nширокі, за винятком випадків, коли вони зливаються

центральна лінія nширока

якщо nрівні лінії вище і нижче центру n*2широкі

якщо nнепарні лінії над і внизу від центру n*2-1широкі

Правила

• Приймаються нові рядки
• Застосовуються стандартні лазівки
• Виграють найкоротші байти
• Вихідним може бути друк або рядок або масив рядків

Правки

• n=0 не потрібно обробляти
• Дозволені пробіли

Вугілля деревне , 13 12 байт

Завдяки @ErikTheOutgolfer за байт

ＦＮ«ＰX⁺*×*Ｉθ→

Спробуйте в Інтернеті!

Це моя перша в історії відповідь деревного вугілля, і я майже впевнений, що це не так добре, як могло б бути, але я подумав, що десь почну.

 ＦＮ«            # For input() (i in range(0,input()))
     Ｐ           # Print
       X          # In an 'X' shape
        ⁺*×*Ｉθ   # '*'+'*'*int(first_input)
               →  # Move the cursor right one

MATL , 16 байт

EQXyG:Y+tP+g42*c

Спробуйте в Інтернеті!

Пояснення

Розглянемо вклад 2як приклад. Вміст стеку показано нижче.

EQ    % Implicitly input n. Push 2*n+1
      %   STACK: 5
Xy    % Identity matrix of that size
      %   STACK: [1 0 0 0 0;
                  0 1 0 0 0;
                  0 0 1 0 0;
                  0 0 0 1 0;
                  0 0 0 0 1]
G:    % Push [1 2 ... n]
      %   STACK: [1 0 0 0 0;
                  0 1 0 0 0;
                  0 0 1 0 0;
                  0 0 0 1 0;
                  0 0 0 0 1],
                 [1 2]
Y+    % 2D convolution, extending size
      %   STACK: [1 2 0 0 0 0;
                  0 1 2 0 0 0;
                  0 0 1 2 0 0;
                  0 0 0 1 2 0;
                  0 0 0 0 1 2]
tP+   % Duplicate, flip vertically, add
      %   STACK: [1 2 0 0 2 1;
                  0 1 2 1 2 0;
                  0 0 1 4 0 0;
                  0 1 2 1 2 0;
                  1 2 0 0 1 2]
g     % Convert to logical
      %   STACK: [1 1 0 0 1 1;
                  0 1 1 1 1 0;
                  0 0 1 1 0 0;
                  0 1 1 1 1 0;
                  1 1 0 0 1 1]
42*   % Multiply by 42.
      %   STACK: [42 42  0  0 42 42;
                   0 42 42 42 42  0;
                   0  0 42 42  0  0;
                   0 42 42 42 42  0;
                  42 42  0  0 42 42]
c     % Convert to char. Char 42 is '*'. Char 0 is displayed as space
      %   STACK: ['**  **';
                  ' **** ';
                  '  **  ';
                  ' **** ';
                  '**  **']

Желе , 15 байт

Ḥ‘Ḷ⁶ẋ;€”*ẋ$»Ṛ$Y

Спробуйте в Інтернеті!

V , 18 17 байт

Збережено байт завдяки вхідному трюку @ DJMcMayhem.

Àé*ÄJÀälÀñ2ÙÀl2x>

Спробуйте в Інтернеті!

Пояснення

Àé*ÄJÀäl

Це вставки [n]*'*'+[n]*' '+[n]*'*'

        Àñ        ' [arg] times
          2Ù      ' Duplicate the current line down twice
            Àl    ' Move right [arg] times
              2x  ' Delete two characters
                > ' Indent this line one space

Кожна ітерація циклу, з якого йде буфер

|**   ***

До

***   ***
 |** ***
***   ***

Де |знаходиться курсор із *під ним

05AB1E , 18 байт

Å4bS{I·ƒDÂ~„ *èJ,À

Спробуйте в Інтернеті!

Пояснення

Приклад для n=2

Å4                   # push a list of 4s with length as the input
                     # STACK: [4,4]
  b                  # convert each to binary
                     # STACK: [100, 100]
   S{                # split into digit list and sort
                     # STACK: [0, 0, 0, 0, 1, 1]
     I·ƒ             # input*2+1 times do
        D            # duplicate top of stack
                     # 1st iteration: [0, 0, 0, 0, 1, 1], [0, 0, 0, 0, 1, 1]
                     # 2nd iteration: [0, 0, 0, 1, 1, 0], [0, 0, 0, 1, 1, 0]
                     # 3rd iteration: [0, 0, 1, 1, 0, 0], [0, 0, 1, 1, 0, 0]
         Â~          # or each item in the duplicate with its reverse
                     # 1st iteration: [0, 0, 0, 0, 1, 1], [1, 1, 0, 0, 1, 1]
                     # 2nd iteration: [0, 0, 0, 1, 1, 0], [0, 1, 1, 1, 1, 0]
                     # 3rd iteration: [0, 0, 1, 1, 0, 0], [0, 0, 1, 1, 0, 0]
           „ *èJ     # use the resulting binary list to index into the string " *"
                     # 1st iteration: [0, 0, 0, 0, 1, 1], "**  **"
                     # 2nd iteration: [0, 0, 0, 1, 1, 0], " **** "
                     # 3rd iteration: [0, 0, 1, 1, 0, 0], "  **  "
                ,    # print
                 À   # rotate list left

V , 23 байти

Àé*ÄJÀälÀñÙãlxx>ñyHæGVp

Спробуйте в Інтернеті!

Hexdump:

00000000: c0e9 2ac4 4ac0 e46c c0f1 d9e3 6c78 783e  ..*.J..l....lxx>
00000010: f179 48e6 4756 70                        .yH.GVp

З будь-якої причини цей виклик значно важчий у V, ніж останній. З моменту нашого загального підходу n разів, зробіть "x" тут не спрацює, ми замість цього побудуємо верхню частину X, скопіюємо її і перевернемо, потім з'єднавши дві частини разом.

Пояснення:

Àé*ÄJÀäl                " Insert ('*' * n) + (' ' * n) + ('*' * n) 
                        " The obvious way would be 'Àé*ÀÁ ÀÁ*', but this 
                        " non-obvious way saves us a byte
        Àñ      ñ       " 'n' times:
          Ù             "   Duplicate this line (below us)
           ãl           "   Move to the center of this line
             xx         "   Delete two characters
               >        "   And indent this line with one space.

Виконання відступу в кінці циклу, дозволяє нам скористатися неявними закінченнями . Це також зручно створювати n + 1 рядків, що є точно верхньою половиною "X". Скажімо, вхід був 4. Тоді в цей момент буфер виглядає приблизно так:

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

І ми на останньому рядку. Тож ми:

                yH      " Copy the whole buffer and move to the first line
                  æG    " Reverse every line
                    Vp  " And paste what we just copied *over* the current
                        " line, deleting it in the process

C #, 139 130 115 байт

-1 байт, створивши рядок і викликавши WriteLine, таким чином зберігаючи чек на новий рядок.
-6 байт завдяки Кевіну та його майстру техніки гольфу!
-2 байти заміною n*3-nна n*2.
-15 байт після того, як Кевін люб'язно вказав мені в правильному напрямку: я можу просто повернути рядок замість того, щоб надрукувати її, таким чином зберегти виклик System.Console.WriteLine(). І деякі інші поради також ...

n=>{var s="";for(int i,j=0;j<=n*2;j++,s+='\n')for(i=0;i<n*3;)s+=i>=j&i<j+n|i<=n*3-j-1&i++>=n*2-j?'*':' ';return s;}

Спробуйте в Інтернеті!

Безголівки:

class Program
{
    static void Main(string[] args)
    {
        System.Func<int, string> g = n =>
        {
            var s = "";
            for (int i, j = 0; j <= n*2; j++, s += '\n')
                for (i = 0; i < n*3;)
                    s += i >= j & i < j+n | i <= n*3-j-1 & i++ >= n*2-j ? '*' : ' ';
            return s;
        };

        System.Console.Write(f(1));
        System.Console.Write(f(2));
        System.Console.Write(f(3));
        System.Console.Write(f(5));
        System.Console.Write(f(8));

        System.Console.ReadKey();
    }
}

Він просто ітералізує уздовж рядків і стовпців місця, необхідного для друку великого X, і друкує або a, '*'або ' 'залежно від умови.

Haskell , 88 87 86 байт

-1 завдяки @Laikoni

(!)=replicate
x n=[zipWith max(reverse m)m|m<-[i!' '++n!'*'++(n*2-i)!' '|i<-[0..n*2]]]

Спробуйте в Інтернеті!

Желе , 24 23 16 байт

Ḥ‘Ḷ⁸+þṬ+Ṛ$a”*o⁶Y

Спробуйте в Інтернеті!

MATLAB, 153 126 байт (17,6% ↓)

Завдяки @ коментар LuisMendo, в функції disp()може виводити символи без одинарних лапок, таким чином , я міг би запобігти використанню fprintfзformats і пропустити кілька байт. Крім того, його коментар нагадує мені, що мені потрібно використовувати char(32)простір, а не char(0)(null).

n=input('')
r=2*n+1
c=3*n
a=0
for i=0:n-1
a=a+[zeros(r,i),diag(1:r),zeros(r,c-r-i)];
end
a((a+flipud(a))>0)=10
disp([a+32 ''])

Спробуйте в Інтернеті!

MATLAB, 153 байти

n=input('')
r=2*n+1
c=3*n
a=0
for i=0:n-1 
a=a+[zeros(r,i),diag(1:r),zeros(r,c-r-i)];
end
a((a+flipud(a))>0)=42
fprintf([repmat('%c',1,c),'\n'],char(a)')

Приклад результату: n = 10

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

Пітон 2 , 93 90 89 83 байт

^{-3 байти завдяки Leaky Nun
-1 байт завдяки Zachary T
-6 байт завдяки xnor}

n=input()
x=n*'*'+n*'  '
exec"print`map(max,x,x[::-1])`[2::5];x=' '+x[:-1];"*(n-~n)

[Спробуйте в Інтернеті!] [TIO-j3xwsktf]

Починається з рядка, як '*** 'для n=3, застосовуючи map/maxдля вибору *пробілів для кожної позиції, потім додайте пробіл та видаліть останній символ із рядка та зробіть це все заново.

Haskell , 70 байт

f n=[[last$' ':['*'|y<-[1..n],(c-n-y)^2==r^2]|c<-[1..3*n]]|r<-[-n..n]]

Спробуйте в Інтернеті!

Виводить список рядків.

Для кожного положення рядка r, стовпця cвикористовується формула, щоб визначити, чи потрапляє вона в одну з двох діагональних смуг, і так *.

Java 8, 119 118 байт

n->{String r="";for(int i=0,j;i<=n*2;i++,r+="\n")for(j=0;j<n*3;r+=j>=i&j<i+n|j<=n*3-i-1&j++>=n*2-i?"*":" ");return r;}

Порт від дивовижної відповіді C # @CarlosAlejo після того, як я допоміг йому в гольфі кілька речей. Тож обов'язково підтримайте і його!

Спробуйте тут.

Javascript (ES2017), 155 157 байт

n=>[...e=[...Array(n+1)].map((a,i)=>[...d=((b=''.padEnd(n))[c='slice'](i)+'*'.repeat(n)+b[c](0,i))[c](n/2)].reverse().join``+d[c](n%1)),...e.reverse()[c](1)]

Повертає масив рядків. Я виконую операції над масивами, потім віддзеркалюю. Можливо, це можна оптимізувати за допомогою матриць, як і інші відповіді, але я хотів бути унікальним.

Редагувати: Як вказував Ніл, для рівних значень nцентральна лінія не була nширокою, тому я додав модуль для виявлення парних / непарних під час нарізки стовпця.

n=5
['*****     *****',
 ' *****   ***** ',
 '  ***** *****  ',
 '   *********   ',
 '    *******    ',
 '     *****     ',
 '    *******    ',
 '   *********   ',
 '  ***** *****  ',
 ' *****   ***** ',
 '*****     *****']

Безумовно

n => {
  e = [...Array(n+1)].map((a, i) => {   // Create and iterate over array with n+1 elements
    b = ''.padEnd(n)                    // String of n spaces
    d = (b.slice(i) + '*'.repeat(n) + b.slice(0, i)).slice(n/2) // Create row string
    return [...d].reverse().join`` + d.slice(1) // Mirror and combine row horizontally
  })
  return [...e,...e.reverse().slice(1)] // Mirror and combine vertically
}

Квадрант

n=5
   *****
  ***** 
 *****  
*****   
****    
***     

Дзеркальне відображення по горизонталі

n=5
*****     *****
 *****   ***** 
  ***** *****  
   *********   
    *******    
     *****     

Дзеркальний вертикально

n=5
*****     *****
 *****   ***** 
  ***** *****  
   *********   
    *******    
     *****     
    *******    
   *********   
  ***** *****  
 *****   ***** 
*****     *****

Математика, 148 байт

T=Table;(a=Join[T[T["*",i],{i,(n=#)+2,2n,2}],T[Join[t=T["*",n],T[" ",y],t],{y,1,n,2}]];Column[Row/@Join[Reverse@a,{T["*",n]},a],Alignment->Center])&

R, 102 байти

Код:

n=scan();x=matrix(" ",M<-3*n,N<-2*n+1);for(i in 1:N)x[c(i-1+1:n,M+2-i-1:n),i]="*";cat(x,sep="",fill=M)

Тест:

> n=scan();x=matrix(" ",M<-3*n,N<-2*n+1);for(i in 1:N)x[c(i-1+1:n,M+2-i-1:n),i]="*";cat(x,sep="",fill=M)
1: 10
2: 
Read 1 item
**********          **********
 **********        ********** 
  **********      **********  
   **********    **********   
    **********  **********    
     ********************     
      ******************      
       ****************       
        **************        
         ************         
          **********          
         ************         
        **************        
       ****************       
      ******************      
     ********************     
    **********  **********    
   **********    **********   
  **********      **********  
 **********        ********** 
**********          **********

CJam, 24 байти

{:T2*){S*T'**+}%_W%..e>}

Це блок, який бере число з стека і виводить список рядків до стеку.

Пояснення:

{                        e# Stack:           | 2
 :T                      e# Store in T:      | 2, T=2
   2*                    e# Multiply by 2:   | 4
     )                   e# Increment:       | 5
      {                  e# Map over range:  | [0
       S                 e#   Push space:    | [0 " "
        *                e#   Repeat string: | [""
         T               e#   Push T:        | ["" 2
          '*             e#   Push char '*': | ["" 2 '*
            *            e#   Repeat char:   | ["" "**"
             +           e#   Concatenate:   | ["**"
              }%         e# End:             | ["**" " **" "  **" "   **" "    **"]
                _        e# Duplicate:       | ["**" " **" "  **" "   **" "    **"] ["**" " **" "  **" "   **" "    **"]
                 W%      e# Reverse:         | ["**" " **" "  **" "   **" "    **"] ["    **" "   **" "  **" " **" "**"]
                   ..e>  e# Overlay:         | ["**  **" " ****" "  **" " ****" "**  **"]
                       } e# End

Python 2 , 110 байт

x=a=0
n=c=input()
while x<2*n+1:
    print ' '*a+'*'*n+' '*c+'*'*(2*n-2*a-c)
    x+=1
    a=n-abs(n-x)
    c=max(0, n-2*a)

Ця програма розбиває кожен рядок на 4 частини: перші пробіли, перші зірки, другі пробіли, а потім другі зірки. Для кожної горизонтальної лінії X він обчислює, скільки зірок або пробілів потрібно для кожного з 4 ділянок рядка, потім будує та друкує цей рядок.

Сітківка , 144 байти

.+
 $&$* $&$* $&
 
$`#$'¶
¶\d+$

( *)#( *)(\d+)
$1$3$**$2#$3$* #$2$3$**$1
( +)(\*+)( *)(# +#)\3\2\3 +
$3$2$1$4$1$2$3
+` (# +#)
$1 
+` #...
#
##

Спробуйте в Інтернеті! Пояснення:

.+
 $&$* $&$* $&

Додайте 2n + 1 пробіли перед вхідним значенням (по одному для кожного вихідного рядка).

$`#$'¶

Замініть кожен пробіл на а #та збирайте результати. Це дає діагональну лінію #s, пробіл з обох сторін, з введеним значенням суфіксом.

¶\d+$

Видаліть початкове вхідне значення, оскільки тепер у кожного рядка є копія.

( *)#( *)(\d+)
$1$3$**$2#$3$* #$2$3$**$1

Створіть дві діагональні лінії n *s із розділовим стовпчиком nпробілів, загорнутим у пару #s.

( +)(\*+)( *)(# +#)\3\2\3 +
$3$2$1$4$1$2$3

На тих лініях, де *s ближче до середини, поміняйте дві половинки навколо. Це надає зовнішній вигляд, що нагадує > | | <.

+` (# +#)
$1 

Перемістіть | |s якомога далі вліво, надаючи свого роду >> > <зовнішній вигляд.

+` #...
#

Для кожного проміжку між #s видаліть три наступні символи. Це приєднується > <до X.

##

Видаліть зайві #с.