挑战

您的任务是创建一个程序，该程序接受任何给定的字符串输入，并以平方格式输出输入。空字符串应返回一个空字符串。

例子

给定输入：

golf

您的程序应输出：

golf
o  l
l  o
flog

输入：

123

输出：

123
2 2
321

输入：

a

输出：

a

输入：

Hello, world!

输出（注意，和之间的空格-间隙不只是换行符）：

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

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

计分

这是代码高尔夫球，因此每种语言中最短的答案将获胜。

木炭，7 5字节

θ‖Ｏ↙↘

在线尝试！链接是详细版本的代码。编辑：由于@CarlosAlejo，节省了2个字节。说明：

θ       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

（指向“反射”命令的多个方向连续而不是同时运行。）

MATL，20 16 11字节

otYTO6Lt&(c

在线尝试在MATL！

编辑：该代码在发行版20.2.1中有效，该版本早于挑战。链接使用该版本。（在20.2.2中，代码会更短一些，但是会推迟挑战时间）。

说明

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

果冻， 29 22  17 字节

木炭 会 为此分数而颤抖 ...

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

单子链接，获取并返回字符列表；或完整程序打印结果。

在线尝试！

怎么样？

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位元组

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

在线尝试！

值得注意的技巧：

• 与其浪费字节strlen，不如简单地获取字符串的长度，同时打印第一行：

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

  之所以有效，是因为printf返回了写入的字节数。

• 对于中间的行，我们需要遍历字符串，但要排除第一个和最后一个字符。这是通过以下条件实现的

  1[++s]

  （比短(++s)[1]），它会由于++处于条件中而跳过第一个字符，并在当前字符之后的字符停止时'\0'（而不是在 '\0'）停止播放，从而跳过最后一个字符。

• 在第一个循环的主体中

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

  我们打印当前的字符，然后“镜像”相应的字符（跟踪用j，这并进入底片，从而在奇数情况的索引的与一个负号的字符串）填充到长度为i用空格（其中i是方便strlen(s) - 1）。

• 最后一行的反转打印非常简单；唯一的窍门是*s*~i--，这是获得i+2循环体迭代的最短方法（不依赖i；所有i用于计数）。时髦的*s*部分可以确保如果*sis为'\0'，则循环不会运行，这是在length-1输入上发生的。

八度，40字节

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

在线尝试！

这是我的答案，但张贴在@Luis MATL答案之后

Haskell，84 78字节

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

在线尝试！ 用法：f "test"。返回行列表。

编辑： -6字节，感谢黛安娜！

Python 2中，89个 81 88 86字节

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

在线尝试！

R，113字节

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

在线尝试！

05AB1E，17 16 15 19字节

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

在线尝试！

说明

例子 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

1个字母输入的修复非常昂贵。
我觉得现在使用其他方法可能会更好。

Python 2中，99 88个字节

-4字节，感谢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

在线尝试！

返回字符串列表。

Mathematica，128个字节

(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字节

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

奖励版本（122字节）：

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

迅速3，215个 199字节

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

在线尝试

Python 3，88个字节

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字节

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>

少了

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

感谢Justin Mariner节省了大量字节，然后所有字节都累了，添加了应对挑战所需的零或单个字符检查。你明白了:-(

PHP，118字节

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

在线尝试！

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字节

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

用⎕IO←0。

在线尝试！

怎么样？

c←≢⍵ -字符串的长度

r←⍳ - 范围

o←∘.⌈⍨ -外部产品最少

123
223
333

o⌊⌽⊖- minimalize与自身转过180 ^ö

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

× -与

x←∘....⍨r -具有以下范围的外积

    ((c-1)=⍺⌈⍵)∨0=⍺⌊⍵ -矩阵的框架

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

x+ -添加框架

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

(' ',⍵)[...] -从连接到空格的字符串中按索引获取

JavaScript（ES2017），87个字节

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

ES6版本：93个字节

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

少打高尔夫球

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个字节

(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），179161字节

-18个字节，感谢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;};

在线尝试！

我不确定规则，是否需要字节计数：

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

视网膜，106字节

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

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

在线尝试！说明：

..+
$&¶$&

如果至少有两个字符，请重复输入。

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

反转重复项。

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

将字符串变成三角形。顶部三角形从输入开始，每次删除第一个字符，而底部三角形从反向输入的第一个字母开始，每次添加一个字符。

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

将三角形连接在一起，重叠，以便最后一个字符形成/对角线。

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

如果所有字符距两端的末端至少一个字符，请将其更改为空格。

G`.

删除任何剩余的空白行。

Python 3，85个字节

使用第一行的输入：)

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个字节

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

在线尝试！

Python 3，106个字节

功能版本...

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字节

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

在线尝试！

Mathematica，138 91个字节

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

您可以通过在Wolfram Cloud Sandbox上粘贴以下内容，然后单击“评估单元格”或按Shift + Enter或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