Spodziewałem się opublikować coś bardziej złożonego jako moją pierwszą łamigłówkę w PCG, ale szczególne pytanie ... o pracę domową w Stack Overflow zainspirowało mnie do opublikowania tego. Chcą:

wydrukuj następujący wzór dla dowolnego słowa zawierającego nieparzystą liczbę liter:

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

c ++

Zwróć uwagę, że litery to ruch rycerza na wzór, który chcesz wydrukować. Tak więc każda inna kolumna jest pusta. - (Dzięki xnor za zwrócenie na to uwagi.)

Zasady

1. Używanie C ++ jest zabronione. Ponieważ mogę tam powiązać to pytanie.
2. Możesz użyć stdoutlub w jakikolwiek sposób, aby szybko wygenerować ciąg znaków (np. alert()W JavaScript).
3. Jak zawsze, najkrótszy kod wygrywa.

Pyth , 22 lata

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

Test:

$ 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

Wyjaśnienie:

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

Pobiera dane z klawiatury, takie jak:

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

Wkład:

"CODE-GOLF"

Wydajność:

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

Python 3: 75 znaków

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

W przypadku wiersza izaczynamy od listy spacji i ustawiamy wpisy iod przodu i od tyłu, aby były równe literom ciągu wejściowego. Następnie wydrukujemy wynik.

Ciągi w języku Python są niezmienne, więc azamiast tego musi być lista znaków. Lista amusi zostać zainicjowana wewnątrz pętli, inaczej zmiany będą przenoszone między pętlami. Używamy print(*a)do drukowania każdego znaku na liście, oddzielając spacje, co wymaga Python 3.

Linie wyjściowe są symetryczne, więc możemy iodliczać, a nie zwiększać za pomocą pętli while.

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

Działa również na parzystą liczbę liter.

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

CJam, 27 25 bajtów

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

Wypróbuj online.

Przykładowy przebieg

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

Jako przykład w odpowiedzi każda linia ma końcowe białe znaki.

Jak to działa

                             " 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

Prosta pętla zagnieżdżona, tutaj nie dzieje się nic specjalnego.

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

Z podziałami linii:

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 bajty

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

Wyjaśnienie

• Dane wejściowe są traktowane jako argument dla lambda. Oczekuje String.
• W pętli, która zapętla wszystkie znaki w słowie ( nłącznie):
  • Utwórz ciąg składający się ze nspacji.
  • Zastąp ith i n-ith ( ~idzięki xnor) spacją ith i n-ith znakiem wejścia.
  • Wydrukuj linię

JavaScript (E6) 101 95 129 136

Edytuj Niewłaściwe odstępy między literami. Naprawiony.
Edytuj Prostsze i krótsze za pomocą klasycznych pętli
Jako funkcja, wyprowadzaj przez wyskakujące okienko.

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

Poprzednia wersja korzystająca z .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'))

Testuj w konsoli FireFox / FireBug

F('Java-Script')

Wydajność

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

Możesz to przetestować tutaj . Przy każdym przejściu pojawi się okno dialogowe wprowadzania danych ~; wprowadzaj słowo po jednym znaku na raz (w końcu oznacza to, że wpis jest „klunky”), kończąc spacją.

Nie będzie drukować na konsoli; w końcu nie byłoby to Befunge bez śladu samodoskonalenia! Zamiast tego zmodyfikuje własną siatkę, aby wyświetlić komunikat. Po zakończeniu siatka będzie wyglądać mniej więcej tak:

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

(Zwróć uwagę na szlachetne poświęcenie komórki w (0,0), gdy wiemy, że wskaźnik już tam nie pójdzie, w celu przechowywania fragmentu danych.)

Działa również z wejściami o równej długości. Zauważ, że ponieważ Befunge-93 jest ograniczony do siatki 80x25, rozmiar wejściowy jest ograniczony do 21 znaków, jeśli uruchomisz go w interpreterie Befunge-93. Uruchamianie go jako Befunge-98 powinno usunąć ten limit.

Edycja - teraz działa bardziej zgodnie z zamierzonym wyjściem, kosztem tylko trzech znaków długości.

JavaScript 102 84 85

Edycja: musiał naprawić odstępy. Już nie taki mały.

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 bajty

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

