Eu estava esperando publicar algo mais complexo como meu primeiro quebra-cabeça no PCG, mas uma pergunta específica sobre dever de casa no Stack Overflow me inspirou a postar isso. Eles querem:

imprima o seguinte padrão para qualquer palavra que contenha número ímpar de letras:

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

c ++

Observe que as letras são separadas por um cavaleiro no padrão que você precisa imprimir. Portanto, todas as outras colunas estão vazias. - (Obrigado xnor por apontar isso.)

Regras

1. É proibido o uso de C ++. Como posso vincular essa pergunta lá.
2. Você pode usar stdout, ou qualquer outro meio de gerar uma string rapidamente (por exemplo, alert()em JavaScript).
3. Como sempre, o código mais curto vence.

Pyth , 22

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

Teste:

$ 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

Explicação:

(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←⍞

É preciso entrada do teclado, assim:

      ↑{∊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)

Entrada:

"CODE-GOLF"

Saída:

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

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

Para a linha i, começamos com uma lista de espaços e configuramos as entradas ida frente e de trás para serem iguais às letras da sequência de entrada. Então, imprimimos o resultado.

Seqüências de caracteres Python são imutáveis, portanto, adeve haver uma lista de caracteres. A lista adeve ser inicializada dentro do loop ou as modificações serão transferidas entre os loops. Usamos print(*a)para imprimir cada caractere da lista, separado por espaço, o que requer Python 3.

As linhas de saída são simétricas, portanto, podemos ter uma icontagem regressiva em vez de aumentar usando um loop while.

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

Também funciona para um número par de letras.

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

CJam, 27 25 bytes

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

Experimente online.

Exemplo de execução

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

Como o exemplo na resposta, cada linha possui espaços em branco à direita.

Como funciona

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

Java - 168

Um loop aninhado simples, não há nada realmente especial acontecendo aqui.

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

Com quebras de linha:

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

Pure Bash, 94 bytes

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

Ruby, 64

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

Explicação

• A entrada é tomada como argumento para uma lambda. Espera a String.
• Em um loop que percorre todos os caracteres da palavra ( nno total):
  • Crie uma String composta por nespaços.
  • Substitua o espaço ith e n-ith ( ~i, graças xnor) pelo caráter th ie n-ith da entrada.
  • Imprimir a linha

JavaScript (E6) 101 95 129 136

Editar espaçamento incorreto de letras. Fixo.
Editar Mais simples e mais curto usando o clássico para loops
Como função, faça a saída via pop-up.

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

Versão anterior usando .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'))

Teste no console do FireFox / FireBug

F('Java-Script')

Saída

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

Você pode testá-lo aqui . Ele aparecerá com uma caixa de diálogo de entrada em cada passagem ~; digite sua palavra, um caractere de cada vez (afinal, a entrada é 'klunky'), terminando com um espaço.

Não será impresso no console; isso não seria o Befunge sem uma pitada de auto-modificação, afinal! Em vez disso, modificará sua própria grade para exibir a mensagem. Depois que terminar, a grade será mais ou menos assim:

 ~: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

(Observe o nobre sacrifício da célula em (0,0), depois que soubermos que o ponteiro não irá mais para lá, com o objetivo de armazenar um dado.)

Também funciona com entradas de comprimento uniforme. Observe que, como o Befunge-93 é limitado a uma grade de 80x25, o tamanho da entrada é limitado a 21 caracteres se você o executar em um intérprete do Befunge-93. Executá-lo como Befunge-98 deve remover esse limite.

Editar - Agora funciona mais ao longo da linha de saída pretendida, às custas de apenas três caracteres.

Javascript 102 84 85

Edit: teve que corrigir o espaçamento. Não é mais tão pequeno.

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 bytes

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

Teste aqui. Isso lê a palavra de entrada de STDIN. Também funciona para um número par de caracteres. Isso imprime uma coluna de espaços à direita, mas não vejo nada nas regras contra isso.

Explicação

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.";

O conteúdo da pilha é impresso automaticamente no final do programa.

C, 105

duas maneiras ligeiramente diferentes de fazê-lo.

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

Se você deseja adicionar espaços extras, substitua putchar(com printf(" %c",por um extra de 5 caracteres.

J - 36 30 bytes:

Editar: 6 caracteres mais curtos, os créditos vão para @algorithmshark .

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

por exemplo:

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

Bônus: também funciona com cadeias de comprimento par:

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

Prolog - 240 bytes

:-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.

Invocação:

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

Legível:

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

Tela , 5 bytes

＼＼：⇵ｎ

Experimente aqui!

Explicação:

\      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 bytes

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

Experimente online!

A linha 1 lê a sequência de entrada, divide-a em caracteres, armazena seu comprimento e cria uma matriz com a palavra na diagonal principal - as letras da palavra são sobrepostas em uma matriz de identidade (e repetidas por padrão para corresponder ao seu comprimento) e apenas as que correspondem 1s são retidos, outros sendo substituídos por espaços.

A linha 2 imprime uma matriz formada por elementos da matriz diagonal ou de sua versão espelhada horizontalmente, o que for maior.

−2 + 1 = -1 byte graças a JayCe

-4 bytes graças a Giuseppe

C # ( 214 212)

(Certamente mal) Versão Golfed:

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

Versão não destruída:

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

Quaisquer dicas, dicas, truques ou observações são muito bem-vindas, pois esta é minha primeira tentativa no CodeGolf. Eu só queria experimentá-lo, mesmo sabendo que meu comprimento de byte em C # nem chegará nem perto do dobro das melhores soluções;)

E como vocês contam seus bytes? Acabei de publicar o que foi dito acima em uma janela do Quick Watch e o fiz .Length. Eu poderia escrever um pequeno programa para contar bytes para mim, mas aposto que há uma maneira mais fácil que ainda não conheço.

JavaScript (ES6) - 185 177 175 170 bytes

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

Coloque isso no console do Firefox e execute como 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 bytes

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

Entrada passada como parâmetro para a função; A função retorna a sequência de saída. Há uma nova linha no final da saída.

Explicação: Criamos uma matriz diagonal com a sequência e, em seguida, criamos uma cópia dela invertida verticalmente usando Reverse@#para reverter as linhas. Então temos uma terceira matriz das mesmas dimensões, contendo apenas 32 (espaço ascii). Usamos MapThreado máximo de três matrizes por elemento. Por fim, Riffleespaçamos em cada linha, Appenduma nova linha no final e Flatteno resultado.

C , 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("");}}

Isso pode não ser compilado como C ++, portanto, espero não ter violado as regras :)

Perl - 90

Pode ser possível extrair mais alguns caracteres disso:

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

89+ 1para-n .

Correr com:

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

Saída:

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

T-SQL: 180

Tomando a entrada da variável @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

Isso reúne caracteres únicos / decrescentes desde o início e o fim em uma sequência de espaços.

Resultado do teste

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

Saídas:

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

Gelatina , 11 bytes

LḶḤ⁶ẋ;"µ»ṚY

Experimente online!

JavaScript (Node.js) , 81 bytes

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

EDIT : -1 Obrigado Joe King. Eu não vi o TIO fornece pasta direta pré-formatada para CG.

Experimente online!

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

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

Não importa quanto tempo, sempre tem que haver uma resposta em ...

Java - 289 234 bytes

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

A saída, mal feita, é:

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

Adicionado o import java.util.Scannerinterior do código, porque eu nunca me lembro se as importações contam para a contagem de bytes ... Porra, eu realmente sou péssima nisso.

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

Ou, como "Somente 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");};}