Створення перехрещеної площі

Вам слід ввести ціле число одного або декількох і вивести квадрат, зроблений будь-яким друкованим символом на ваш вибір, діагональним хрестом через центр.

Загальна ідея полягає у тому, щоб вихід був порожнистим квадратом, який має діагональний хрест через нього:

Input: 7
Output:
*******
*#   #*
* # # *
*  #  *
* # # *
*#   #*
*******

У наведеному вище прикладі '*' представляють зовнішню коробку, а '#' - діагональний хрест.

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

Вхідні дані

Ціле число 1 або більше, воно гарантовано буде непарним.

Вихід

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

• Хрест повинен бути діагональним
• Квадрат може бути виведений за допомогою функції або записаний для виведення
• Нові рядки в порядку
• Ви можете виводити у вигляді графіки, діаграми чи зображення, якщо бажаєте

Приклади

Input: 1
Output:
*

Input: 3
Output:
***
***
***

Input: 5
Output:
*****
** **
* * *
** **
*****

Input: 7
Output:
*******
**   **
* * * *
*  *  *
* * * *
**   **
*******

Технічні характеристики

• Дозволені функції або повні програми
• Ви можете отримати вхід за допомогою бажаних способів
• Стандартні лазівки заборонені
• Програми повинні працювати без додаткових висловлювань, тобто usingв C#, вони повинні бути включені у запис
• Ви можете виводити з функції або друкувати результат

Це кодовий гольф, тому найкоротше рішення виграє.

MATL , 20 19 17 байт

2-:XdtP!+~TTYa1YG

Ви можете спробувати експериментально в мережі MATL . Можливо, вам доведеться оновити сторінку, якщо вона не працює.

Проба зразка:

Версія ASCII: 19 байт

2-:XdtP!+~TTYa~42*c

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

VBA Excel, 168 байт

Інструкція:

Я вважаю, що Excel за допомогою VBA є ефективним і достатнім інструментом для цього завдання. Встановіть робочий аркуш Excel наступним чином

Так, ми використовуємо маленькі класичні пікселі квадратної форми, як у старі часи, використовуючи комірки на робочому аркуші як пікселі. Ха-ха ...

Тут я використовую комірку А1 як вхідний і змінюю її колір шрифту на червоний. Чому червоний? Оскільки червоний колір має три літери, то він підходить для гри в гольф. Напишіть та запустіть такий код у Негайне вікно:

N=[A1]:Range("A1",Cells(N,N)).Interior.Color=vbRed:Range("B2",Cells(N-1,N-1)).Clear:For i=1To N:Cells(i,i).Interior.Color=vbRed:Cells(i,N+1-i).Interior.Color=vbRed:Next

Невикористаний код:

Sub A()
    N = [A1]
    Range("A1", Cells(N, N)).Interior.Color = vbRed
    Range("B2", Cells(N - 1, N - 1)).Clear

    For i = 1 To N
        Cells(i, i).Interior.Color = vbRed
        Cells(i, N + 1 - i).Interior.Color = vbRed
    Next
End Sub

Покрокове пояснення:

N = [A1]: Range("A1", Cells(N, N)).Interior.Color = vbRed

Range("B2", Cells(N - 1, N - 1)).Clear

Прокручування по діагоналі комірок діапазону: Cells(i, i).Interior.Color = vbRed

Заключний крок та вихід: Cells(i, N + 1 - i).Interior.Color = vbRed

JavaScript (ES6), 96 байт

f=
n=>[...Array(n--)].map((_,i,a)=>a.map((_,j)=>i&&j&&n-i&&n-j&&i-j&&n-i-j?' ':'*').join``).join`
`
;

<input type=number min=1 step=2 oninput=  o.textContent=f(this.value)><pre id=o>

Python 2, 65 байт

i=n=2**input()/2
while i:print bin((n>i>1or~-n)|n|i|n/i)[2:];i/=2

Використовує ідею Джонатана Аллана про виведення двійкових чисел, таких як:

11111
11011
10101
11011
11111

Рядки створюються з бітною арифметикою та відображаються у двійковій формі. Кожну частину вона вводила в решту. Частина виробляється потужністю 2 n(фіксованої) і i(падаючої) через

1. Ліва сторона 1
2. Права сторона n
3. Діагоналі iтаn/i
4. Вгорі та внизу, n-1коли i==1або i==n.

Насправді, (1) і (4) поєднуються, виробляючи 1коли 1<i<nі в n-1іншому випадку.

Пітона, 114 110 96 90 байт

Повна зміна:

lambda n:[bin(sum(2**p for p in[range(n),{0,n-1,r,n-1-r}][0<r<n-1]))[2:]for r in range(n)]

Повертає список рядків, символів за допомогою 1та 0.
-6 байт завдяки TheBikingViking

