Я ожидал опубликовать что-то более сложное в качестве моей первой загадки в PCG, но конкретный, домашний вопрос о переполнении стека вдохновил меня опубликовать это. Они хотят:

напечатать следующий шаблон для любого данного слова, которое содержит нечетное количество букв:

P           M
  R       A   
    O   R    
      G       
    O   R      
  R       A   
P           M 

C ++

Обратите внимание, что буквы - это ход рыцаря в узоре, который нужно напечатать. Итак, все остальные столбцы пусты. - (Спасибо xnor за то, что указал на это.)

правила

1. Использование C ++ запрещено. Как я могу связать этот вопрос там.
2. Вы можете использовать stdoutили любые способы быстрого вывода строки (например, alert()в JavaScript).
3. Как всегда, выигрывает самый короткий код.

Пиф , 22

Vzjdm?@zd}N,dt-lzd\ Uz

Тест:

$ pyth -c 'Vzjdm?@zd}N,dt-lzd\ Uz' <<< "CODE-GOLF"
C               F
  O           L  
    D       O    
      E   G      
        -        
      E   G      
    D       O    
  O           L  
C               F

Объяснение:

(Implicit)                  z = input()
(Implicit)                  d = ' '
Vz                          for N in range(len(z)):
  jd                            print(d.join(
    m                               map(lambda d:
     ?@zd                                        z[d] if
         }N                                      N in
           ,dt-lzd                                    (d,len(z)-d-1) else
      \                                          " ",
     Uz                                          range(len(z)))))

APL ( 37 35 34 27)

↑{∊2↑¨⍵↑¨I}¨↓(+∨⌽)∘.=⍨⍳⍴I←⍞

Он принимает ввод с клавиатуры, вот так:

      ↑{∊2↑¨⍵↑¨I}¨↓(+∨⌽)∘.=⍨⍳⍴I←⍞
CODE-GOLF
C               F 
  O           L   
    D       O     
      E   G       
        -         
      E   G       
    D       O     
  O           L   
C               F 

Python 2 - 94 90 89 88

s=input()
L=len(s)
R=range(L)
for i in R:print" ".join([s[j]," "][j!=i!=L+~j]for j in R)

Входные данные:

"CODE-GOLF"

Выход:

C               F
  O           L  
    D       O    
      E   G      
        -        
      E   G      
    D       O    
  O           L  
C               F

Python 3: 75 символов

s=input()
i=n=len(s)
while i:i-=1;a=[" "]*n;a[i]=s[i];a[~i]=s[~i];print(*a)

Для строки iмы начинаем со списка пробелов и устанавливаем записи iспереди и сзади равными буквам входной строки. Затем мы печатаем результат.

Строки Python являются неизменяемыми, поэтому aвместо них должен быть список символов. Список aдолжен быть инициализирован внутри цикла, иначе изменения будут перенесены между циклами. Мы используем print(*a)для печати каждого символа в списке через пробел, для чего требуется Python 3.

Выходные линии симметричны, поэтому мы можем использовать iобратный отсчет, а не увеличение, используя цикл while.

>>> CODE-GOLF
C               F
  O           L  
    D       O    
      E   G      
        -        
      E   G      
    D       O    
  O           L  
C               F

Это также работает для четного числа букв.

>>> CODEGOLF
C             F
  O         L  
    D     O    
      E G      
      E G      
    D     O    
  O         L  
C             F

CJam, 27 25 байтов

l_,S*:Sf{W):W2$tW~@tS}zN*

Попробуйте онлайн.

Пример запуска

$ cjam <(echo 'l_,S*:Sf{W):W2$tW~@tS}zN*') <<< CROSS; echo
C       S 
  R   S   
    O     
  R   S   
C       S 

Как пример в ответе, каждая строка имеет пробел в конце.

Как это работает

                             " N := '\n'; R := []; S = ' '; W := -1 ";
l                            " Q := input()                         ";
 _,S*:S                      " S := len(Q) * S                      ";
       f{            }       " for each C in Q:                     ";
                             "   T := S                             ";
         W):W                "   W += 1                             ";
             2$t             "   T[W] := C                          ";
                W~@t         "   T[~W] := C                         ";
                             "   R += [T]                           ";
                    S        "   R += [S]                           ";
                      z      " R := zip(R)                          ";
                       N*    " R := N.join(R)                       ";
                             " print R                              ";

