PCG'deki ilk bulmacamdan daha karmaşık bir şey göndermeyi bekliyordum, ancak Stack Overflow ile ilgili özel bir ev ödevi sorusu bunu göndermem için bana ilham verdi. Onlar ister:

Tek harf sayısını içeren herhangi bir kelime için aşağıdaki deseni yazdırın :

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

c ++

Harflerin bir şövalyenin, basmanız gereken düzende birbirinden ayrıldığına dikkat edin. Yani, diğer her sütun boştur. - ( Bunu işaret ettiğiniz için teşekkür ederiz .)

kurallar

1. C ++ kullanımı yasaktır. Bu soruyu oraya bağlayabildiğim için.
2. stdoutBir dizgeyi hızlı bir şekilde basmak için herhangi bir yol kullanabilirsiniz (örneğin alert(), JavaScript'te).
3. Her zaman olduğu gibi, en kısa kod kazanır.

Pyth , 22

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

Ölçek:

$ 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

Açıklama:

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

Klavyeden girdi alır, şöyle yapar:

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

Giriş:

"CODE-GOLF"

Çıktı:

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

Python 3: 75 karakter

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

Satır iiçin bir boşluk listesiyle başlıyoruz ve girişleri iönden ve arkadan giriş dizesinin harflerine eşit olacak şekilde ayarlıyoruz . Sonra sonucu yazdırırız.

Python dizeleri değişmezdir, bu nedenle akarakterlerin bir listesi olmalıdır. Liste a, döngü içinde başlatılmalıdır, aksi takdirde değişiklikler döngüler arasında gerçekleşir. print(*a)Listedeki her karakteri Python 3 gerektiren boşlukla ayrılmış olarak yazdırmak için kullanıyoruz .

Çıkış çizgileri simetriktir, bu yüzden iwhile döngüsünü kullanmak yerine geri sayım yapabiliriz .

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

Aynı zamanda eşit sayıda harf için çalışır.

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

CJam, 27 25 bayt

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

Çevrimiçi deneyin.

Örnek çalışma

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

Cevaptaki örnekte, her satırın sonunda boşluk var.

Nasıl çalışır

                             " 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

Basit bir iç içe döngü, burada gerçekten çok özel bir şey yok.

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

Satır sonları ile:

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

Saf Bash, 94 bayt

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

açıklama

• Giriş bir lambda argümanı olarak alınır. Bir bekliyor String.
• Döngülerden oluşan bir döngüde, kelimedeki her karakterden ( ntoplam olarak):
  • nBoşluklardan oluşan bir Dize oluşturun .
  • Değiştir ith ve n-iinci ( ~iile, teşekkür XNOR) alan ith ve n-igirdi inci karakter.
  • Satırı yazdır

JavaScript (E6) 101 95 129 136

Düzenleme Yanlış harf aralığı. Sabit.
Düzenleme Döngüler için klasik kullanarak daha basit ve daha kısa
. İşlev olarak, açılır pencereden çıktı alın.

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 kullanarak önceki sürüm

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 konsolunda test edin

F('Java-Script')

Çıktı

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

Burada test edebilirsiniz . Her seferinde bir giriş iletişim kutusu ile gelecek ~; kelimenizi her seferinde bir karakter girin (girişin 'klunky' olduğunu söyler), bir boşlukla biter.

Konsola yazdırmaz; sonuçta bu, kendini değiştirmenin bir ipucu olmadan Befunge olmaz! Bunun yerine mesajı görüntülemek için kendi ızgarasını değiştirir. Tamamlandıktan sonra, ızgara şöyle görünecek:

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

(Hücrenin soylu fedakarlığını (0,0) not edin, işaretçinin bir veri parçasını saklamak amacıyla artık oraya gitmeyeceğini biliyoruz.)

Aynı zamanda eşit uzunluktaki girişlerle çalışır. Befunge-93'ün 80x25 ızgarayla sınırlı olduğundan, bir Befunge-93 yorumlayıcısında çalıştırırsanız giriş boyutunun 21 karakterle sınırlı olduğunu unutmayın. Befunge-98 olarak çalıştırmak bu limiti kaldırmalıdır.

Düzenleme - Şimdi, yalnızca üç karakter uzunluğunda olmak üzere, amaçlanan çıktının çizgileri boyunca daha fazla çalışır.

Javascript 102 84 85

Düzenleme: Boşluğu düzeltmek zorunda kaldı. Artık o kadar küçük değil.

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 bayt

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

Burada test et. Bu giriş kelimesini STDIN'den okur. Aynı zamanda eşit sayıda karakter için çalışır. Bu, takip eden bir boşluk sütunu yazdırır ancak buna karşı kurallarda hiçbir şey göremiyorum.

açıklama

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

Yığının içeriği programın sonunda otomatik olarak yazdırılır.

C, 105

Bunu yapmanın iki farklı yolu.

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

Eğer fazladan boşluk eklemek istiyorsanız, yerini putchar(ile printf(" %c",fazladan 5 karakterler için.

J - 36 30 bayt:

Düzenleme: 6 karakter daha kısa, kredi @algorithmshark gidin .

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

Örneğin:

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

Bonus: eşit uzunluktaki dizelerle de çalışır:

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

Prolog - 240 bayt

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

çağırma:

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

Okunabilir:

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

Tuval , 5 bayt

＼＼：⇵ｎ

Burada dene!

Açıklama:

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

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

Çevrimiçi deneyin!

Satır 1, giriş dizesini okur, karakterlere ayırır, uzunluğunu saklar ve ana köşesinde kelimesiyle bir matris oluşturur - kelimenin harfleri bir kimlik matrisinde üst üste getirilir (ve uzunluğuyla eşleşmesi için varsayılan olarak tekrarlanır) ve yalnızca eşleşenler 1'ler tutulur, diğerleri ise boşluklarla değiştirilir.

Satır 2, hangisi daha büyükse, çapraz matrisin elemanları veya yatay olarak yansıtılmış versiyonunun oluşturduğu bir matrisi yazdırır.

JayCe sayesinde −2 + 1 = −1 bayt

Giuseppe sayesinde −4 bayt

C # ( 214 212)

(Kesinlikle kötü) Golfed sürümü:

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

Ungolfed versiyonu:

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

Herhangi bir ipucu, ipucu, püf noktası ya da açıklama çok açıktır, çünkü bu CodeGolf'teki ilk girişimim. Sadece denemek istedim, C # byte uzunluğumun en iyi çözümleri iki katına bile yaklaştırmayacağını bile bildiğim halde;)

Peki baytlarınızı nasıl sayarsınız? Yukarıdakileri bir Hızlı İzleme penceresine gönderdim ve yaptım .Length. Benim için bayt saymak için küçük bir program yazabilirim, ancak bahse girerim bilmiyorum daha kolay bir yol var.

JavaScript (ES6) - 185 177 175 170 bayt

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

Bunu Firefox konsoluna koyun ve aşağıdaki gibi çalıştırın 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 bayt

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

Girdi, işleve parametre olarak geçti; işlevi çıktı dizesini döndürür. Çıktının sonunda takip eden bir yeni satır var.

Açıklama: Dize ile çapraz bir matris yarattık, sonra Reverse@#satırları tersine çevirerek dikey olarak çevrilmiş bir kopyasını oluşturduk . Daha sonra sadece 32 (ascii boşluk) içeren aynı boyutlarda üçüncü bir matrisimiz var. MapThreadBu 3 matrisin element-max değerini almak için kullanıyoruz . Sonunda, Riffleher satıra, Appendsonunda yeni bir satıra ve Flattensonucuna yer veriyoruz .

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

Bu C ++ olarak derlenmemiş olabilir, bu yüzden umarım kuralları ihlal etmedim :)

Perl - 90

Bundan daha fazla karakter sıkmak mümkün olabilir:

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

89+ 1için -n.

Çalıştır:

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

Çıktı:

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

T-SQL: 180

@İ değişkeninden girdi almak

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

Bu, başlangıçtaki ve sondaki tek karakterleri bir boşluk dizisine doldurur.

Test sonucu

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

Çıktılar:

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

Jöle , 11 bayt

LḶḤ⁶ẋ;"µ»ṚY

Çevrimiçi deneyin!

JavaScript (Node.js) , 81 bayt

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

EDIT : -1 Teşekkürler Joe King. TIO'nun CG için önceden biçimlendirilmiş doğrudan macun verdiğini görmedim.

Çevrimiçi deneyin!

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*

Ne kadar uzun olursa olsun, her zaman bir cevap olmalı ...

Java - 289 234 bayt

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

Berbat bir şekilde yapılan çıktı:

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

import java.util.ScannerKodun içine eklenmiş çünkü ithalatın bayt sayısına göre sayılıp sayılmadığını asla hatırlamıyorum .

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

Veya "Yalnızca ()" olarak:

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