Перевірте це на ideone

Попередній Python 2 @ 110

def f(n):g=range(n);n-=1;print'\n'.join(''.join((c in(r,n-r,0,n)or r in(0,n))and'#'or' 'for c in g)for r in g)

Перевірте це на ideone

Java 7, 131 130 128 125 124 122 байт

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

3 байти збережено завдяки @LeakyNun ;
1 байт збережено завдяки @ OliverGrégoire у моїй відповіді за « Намалюй порожнистий квадрат» з заданою шириною ;
2 байти збережено завдяки @cliffroot .

Невикористаний і тестовий код

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

class M{
  static String c(int n){
    String r = "";
    for(int i = n, j; n-- > 0; r += "\n"){
      for(j = 0; j < n;
            r += i < 1      // Responsible for the first horizontal line
               | j < 1      // Responsible for the first vertical line
               | n-i < 2    // Responsible for the last horizontal line
               | n-j < 2    // Responsible for the last vertical line
               | i == j     // Responsible for the top-left to bottom-right diagonal line
               | i == n-++j // Responsible for the top-right to bottom-left diagonal line (and increasing j)
             ? "*"
             : " ");
    }
    return r;
  }

  public static void main(String[] a){
    System.out.println(c(1));
    System.out.println(c(3));
    System.out.println(c(5));
    System.out.println(c(7));
  }
}

Вихід:

*

***
***
***

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

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

Матлаб, 68 66 64 58 байт

Оскільки графічний вихід також дозволений:

k=input('');[x,y]=ndgrid(abs(-k:k));spy(~(max(x,y)<k&x-y))

Які результати, наприклад

Тільки версії ascii були б:

Для цього використовується індексація 0,1,2,3,...

k=input('');[x,y]=ndgrid(abs(-k:k));[(max(x,y)==k|~(x-y))*42,'']

Як варіант з індексуванням 1,3,7,...:

