Tantangan

Tugas Anda adalah membuat program yang mengambil input string apa pun, dan mengeluarkan input dalam format kuadrat. String kosong harus mengembalikan string kosong.

Contohnya

Diberikan input:

golf

Program Anda harus menampilkan:

golf
o  l
l  o
flog

Memasukkan:

123

Keluaran:

123
2 2
321

Memasukkan:

a

Keluaran:

a

Memasukkan:

Hello, world!

Output (perhatikan ruang antara, dan w - gap bukan hanya baris baru):

Hello, world!
e           d
l           l
l           r
o           o
,           w

w           ,
o           o
r           l
l           l
d           e
!dlrow ,olleH

Mencetak gol

Ini adalah kode-golf , jadi jawaban tersingkat di setiap bahasa menang.

Arang , 7 5 byte

θ‖Ｏ↙↘

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Sunting: Disimpan 2 byte berkat @CarlosAlejo. Penjelasan:

θ       Print the input string, making the top row
 ‖Ｏ     Reflect with overlap...
   ↙    ... down and left, to create the left side
    ↘   ... down and right, to create the bottom and right sides

(Beberapa arah ke perintah Reflect dijalankan secara berurutan daripada secara bersamaan.)

MATL , 20 16 11 byte

otYTO6Lt&(c

Cobalah di MATL online!

EDIT: Kode berfungsi pada rilis 20.2.1, yang ada sebelum tantangan. Tautan menggunakan rilis itu. (Dalam 20.2.2 kodenya akan lebih pendek, tetapi ini mengungguli tantangan).

Penjelasan

o     % Implicitly input a string. Convert chars to ASCII codes
t     % Duplicate
YT    % 2-input Toeplitz matrix
O     % Push 0
6L    % Push predefined literal [2, -1+1j]. When used as an index, this is
      % interpreted as 2:end-1 (indexing is 1-based)
t     % Duplicate
&(    % 4-input assignment indexing. This writes 0 at the square formed by
      % rows 2:end-1 and columns 2:end-1 
c     % Convert to char. Char 0 is shown as space. Implicitly display

Jelly ,  29 22  17 byte

Charcoal akan mengalahkan + d skor ini ...

J⁶ẋa0,1¦"ṚṚ;$ṖŒḌY

Tautan monadik yang mengambil dan mengembalikan daftar karakter; atau program lengkap mencetak hasilnya.

Cobalah online!

Bagaimana?

J⁶ẋa0,1¦"ṚṚ;$ṖŒḌY - Link: list of characters, w     e.g. "whole"
 ⁶                - literal space character              ' '
J                 - range(length(w))                     [1,2,3,4,5]
  ẋ               - repeat                               [" ","  ","   ","    ","     "]
         Ṛ        - reverse w                            "elohw"
        "         - zip with:
       ¦          -   sparse application of:
   a              -     and (vectorises)
    0,1           -     to indexes: [0,1] (last and 1st) ["e","ll","o o","h  h","w   w"]
            $     - last two links as a monad:
          Ṛ       -   reverse                            ["w   w","h  h","o o","ll","e"]
           ;      -   concatenate                        ["w   w","h  h","o o","ll","e","e","ll","o o","h  h","w   w"]
             Ṗ    - pop (remove last entry)              ["w   w","h  h","o o","ll","e","e","ll","o o","h  h"]
              ŒḌ  - reconstruct matrix from diagonals    ["whole","h   l","o   o","l   h","elohw"]
                Y - join with newlines                   "whole\nh   l\no   o\nl   h\nelohw"
                  - if running as a full program implicit print

C, 109 byte

i,j;f(char*s){for(i=j=printf("%s\n",s)-2;1[++s];)printf("%c%*c\n",*s,i,s[j-=2]);for(;*s*~i--;)putchar(*s--);}

Cobalah online!

Trik yang patut diperhatikan:

• Alih-alih menghabiskan byte strlen, kita cukup mengambil panjang string sekaligus mencetak baris pertama:

  i=j=printf("%s\n",s)-2

  Ini berfungsi karena printfmengembalikan jumlah byte yang ditulis.

• Untuk garis tengah, kita perlu mengulang string tetapi mengecualikan karakter pertama dan terakhir. Ini dicapai dengan kondisi

  1[++s]

  (yang lebih pendek dari (++s)[1]), yang melompati karakter pertama karena ++ada dalam kondisi dan melompati yang terakhir dengan berhenti ketika karakter melewati karakter saat ini '\0'(daripada berhenti di '\0' ).

• Dalam tubuh loop pertama,

  printf("%c%*c\n",*s,i,s[j-=2])

  kita mencetak karakter saat ini, kemudian karakter "cermin" yang sesuai (melacak j, yang masuk ke negatif, menghasilkan situasi aneh pengindeksan ke dalam string dengan angka negatif) berlapis panjang idengan spasi (di mana iada dengan nyaman strlen(s) - 1).

• Pencetakan terbalik pada baris terakhir cukup mudah; satu-satunya trik adalah *s*~i--, yang merupakan cara terpendek untuk mendapatkan i+2iterasi dari loop body (yang tidak bergantung pada i; semua idigunakan adalah untuk menghitung). Bagian funky *s*memastikan loop tidak berjalan jika *sada '\0', yang terjadi pada input panjang-1.

Oktaf, 40 byte

@(s,t=toeplitz(s),u=t(x=2:end-1,x)=32)t;

Cobalah online!

Ini adalah jawaban saya tetapi diposting setelah @Luis MATL menjawab

Haskell , 84 78 byte

f s@(_:x)|_:y<-r x=s:[a:(y>>" ")++[b]|(a,b)<-zip x y]++[r s];f s=[s]
r=reverse

Cobalah online! Penggunaan: f "test". Mengembalikan daftar garis.

Sunting: -6 bytes berkat dianne!

Python 2 , 89 81 88 86 byte

i=input();n=k=len(i)-2
print i
exec'print i[~k]+" "*n+i[k];k-=1;'*n
if~k:print i[::-1]

Cobalah online!

R , 113 byte

function(s){n=length(s<-strsplit(s,'')[[1]])
m=matrix(' ',n,n)
m[n,n:1]=m[,1]=m[1,]=m[n:1,n]=s
write(m,'',n,,'')}

Cobalah online!

05AB1E , 17 16 15 19 byte

ÂDÂø¦¨Dgú€Ás)˜»Igi¨

Cobalah online!

Penjelasan

Contoh dengan input = golf

ÂDÂ                  # bifurcate, duplicate, bifurcate
                     # STACK: 'golf', 'flog', 'flog', 'golf'
   ø                 # zip the top 2 items
                     # STACK: 'golf', 'flog', ['fg', 'lo', 'ol', 'gf']
    ¦¨               # remove the first and last element
                     # STACK: 'golf', 'flog', ['lo', 'ol']
      Dg             # get the length of the list
                     # STACK: 'golf', 'flog', ['lo', 'ol'], 2
        ú            # prepend that many spaces to each element
                     # STACK: 'golf', 'flog', ['  lo', '  ol']
         €Á          # rotate each right
                     # STACK: 'golf', 'flog', ['o  l', 'l  o']
           s         # swap the top 2 items
                     # STACK: 'golf', ['o  l', 'l  o'], 'flog'
            )˜       # wrap in a flattened list
                     # STACK: ['golf', 'o  l', 'l  o', 'flog']
              »      # join on newline
               Igi¨  # if input is length 1, remove last char