Sprawdź to tutaj. Odczytuje słowo wejściowe ze STDIN. Działa również dla parzystej liczby znaków. Spowoduje to wydrukowanie końcowej kolumny spacji, ale nie widzę nic w regułach przeciwko temu.

Wyjaśnienie

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

Zawartość stosu jest drukowana automatycznie na końcu programu.

C 105

dwa nieco inne sposoby na zrobienie tego.

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

Jeśli chcesz dodać dodatkowe spacje, należy wymienić putchar(z printf(" %c",za dodatkową 5 znaków.

J - 36 30 bajtów:

Edycja: 6 znaków krótszych, kredyty trafiają do @algorithmshark .

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

na przykład:

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

Bonus: działa również z łańcuchami o równej długości:

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

Prolog - 240 bajtów

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

Wezwanie:

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

Czytelny:

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

Płótno , 5 bajtów

＼＼：⇵ｎ

Wypróbuj tutaj!

Wyjaśnienie:

\      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 bajtów

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

Wypróbuj online!

Wiersz 1 odczytuje łańcuch wejściowy, dzieli go na znaki, przechowuje jego długość i tworzy matrycę ze słowem na głównej przekątnej - litery tego słowa są nakładane na matrycę tożsamości (i domyślnie powtarzane w celu dopasowania do długości) i tylko te pasujące 1 są zachowywane, inne zastępowane są spacjami.

Linia 2 drukuje matrycę utworzoną z elementów matrycy ukośnej lub jej lustrzanej wersji, w zależności od tego, która wartość jest większa.

-2 + 1 = -1 bajt dzięki JayCe

−4 bajty dzięki Giuseppe

C # ( 214 212)

(Z pewnością źle) Wersja w golfa:

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

Wersja bez golfa:

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

Wszelkie podpowiedzi, porady, wskazówki i uwagi są bardzo mile widziane, ponieważ jest to moja pierwsza próba CodeGolf. Chciałem tylko spróbować, choć wiem, że mój bajt C # nie zbliży się nawet do podwojenia najlepszych rozwiązań;)

A jak liczycie bajty? Właśnie zamieściłem powyższe w oknie Quick Watch i zrobiłem to .Length. Mógłbym napisać mały program do liczenia bajtów dla mnie, ale założę się, że istnieje łatwiejszy sposób, którego jeszcze nie znam.

JavaScript (ES6) - 185 177 175 170 bajtów

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

Umieść to w konsoli Firefox i uruchom jako 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 bajtów

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

Dane wejściowe przekazywane jako parametr do funkcji; funkcja zwraca ciąg wyjściowy. Na końcu wyniku znajduje się końcowy znak nowej linii.

Objaśnienie: Tworzymy macierz ukośną ze sznurkiem, a następnie tworzymy jej kopię odwróconą w pionie za pomocą, Reverse@#aby odwrócić rzędy. Następnie mamy trzecią macierz o takich samych wymiarach, zawierającą tylko 32 (przestrzeń ascii). Używamy MapThreaddo wzięcia pod uwagę elementu tych 3 macierzy. Na koniec Rifflespacje w każdym rzędzie, Appendnowa linia na końcu i Flattenwynik.

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

To może nie być skompilowane jako C ++, więc mam nadzieję, że nie naruszyłem zasad :)

Perl - 90

Może być możliwe wyciśnięcie kilku innych postaci z tego:

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

89+ 1dla -n.

Biegnij z:

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

Wydajność:

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

T-SQL: 180

Biorąc dane wejściowe ze zmiennej @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

Powoduje to umieszczanie pojedynczych znaków w / zmniejszanie od początku i na końcu w ciągu spacji.

Wynik testu

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

Wyjścia:

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

Galaretka , 11 bajtów

LḶḤ⁶ẋ;"µ»ṚY

Wypróbuj online!

JavaScript (Node.js) , 81 bajtów

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

EDYCJA : -1 Dzięki Joe King. Nie widziałem, że TIO daje wstępnie sformatowaną bezpośrednią pastę dla CG.

Wypróbuj 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*

Nie ważne jak długo, zawsze będzie odpowiedź w ...

Java - 289 234 bajty

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

Nie golfowany:

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

Wyjściowo wykonane, jest:

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

Dodałem import java.util.Scannerkod wewnętrzny, ponieważ nigdy nie pamiętam, czy import liczy się do liczby bajtów ... Cholera, naprawdę jestem do niczego.

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

Lub jako „Tylko główny ()”:

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