PCG의 첫 번째 퍼즐처럼 더 복잡한 것을 게시 할 것으로 기대했지만 Stack Overflow에 대한 특정 숙제 문제는 이것을 게시하도록 영감을주었습니다. 그들은 :

홀수 개의 문자 를 포함하는 주어진 단어에 대해 다음 패턴을 인쇄하십시오 .

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 

파이썬 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

파이썬 3 : 75 자

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

line i의 경우 공백 목록으로 시작 i하고 앞뒤 항목 을 입력 문자열의 문자와 동일하게 설정합니다. 그런 다음 결과를 인쇄합니다.

파이썬 문자열은 변경할 수 없으므로 a대신 문자 목록이어야합니다. a루프 내에서 목록 을 초기화해야합니다. 그렇지 않으면 루프간에 수정 사항이 적용됩니다. 우리는 사용 print(*a)공간이 분리, 파이썬 3 요구하는 목록의 각 문자를 인쇄 할 수 있습니다.

출력 라인은 대칭이므로 iwhile 루프를 사용하지 않고 카운트 다운 할 수 있습니다 .

>>> 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공백 으로 구성된 문자열을 만듭니다 .
  • 바꾸기 i번째 및 n-i제 ( ~i와, 감사 XNOR) 공간 i번째 및 n-i입력 번째의 문자.
  • 라인을 인쇄

자바 스크립트 (E6) 101 95129136

잘못된 문자 간격을 편집하십시오 . 결정된. 클래식 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

베 펀지 -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 그리드로 제한되므로 Befunge-93 인터프리터에서 실행하면 입력 크기가 21 자로 제한됩니다. Befunge-98로 실행하면이 제한이 제거됩니다.

편집 -이제 3 자 길이의 비용으로 의도 된 출력의 행을 따라 더 많이 작동합니다.

자바 스크립트 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.";

스택의 내용은 프로그램 종료시 자동으로 인쇄됩니다.

C, 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 행은 대각 행렬 또는 수평 미러 버전 중 더 큰 요소로 구성된 행렬을 인쇄합니다.

JayCe 덕분에 −2 + 1 = −1 바이트

주세페 덕분에 −4 바이트

C # ( 214212 )

골프 버전 :

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. 바이트 수를 계산하는 작은 프로그램을 작성할 수는 있지만 아직 알지 못하는 더 쉬운 방법이 있습니다.

자바 스크립트 (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 (아스키 공간) 만 포함하는 동일한 차원의 세 번째 행렬이 있습니다. 우리 MapThread는이 3 가지 행렬의 요소 별 최대 값을 취합니다. 마지막으로, 우리는 Riffle각 행, 마지막 Append줄 바꿈 및 Flatten결과에 공백을 둡니다 .

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

이것은 C ++로 컴파일되지 않을 수도 있으므로 규칙을 위반하지 않기를 바랍니다.)

펄-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

온라인으로 사용해보십시오!

자바 스크립트 (Node.js) , 81 바이트

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

편집 : -1 감사합니다 King King. TIO가 CG에 미리 포맷 된 직접 붙여 넣기를 제공하는 것을 보지 못했습니다.

온라인으로 사용해보십시오!

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

언 골프 드 :

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