Perbaikan untuk input 1 huruf cukup mahal.
Saya merasa pendekatan yang berbeda mungkin lebih baik sekarang.

Python 2 , 99 88 byte

-4 byte terima kasih kepada musicman523.

lambda s:s[1:]and[s]+[s[i]+' '*(len(s)-2)+s[~i]for i in range(1,len(s)-1)]+[s[::-1]]or s

Cobalah online!

Mengembalikan daftar string.

Mathematica, 128 byte

(c=Column;g=Length[x=Characters@#]-1;If[g==0,#,c@{#,c@Table[""<>{x[[i]],""<>Table[" ",g-1],x[[-i]]},{i,2,g}],StringReverse@#}])&

C, 96 byte

i,l;f(char*s){for(i=l=puts(s)-2;--i;)printf("%c%*c\n",s[l-i],l,s[i]);for(;l+1;)putchar(s[l--]);}

Versi bonus (122 byte):

x,y,i,l;f(char*s){for(i=l=puts(s)-1;++i<l*-~l;putchar(x==l?10:x%~-l*(y%~-l)?32:s[(x*y?l+l-2-x-y:x+y)%l]))x=i%-~l,y=i/-~l;}

Swift 3 , 215 199 byte

let s=readLine()!,c=s.characters,r:[Character]=c.reversed(),b=c.count
print(s)
if b>1{for i in 0..<b-2{print("\(r.reversed()[i+1])\(String.init(repeating:" ",count:b-2))\(r[i+1])")};print(String(r))}

Cobalah online

Python 3, 88 byte

w=input();p=print;l=len(w)-2
[p(w[n+1]+' '*l+w[l-n])for n in range(l)]
l+1and p(w[::-1])

JavaScript (ES8), 108 112 byte

let f = 

s=>(n=s.length)<2?s:(r=[...s].reverse()).slice(1,-1).reduce((a,v,i)=>a+`
`+s[i+1].padEnd(n-1)+v,s)+`
`+r.join``

o.innerHTML = f("hello folks!")

<pre id="o"></pre>

Kurang golphed

s=>
   (n=s.length) < 2 ?    // record and check length
   s :                   // s has 0 or 1 char, else
   (r=[...s].reverse())  // reverse characters,
   .slice(1,-1)          // exclude 1st and last
   .reduce((a,v,i)=>     // append inner lines
      a +'\n' +s[i+1].padEnd(n-1) + v
    ,s)                  // to first line
    + '\n' +r.join("")   // append characters reversed

Terima kasih kepada Justin Mariner karena telah menghemat banyak byte, yang kemudian digunakan untuk menambahkan nol atau cek karakter tunggal yang diperlukan untuk mematuhi tantangan. Anda mendapatkan itu :-(

PHP , 118 byte

echo $s=$argv[1];$l=strlen($r=strrev($s))-1;for($i=$l-1;$l&&$i;)echo "\n".str_pad($r[$i],$l).$s[$i].(--$i?"":"\n$r");

Cobalah online!

echo $s = $argv[1];
$l = strlen($r = strrev($s)) - 1;

for ($i = $l - 1; $l && $i;)
    echo "\n" . str_pad($r[$i], $l) . $s[$i] . (--$i ? "" : "\n$r");

APL , 58 byte

{(' ',⍵)[x+(x←∘.{((c-1)=⍺⌈⍵)∨0=⍺⌊⍵}⍨r)×o⌊⌽⊖o←∘.⌈⍨r←⍳c←≢⍵]}

Dengan ⎕IO←0.

Cobalah online!

Bagaimana?

c←≢⍵ - panjang tali

r←⍳ - jarak

o←∘.⌈⍨ - produk luar dengan minimum

123
223
333

o⌊⌽⊖- meminimalkan dengan sendirinya berbalik 180 ^o

123  ⌊  333  =  123
223  ⌊  322  =  222
333  ⌊  321  =  321

× - kalikan dengan

x←∘....⍨r - produk luar kisaran dengan

    ((c-1)=⍺⌈⍵)∨0=⍺⌊⍵ - bingkai matriks

111  ×  123  =  123
101  ×  222  =  202
111  ×  321  =  321

x+ - tambahkan bingkai

111  +  123  =  234
101  +  202  =  303
111  +  321  =  432

(' ',⍵)[...] - dapatkan dengan indeks dari string yang disatukan ke luar angkasa

JavaScript (ES2017), 87 byte

s=>[...s].reverse(l=s.length-1).map((c,i,z)=>i?l-i?s[i].padEnd(l)+c:z.join``:s).join`
`

Versi ES6: 93 byte

s=>[...s].reverse(l=s.length-1).map((c,i,z)=>i?l-i?s[i]+' '.repeat(l-1)+c:z.join``:s).join`
`

Kurang golf

s => (
  l = s.length-1,
  [...s].reverse().map( // scan string backwards
     (c, i, z) => 
     i != 0 // check if top row
     ? l-i != 0 // check if bottom row
       ? s[i].padEnd(l) + c // any middle row
       : z.join`` // bottom row: string reversed
     :s // top row: original string
  ).join`\n`
)

F=
s=>[...s].reverse(l=s.length-1).map((c,i,z)=>i?l-i?s[i].padEnd(l)+c:z.join``:s).join`
`

function update() {
  O.textContent = F(I.value)
}

update()

<input id=I value='Hello, world!' oninput='update()'>
<pre id=O></pre>

Java, 191 byte

(s)->{PrintStream o=System.out;int l=s.lenght();o.println(s);for(int i=0;i<l;i++){o.printf("%"+"s%"+(l-1)+"s%n",s.charAt(i),s.charAt(l-1-i));for(int i=0;i<l;i++){o.print(s.charAt(l-1-i));}}};

C # (.NET Core) , 179 161 byte

-18 byte terima kasih kepada TheLethalCoder

using System.Linq;
s=>{int l=s.Length-1,i=1;var d=s.Reverse().ToArray();while(i<l)s+="\n"+s[i]+new string(' ',l-1)+d[i++];if(l>1)s+="\n"+new string(d);return s;};

Cobalah online!

Saya tidak yakin tentang aturan, apakah ini diperlukan untuk menghitung byte atau tidak:

using System.Linq;

Seseorang tolong perbaiki saya tentang ini.

Tidak Disatukan:

s =>
{
    int l = s.Length - 1, i = 1;
    var d = s.Reverse().ToArray();
    while (i < l)
        s += "\n" + s[i] + new string(' ', l - 1) + d[i++];
    if (l > 1)
        s += "\n" + new string(d);
    return s;
};

Retina , 106 byte

..+
$&¶$&
O$^`.(?=.*$)

\G.
$&$%'¶
r`.\G
¶$%`$&
+`(.+)¶¶((.*¶)*).(.*)
¶¶$1$4$2
T`p` `(?<=.¶.).*(?=.¶.)
G`.

Cobalah online! Penjelasan:

..+
$&¶$&

Jika setidaknya ada dua karakter, duplikat input.

O$^`.(?=.*$)

Membalik duplikat.

\G.
$&$%'¶
r`.\G
¶$%`$&

Ubah string menjadi segitiga. Segitiga atas dimulai dengan input dan menghapus karakter pertama setiap kali, sedangkan segitiga bawah dimulai dengan huruf pertama dari input terbalik dan menambahkan karakter setiap kali.

+`(.+)¶¶((.*¶)*).(.*)
¶¶$1$4$2

Gabungkan segitiga bersama-sama, tumpang tindih sehingga karakter terakhir membentuk /diagonal.

T`p` `(?<=.¶.).*(?=.¶.)

Ubah semua karakter menjadi spasi, jika setidaknya ada satu karakter dari ujung di setiap sisi.

G`.

Hapus semua baris kosong yang tersisa.

Python 3, 85 byte

Menggunakan input untuk baris paling atas :)

a=input()
b=len(a)
for i in range(b-2):print(a[1+i]+" "*(b-2)+a[-2-i])
print(a[::-1])

Lua , 104 byte

print(s);for a=2,#s-1 do print(s:sub(a,a)..(" "):rep(#s-2)..s:sub(#s-a+1,#s-a+1)) end;print(s:reverse())

Cobalah online!

Python 3, 106 byte

Versi fungsional ...

w=input();p=print;l=len(w)-2
def f(k):p(w[k]+' '*l+w[-k-1]);l-k>0and f(k+1)
l<0 or f(1)or l<1or p(w[::-1])

Python 2 , 100 byte

lambda a:'\n'.join([a]+(len(a)>1)*([a[i]+(len(a)-2)*' '+a[~i]for i in range(1,len(a)-1)]+[a[::-1]]))

Cobalah online!

Mathematica, 138 91 byte

(b=Outer[" "&,#,#];Do[l={{1,k},{k,1}};b=ReplacePart[b,Join[l,-l]->#[[k]]],{k,Length@#}];b)&

Anda dapat mencobanya secara online dengan menempelkan yang berikut di Wolfram Cloud Sandbox dan mengklik "evaluasi sel" atau menekan Shift + Enter atau Numpad Enter:

(b=Outer[" "&,#,#];Do[l={{1,k},{k,1}};b=ReplacePart[b,Join[l,-l]->#[[k]]],{k,Length@#}];b)&@{"g","o","l","f","y"}//MatrixForm