n=input('');k=1:n;m=eye(n);m([k,end-k+1])=1;[(m|flip(m'))*42,'']

C #, 112 101 байт

Дякую TheLethalCoder за те, що він нагадав мені, що ці анонімні висловлювання лямбда-висловлювання і виразу дозволені в C #

n=>{var r="";for(int y=n--,x;y-->0;r+="*\n")for(x=0;x<n;r+=y%n*x<1|y==x|y==n-x++?"*":" ");return r;};

Хто сказав, що C # не є цікавою мовою для гольфу?

Логотип, 155 байт

Графічне рішення, реалізоване як функція

Я переробив свою відповідь на трикутник з алфавітом і трохи змінив кути. Як і раніше, rмалює лінію символів. Цього разу bфункція малює поле, малюючи один прямий край і одну діагональ, обертаючись і повторюючи чотири рази. Це призводить до того, що діагоналі малюються двічі (один на одного), але це було менше коду, ніж обробляти його окремо. Ця відповідь також належним чином обробляє парні числа. Мені довелося додати спеціальну обробку для введення1 щоб не допустити її руху вперед.

Я реалізував це як функцію, b яка приймає розмір як аргумент:

pu
to r:n:b:l repeat:n[rt:b label "A lt:b if repcount>1[fd:l]] end
to b:s
repeat 4[rt 90
r:s 90-heading 20 rt 135
r:s 90-heading 20*sqrt 2 rt 45]
end

Спробуйте це на інтерпретаторі логотипів Calormen.com . Щоб зателефонувати, додайте рядок та зателефонуйте bу такому форматі:

b 7

... або спробуйте блюдо для пробовідбору, яке малює чотири зразки розмірами 5, 7, 9 та 11, обертаючись на 90 градусів між ними:

repeat 4[
  b repcount*2+3
  rt 90
]

R, 102 байти

    n=scan();for(i in 1:n){for(j in 1:n){z=" ";if(i%in%c(1,n,n-j+1)|j%in%c(1,i,n))z="*";cat(z)};cat("\n")}

Зверніть увагу, що умову виразити ефективніше, використовуючи% у%, ніж i == 1 | j == 1 | ...

Haskell, 102 100 96 91 87 байт

c s=unlines.f$f.(#)where f=(<$>[1..s]);x#y|elem y[1,s,x]||elem x[1,s,s-y+1]='*'|1>0=' '

• Збережено 2 байти, завдяки недостатності .
• Збережено ще 4 байти за допомогою розуміння списку.
• Збережено 5 байт, поєднуючи поліпшення flawr іany
• 4 байти, збережені заміною anyнаelem

Негольована версія:

cross :: Int -> String
cross s = unlines $ map line [1..s]
    where line y = map (pos y) [1..s]
          pos y x | x == y = '*'
                  | x == s - y + 1 = '*'
                  | y `elem` [1, s] = '*'
                  | x `elem` [1, s] = '*'
                  | otherwise = ' '

Я впевнений, що це все ще можна вдосконалити, але ось що я придумав зараз.

Стара версія:

c s=unlines.f$f.(#)where f=(<$>[1..s]);x#y|any(==y)[1,s,x]||any(==x)[1,s,s-y+1]='*'|1>0=' '

Java, 130 байт

s->{for(int i=0;i<s;i++)for(int j=0;j<s;j++)System.out.print((s-1-i==j||i==j||i==0||j==0||i==s-1||j==s-1)?j==s-1?"*\n":"*":" ");};

Тестова програма

Consumer<Integer> consumer = s -> {
        for (int i = 0; i < s; i++) {
            for (int j = 0; j < s; j++) {
                System.out.print((s - 1 - i == j || i == j || i == 0 || j == 0 || i == s - 1 || j == s - 1) ? j == s - 1 ? "*\n" : "*" : " ");
            }
        }
    };

    consumer.accept(20);

C, 140 121 114 байт

19 байт завдяки Квентіну.

7 байтів, збережених шляхом переходу з двовкладеного циклу в один цикл.

main(a){scanf("%d",&a);for(int i=0;i<a*a;i++,i%a||puts(""))putchar(i/a&&i/a^a-1&&i%a&&-~i%a&&i%-~a&&i%~-a?32:42);}

Пропозиції з гольфу вітаються.

PowerShell (133)

filter s($x){1..$x|%{$o="";$r=$_;1..$x|%{if($_-eq1-or$r-eq1-or$_-eq$x-or$r-eq$x-or$r-eq$_-or$r-1-eq$x-$_){$o+="*"}else{$o+="_"}};$o}}

Клункі, але він працює досить добре.

s(11)
***********
**_______**
*_*_____*_*
*__*___*__*
*___*_*___*
*____*____*
*___*_*___*
*__*___*__*
*_*_____*_*
**_______**
***********

Пропозиції з гольфу, безумовно, вітаються, тому що я вже задовго пройшов PowerShell'd.

SILOS , 212 байт

readIO 
a = i
lbla
a - 1
t = a
t + 1
t % i
t * a
b = i
lblb
b - 1
u = b
u + 1
u % i
u * b
u * t
v = a
v - b
u * v
v = a
v + b
v + 1
v % i
u * v
u |
if u c
print #
GOTO d
lblc
print .
lbld
if b b
printLine 
if a a

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

GNU sed, 117 114 + 1 (r прапор) = 115 байт

p;/^0$/Q;/^000$/{p;q}
h;s/./ /3g;s/  $/00/
:f;/ 00 /!{G;h;s/\n.*//p;t;:}
s/^(0 *)0  ?( *)0/\1 0\20 /
tf;s/00/0/p;g

Оскільки sed не має вбудованої підтримки чисел, вхід наводиться одинаково на основі цього консенсусу . Друга половина квадрата - це перша половина, яка зберігалася у зворотному порядку у просторі утримування.

Виконати:

sed -rf crossed_square.sed <<< "00000"

Вихід:

00000
00 00
0 0 0
00 00
00000

Пітон, 89 байт

Це був відкат! Я використовував модуль черепахи пітона.

from turtle import*
n=input()
for i in[(n,n),(n,0),(0,n),(0,0),(n,0),(0,n),(n,n)]:goto(i)

Ось результат, коли n = 200:

Scala, 141 137 байт

val s=args(0).toInt-1;val t=0 to s;print(t.map{x=>t.map{y=>if(x==0||x==s||y==0||y==s||x==y||x==s-y)"*" else " "}.mkString+"\n"}.mkString)

Виконати:

$ scala cross.scala 10

Технічно я міг видалити друкований матеріал і перейти до чогось подібного

def c(n:Int)={val (s,t)=(n-1,0 to n-1);t.map{x=>t.map{y=>if(x==0||x==s||y==0||y==s||x==y||x==s-y)"*" else " "}.mkString+"\n"}.mkString}

Це зробило б це 135 або 121 байт залежно від того, чи будете ви рахувати вміст синтаксису функції.

Читаема версія:

def cross(n: Int) = {
   // Declares both s and t as variables with tuple expansion
   // s is the zero-based size and t is a range from 0 to s
   val (s,t) = (n-1, 0 to n-1)

   // Maps all rows by mapping the columns to a star or a space
   t.map { x =>
      t.map { y =>
        if (x == 0 || x == s || y == 0 || y == s || x == y || x == s-y) "*" 
        else " "
      }.mkString+"\n" // Concatenate the stars and spaces and add a newline
   }.mkString         // Concatenate the created strings
 }

Pyth, 27 25 байт

jmsm?|qFKaLJ/Q2,dk}JKN\ Q

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

Напевно, гольф.

Python 2, 83 байти

i=n=input()
while i:l=['* '[1<i<n]]*n;i-=1;l[0]=l[~0]=l[i]=l[~i]='*';print`l`[2::5]

Модифікує список символів рядка, щоб поставити *на перше, останнє, i-е та останнє місце. Перший і останній ряд починаються як усі *, а решта - як усі пробіли. Працює і для евенів. lambdaВираз, ймовірно , коротше , ніж модифікації, але мені подобається цей метод.

Пайк, 28 24 23 байт

]Ua]jshqjXq|0[j{|)Qt[)P

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

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

""<>#&/@Table[If[i^2==j^2||i^2==#^2||j^2==#^2,"*"," "],{i,-#,#},{j,-#,#}]&[(#-1)/2]&

Створює систему координат з початком у центрі та обчислює, куди *слід перейти s. Виводить масив рядків, по одному на рядок.

Javascript ( 289 270 байт)

function s(a){b=[];for(i=0;i<a;i++)if(b.push([]),0==i||i==a-1)for(j=0;j<a;j++)b[i].push("*");else for(j=0;j<a;j++)0==j||j==a-1?b[i].push("*"):j==i||a-1-j==i?b[i].push("*"):b[i].push(" ");c="";for(i=0;i<b.length;i++){for(j=0;j<b[i].length;j++)c+=b[i][j];c+="\n"}return c}

Безголівки:

function square(size){
str=[];

for(i=0;i<size;i++){
    str.push([]);
    if(i==0||i==size-1){
        for(j=0;j<size;j++){
            str[i].push("*");
        }
    }else{
        for(j=0;j<size;j++){
            if(j==0||j==size-1){
                str[i].push("*");
            }else if(j==i||size-1-j==i){
                str[i].push("*");
            }else{
                str[i].push(" ");
            }
        }
    }
}

out="";
for(i=0;i<str.length;i++){
    for(j=0;j<str[i].length;j++){
        out+=str[i][j];
    }
    out+="\n";
}
return out;
}

EDIT: Збережено 19 байт завдяки Філіпу Фленкеру.

Perl, 83 +1 = 84 байти

Біжи з -nпрапором.

$\="*
*";print$c="*"x($_+1);for$b(1..$_){@a=($")x$_;@a[$b-1,-$b]=(a,a);print@a}say$c

Буквальний новий рядок економить 1 байт над \nабо $/.

Читає:

$\="*\n*";
print$c="*"x($_+1);
for$b(1..$_){
    @a=($")x$_;
    @a[$b-1,-$b]=(a,a);
    print@a
}
say$c

Код роздруковує верхню лінію та зберігає її $c, а потім друкує купу пробілів із відповідними слотами, заміненими наa s, після чого знову надрукує верхню лінію.

Призначення $\змінної вказує інтерпретатору друкувати вміст (зірочку, новий рядок та іншу зірочку) після кожного print, але це НЕ відбувається після a say.

SmileBASIC, 46 байт

INPUT I
GBOX I,I,1,1GLINE 1,I,I,1GLINE 1,1,I,I

(Ні, SB не використовує 1-індексовану графіку ...)

Вугілля деревне вугілля, 8 байт (неконкуренто; виклик мовних публікацій)

ＧＨ+↘↑↙Ｎ*

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення: Якщо використовується як параметр PolygonHollowкоманди, +малює поле, а стрілки потім створюють діагоналі. Є деякі інші символи ярликів, але їх потрібно буде переосмислити, щоб бути корисними, наприклад, Yце еквівалентно, ↖↗↓але якщо це було б еквівалентно, ↗↓↖то Y+було б достатньо.

SHELL ( 135 байт ):

 C(){ j=$(($1-1));for i in $(seq 0 $j);do dc<<<2o10i`echo $((1|2**$i|2**($j-$i)|2**$j|(($i==0||$i==$j))*(2**$j-1)))`p;done|tr 01 ' X';}

тести:

 C 1
 X

 C 3
 XXX
 XXX
 XXX

 C 5
 XXXXX
 XX XX
 X X X
 XX XX
 XXXXX

 C 7
 XXXXXXX
 XX   XX
 X X X X
 X  X  X
 X X X X
 XX   XX
 XXXXXXX

 C 9
 XXXXXXXXX
 XX     XX
 X X   X X
 X  X X  X
 X   X   X
 X  X X  X
 X X   X X
 XX     XX
 XXXXXXXXX

Котлін , 123 116 байт

змінити, якщо з \ n на println

{s:Int->val n=s-1
for(r in 0..n){for(c in 0..n)print(if(n-r==c||r==c||r<1||c<1||r==n||c==n)"#"
else " ")
println()}}

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