Ява - 168

Простой вложенный цикл, здесь нет ничего особенного.

class C{public static void main(String[]a){int b=-1,c=a[0].length()-1,d;for(;b++<c;)for(d=-1;d++<c;)System.out.print((b==d|b==c-d?a[0].charAt(d):" ")+(c==d?"\n":""));}}

С переносами строк:

class C{
    public static void main(String[]a){
        int b=-1,c=a[0].length()-1,d;
        for(;b++<c;)
            for(d=-1;d++<c;)
                System.out.print(
                    (b==d|b==c-d?a[0].charAt(d):" ")+
                    (c==d?"\n":""));
    }
}

Чистый Баш, 94 байта

l=${#1}
for((;t<l*l;t++));{
((x=t%l))||echo
((x-t/l&&x+t/l+1-l))&&printf \ ||printf ${1:x:1}
}

Руби, 64

f=->w{x=w.size
x.times{|i|y=" "*x
y[i],y[~i]=w[i],w[~i]
puts y}}

объяснение

• Ввод принимается в качестве аргумента лямбда-выражения. ОжидаетсяString .
• В цикле, который повторяет каждый символ в слове ( nвсего):
  • Создайте строку, состоящую из nпробелов.
  • Замените ith и n-ith ( ~iспасибо xnor) пробел на ith и n-ith символ ввода.
  • Распечатать строку

JavaScript (E6) 101 95 129 136

Изменить неверный интервал букв. Исправлена.
Редактируйте проще и короче, используя классические циклы for.
Как функция, выводите через всплывающее окно.

F=a=>{
  for(l=a.length+1,i=s=o='';++i<l;s='\n')
    for(j=0;++j<l;)
      o+=s+((s=' ')+a)[j==i|i+j==l&&j]
  alert(o)
}

Предыдущая версия с использованием .map

F=a=>alert([...a].map((c,p)=>
  --q<p
  ?B(q)+a[q]+B(p-q-1)+c 
  :B(p)+c+(p-q?B(q-p-1)+a[q]:'')
,B=n=>' '.repeat(n),q=a.length).join('\n'))

Тест в консоли FireFox / FireBug

F('Java-Script')

Выход

J                   t
  a               p  
    v           i    
      a       r      
        -   c        
          S          
        -   c        
      a       r      
    v           i    
  a               p  
J                   t

Befunge-93, 68 71

:~:84*-!#@#v_\:2*\4+p1+
::+\4+g:!| >$1+0:>p1-::
00+4\*2:\<>0p#:- ^#2g

Вы можете проверить это здесь . При каждом проходе будет отображаться диалоговое окно ввода~ ; введите ваше слово по одному символу за раз (в конце концов, он говорит, что ввод «klunky»), заканчивая пробелом.

Это не будет печатать на консоль; это не было бы Befunge без намека на само-модификацию, в конце концов! Вместо этого он изменит свою сетку для отображения сообщения. После этого сетка будет выглядеть примерно так:

 ~:84*-!#@#v_\:2*\4+p1+
::+\4+g:!| >$1+0:>p1-::
00+4\*2:\<>0p#:- ^#2g

c               f      
  o           l        
    d       o          
      e   g            
        -              
      e   g            
    d       o          
  o           l        
c               f

(Обратите внимание на благородную жертву ячейки в (0,0), после того, как мы знаем, что указатель больше не пойдет туда, чтобы сохранить часть данных.)

Он также работает с входами четной длины. Обратите внимание, что, поскольку Befunge-93 ограничен сеткой 80x25, размер ввода ограничен 21 символом, если вы запускаете его в интерпретаторе Befunge-93. Запуск его как Befunge-98 должен снять этот предел.

Редактировать - теперь он работает более точно в соответствии с предполагаемым выводом, за счет длины всего трех символов.

Javascript 102 84 85

Изменить: пришлось исправить расстояние. Уже не такой маленький.

function p(s){for(i in s){o='';for(n in s)o+=(n==i?s[n]:n==s.length-1-i?s[n]:' ')+' ';console.log(o)}}

p('Thanks-Dennis')

T                       s
  h                   i
    a               n
      n           n
        k       e
          s   D
            -
          s   D
        k       e
      n           n
    a               n
  h                   i
T                       s

CJam, 38 36 35 34 32 байта

l:I,,_f{f{_2$=@2$+I,(=|\I=S?S}N}

Проверьте это здесь.Это читает входное слово из STDIN. Это также работает для четного числа символов. Это печатает в конце столбец пробелов, но я не вижу ничего в правилах против этого.

объяснение

l:I,,_f{f{_2$=@2$+I,(=|\I=S?S}N}
l:I                              "Read input and store it in I.";
   ,                             "Get string length.";
    ,_                           "Turn into range and duplicate.";
      f{                       } "Map block onto first range, with second range on the stack.";
        f{                   }   "Map block onto second range, with first iterator in stack.
                                  Each invocation of this block will start with grid coordinates
                                  y and x on the stack (x on top).";
          _2$=                   "Duplicate x, duplicate y, check for equality.";
              @2$+               "Pull up y, duplucate x, add,";
                  I,(=           "Check if that's one less than the string length.";
                      |          "Bitwise or between conditions.";
                       \         "Swap condition and x.";
                        I=       "Take x'th character from the string.";
                          S?     "Push a space and select character depending on condition.";
                            S    "Push another space.";
                              N  "Push a line feed.";

Содержимое стека печатается автоматически в конце программы.

С 105

два немного разных способа сделать это.

c,i,j;main(int l,char**v){for(l=strlen(v[1]);j-l;)putchar((c=v[1][i++])?i-1-j&&l-i-j?32:c:(i=0,j++,10));}

i,j;main(int l,char**v){for(l=strlen(v[1]);j-l;i++)putchar((l-i)?i-j&&l-i-j-1?32:v[1][i]:(i=-1,j++,10));}

Если вы хотите добавить дополнительные пробелы, замените putchar(с в printf(" %c",течение дополнительных 5 символов.

J - 36 30 байт:

Изменить: 6 символов короче, кредиты идут на @algorithmshark .

(1j1#"1' '&,({~](*>.*&|.)=)#\)

например:

   (1j1#"1' '&,({~](*>.*&|.)=)#\) 'Code-Golf'
C               f
  o           l  
    d       o    
      e   G      
        -        
      e   G      
    d       o    
  o           l  
C               f

Бонус: работает и со строками четной длины:

   (1j1#"1' '&,({~](*>.*&|.)=)#\) 'CodeGolf'
C             f
  o         l  
    d     o    
      e G      
      e G      
    d     o    
  o         l  
C             f

Пролог - 240 байт

:-initialization m.
+[]. +[H|T]:-(H=' ';!),+T.
+[H|T]+I+X:-0=:=I,X=H;+T+(I-1)+X.
+L+I+C+S:-L=:=I;S=[D|E],+C+I+B,+C+(L-I-1)+B,+B+2*I+D,+L+(I+1)+C+E,+B,writef('%s\n',[B]).
-X:-get_char(C),(C='\n',X=[];X=[C|Y],-Y).
m:- -X,length(X,L),+L+0+_+X.

Призвание:

$ echo "Code-Golf" | swipl -qf c.pl
C               f
  o           l
    d       o
      e   G
        -
      e   G
    d       o
  o           l
C               f

Удобочитаемый:

:- initialization(main).

vars_to_spaces([]).
vars_to_spaces([' '|T]) :- vars_to_spaces(T).
vars_to_spaces([_|T]) :- vars_to_spaces(T).

get_index([Head|_], Index, Result) :-
    0 =:= Index,
    Result = Head.
get_index([_|Tail], Index, Result) :-
    get_index(Tail, Index-1, Result).

print_loop(Length, Index, Board, String) :-
    Length =:= Index;
    String = [FirstChar|RestString],
    get_index(Board, Index, Line),
    get_index(Board, Length-Index-1, Line),
    get_index(Line, 2*Index, FirstChar),
    print_loop(Length, Index+1, Board, RestString),
    vars_to_spaces(Line),
    writef('%s\n', [Line]).

get_line(Line) :-
    get_char(C),
    (   C = '\n', Line = [];
        Line = [C|More], get_line(More)).

main :-
    get_line(String),
    length(String, Length),
    print_loop(Length, 0, _, String).

Холст , 5 байт

＼＼：⇵ｎ

Попробуй это здесь!

Объяснение:

\      create a diagonal of the input
 \     create an even steeper diagonal of that
  :⇵   reverse a copy of it vertically
    n  overlap the two

R , 99 98 93 89 байт

m=ifelse(diag(l<-length(w<-el(strsplit(scan(,''),'')))),w,' ')
write(pmax(m,m[,l:1]),1,l)

Попробуйте онлайн!

Строка 1 читает входную строку, разбивает ее на символы, сохраняет ее длину и создает матрицу со словом на его главной диагонали - буквы слова накладываются на единичную матрицу (и по умолчанию повторяются, чтобы соответствовать ее длине), и только те, которые соответствуют 1 сохраняются, другие заменяются пробелами.

В строке 2 печатается матрица, образованная элементами диагональной матрицы или ее горизонтально-зеркальной версии, в зависимости от того, что больше.

-2 + 1 = -1 байт благодаря JayCe

−4 байта благодаря Джузеппе

C # ( 214 212)

(Конечно, плохо) Гольф версия:

using System;class A{static void Main(){char[]a,w=Console.ReadLine().ToCharArray();int l=w.Length,i=0;for(;i<l;i++){a=new string(' ',2*l-1).ToCharArray();a[2*i]=w[i];a[2*l-2*i-2]=w[l-i-1];Console.WriteLine(a);}}}

Безголовая версия:

using System;

class A
{
  static void Main()
  {
    char[] a, w = Console.ReadLine().ToCharArray();
    int l = w.Length, i = 0;
    for (; i < l; i++)
    {
      a = new string(' ', 2 * l - 1).ToCharArray();
      a[2 * i] = w[i];
      a[2 * l - 2 * i - 2] = w[l - i - 1];
      Console.WriteLine(a);
    }
  }
}

Любые намеки, советы, хитрости или замечания приветствуются, так как это моя первая попытка CodeGolf. Я просто хотел попробовать, хотя я знаю, что длина моего байта в C # даже близко не удвоит лучшие решения;)

А как вы, ребята, считаете свои байты? Я только что опубликовал вышеупомянутое в окне Quick Watch и сделал .Length. Я мог бы написать небольшую программу для подсчета байтов для себя, но держу пари, что есть более простой способ, которого я пока не знаю.

JavaScript (ES6) - 185 177 175 170 байт

f=n=>{return s='  ',r='repeat',n=[...n],l=n.length,j=l/2-.5,[...h=n.slice(0,j).map((c,i)=>s[r](i)+c+s[r](l-2-(i*2))+' '+n[l-i-1]),s[r](j)+n[j],...h.reverse()].join('\n')}

Поместите это в консоль Firefox и запустите как f('PROGRAM'):

P           M
  R       A
    O   R
      G
    O   R
  R       A
P           M

f("CODE-GOLF"):

C               F
  O           L
    D       O
      E   G
        -
      E   G
    D       O
  O           L
C               F

Mathematica, 149 байтов

FromCharacterCode@Flatten[Append[Riffle[#,32],10]&/@MapThread[Max,{#,Reverse@#,ConstantArray[32,Dimensions@#]},2]&@DiagonalMatrix@ToCharacterCode@#]&

Ввод передан в качестве параметра функции; Функция возвращает строку вывода. В конце вывода есть завершающий символ новой строки.

Объяснение: Мы создаем диагональную матрицу со строкой, затем создаем ее копию, перевернутую по вертикали, с помощью Reverse@#реверса строк. Тогда у нас есть третья матрица тех же размеров, содержащая только 32 (пространство ASCII). Мы используем, MapThreadчтобы взять поэлементный максимум этих 3 матриц. Наконец, мы Riffleпомещаем пробелы в каждую строку, Appendновую строку в конце и Flattenрезультат.

С 119

i,j;main(int l,char**v){l=strlen(v[1]);for(i=0;i<l;i++){for(j=0;j<l;j++)putchar((i-j)*(j-l+i+1)?32:v[1][j]);puts("");}}

Это не может быть скомпилировано как C ++, поэтому я надеюсь, что я не нарушил правила :)

Perl - 90

Из этого можно выжать еще несколько символов:

($j=$i++%8)==7?++$k&&print"\n":print$j+1==$k||7-$j==$k?"$_ ":"  "for split//,($_ x y///c)

89+ 1за -n.

Бежать с:

echo "program" | perl -nE'($j=$i++%8)==7?++$k&&print"\n":print$j+1==$k||7-$j==$k?"$_ ":"  "for split//,($_ x y///c)'

Выход:

p           m
  r       a
    o   r
      g
    o   r
  r       a
p           m

T-SQL: 180

Принимая входные данные из переменной @i

DECLARE @s VARCHAR(MAX)=REPLICATE('  ',LEN(@i)),@ INT=1a:PRINT STUFF(STUFF(@s,@*2-1,1,SUBSTRING(@i,@,1)),LEN(@i)*2-(@*2)+1,1,SUBSTRING(@i,LEN(@i)-@+1,1))SET @+=1IF @<=LEN(@i)GOTO A

Это заполняет отдельные символы в / уменьшая от начала и до конца в строку пробелов.

Результат испытаний

DECLARE @i VARCHAR(MAX)='Super Large'
DECLARE @s VARCHAR(MAX)=REPLICATE('  ',LEN(@i)),@ INT=1a:PRINT STUFF(STUFF(@s,@*2-1,1,SUBSTRING(@i,@,1)),LEN(@i)*2-(@*2)+1,1,SUBSTRING(@i,LEN(@i)-@+1,1))SET @+=1IF @<=LEN(@i)GOTO A
S                   e 
  u               g   
    p           r     
      e       a       
        r   L         

        r   L         
      e       a       
    p           r     
  u               g   
S                   e 

PowerShell 118 102 97

($x=[char[]]"$args")|%{$i++;$y=[char[]]" "*$x.Count;$y[$i-1]=$x[$i-1];$y[-$i]=$x[-$i];$y-join' '}

Выходы:

PS C:\PowerShell> .\cross.ps1 SWORD
S       D
  W   R
    O
  W   R
S       D

Желе , 11 байт

LḶḤ⁶ẋ;"µ»ṚY

Попробуйте онлайн!

JavaScript (Node.js) , 81 байт

f=s=>[...s].map((_,i,a)=>a.map((c,j)=>j==i|j==s.length+~i?c:' ').join` `).join`
`

РЕДАКТИРОВАТЬ : -1 Спасибо Джо Кинг. Я не видел, что TIO дает предварительно отформатированную прямую вставку для компьютерной графики.

Попробуйте онлайн!

C # 208

static void Main()
{
string s=Console.ReadLine(),t="";
int n=s.Length;
for(int i=0;i<n;i++)
{
for(int j=0;j<n;j++)
{
if(i==j)t+=s[i];
else if(i==n-j-1)t+=s[n-i-1];
t+=" ";
}
t+="\n";
}
Console.WriteLine(t);
}

GolfScript 46 ( ДЕМО )

:w,:l,{l,{.[.l(\-]2$?)!w@[=32]=}%\;''+' '*}%n*

Независимо от того, как долго, всегда должен быть ответ в ...

Ява - 289 234 байта

public static void main(String[]a){int l=a.length-1,i=0,j;for(;i<=l;i++){for(j=0;j<=l;j++){if(j==i)System.out.print(a[i]);else if(i==l-j)System.out.print(a[j]);else System.out.print(" ");System.out.print(" ");}System.out.println();}}}

Ungolfed:

    class A {

    public static void main(String[] a) {
        int l = a.length - 1, i = 0, j;
        for (; i <= l; i++) {
            for (j=0; j <= l;j++) {
                if (j == i)
                    System.out.print(a[i]);
                else if (i == l-j)
                    System.out.print(a[j]);
                else
                    System.out.print(" ");
                System.out.print(" ");
                }            
            System.out.println();
        }
    }
}

Вывод, сделанный паршиво, таков:

P           M 
  R       A   
    O   R     
      G       
    O   R     
  R       A   
P           M 

Добавил import java.util.Scannerвнутри код, потому что я никогда не помню, будет ли импорт считаться с байтовым счетом ... Черт, я действительно сосу это.

C # (192/170)

using System;class P{static void Main(){var s=Console.ReadLine();int x,y,l=s.Length;for(x=0;x<l;x++){for(y=0;y<l;y++)Console.Write(x==y||l-x==y+1?s.Substring(x,1):" ");Console.Write("\n");};}}

Или как «Только Main ()»:

static void Main(){var s=Console.ReadLine();int x,y,l=s.Length;for(x=0;x<l;x++){for(y=0;y<l;y++)Console.Write(x==y||l-x==y+1?s.Substring(x,1):" ");Console.Write("\n");};}