Giới thiệu:

Lấy cảm hứng từ nhận xét này của @MagicOctopusUrn trên @Emigna 's câu trả lời 05AB1E cho tôi ' Đó chỉ là một lỗi ' thách thức :

8F9ÝÀNð×ý}».∊Tôi đã làm một con tàu vũ trụ! Và tôi rất phấn khích khi đề xuất chỉnh sửa 12 byte. - Bạch tuộc ma thuật Urn ngày 17 tháng 7 năm 17 lúc 20:10

Đó là chương trình 05AB1E (di sản) dẫn đến điều này:

1234567890
1 2 3 4 5 6 7 8 9 0
1  2  3  4  5  6  7  8  9  0
1   2   3   4   5   6   7   8   9   0
1    2    3    4    5    6    7    8    9    0
1     2     3     4     5     6     7     8     9     0
1      2      3      4      5      6      7      8      9      0
1       2       3       4       5       6       7       8       9       0
1      2      3      4      5      6      7      8      9      0
1     2     3     4     5     6     7     8     9     0
1    2    3    4    5    6    7    8    9    0
1   2   3   4   5   6   7   8   9   0
1  2  3  4  5  6  7  8  9  0
1 2 3 4 5 6 7 8 9 0
1234567890

Hãy thử trực tuyến.

Thử thách:

Đầu vào: Một chuỗi không trống

Đầu ra: Từ bên ngoài đi vào bên trong, thêm một khoảng trắng giữa mỗi ký tự mỗi dòng, tương tự như được thực hiện ở đầu ra ở trên, bằng với length - 1. Vì vậy, đối với một đầu vào 1234567890, đầu ra thực sự sẽ là thế này:

1234567890
1 2 3 4 5 6 7 8 9 0
1  2  3  4  5  6  7  8  9  0
1   2   3   4   5   6   7   8   9   0
1    2    3    4    5    6    7    8    9    0
1     2     3     4     5     6     7     8     9     0
1      2      3      4      5      6      7      8      9      0
1       2       3       4       5       6       7       8       9       0
1        2        3        4        5        6        7        8        9        0
1         2         3         4         5         6         7         8         9         0
1        2        3        4        5        6        7        8        9        0 
1       2       3       4       5       6       7       8       9       0
1      2      3      4      5      6      7      8      9      0
1     2     3     4     5     6     7     8     9     0
1    2    3    4    5    6    7    8    9    0
1   2   3   4   5   6   7   8   9   0
1  2  3  4  5  6  7  8  9  0
1 2 3 4 5 6 7 8 9 0
1234567890

Tại sao? Độ dài của 1234567890là 10. Vì vậy, chúng tôi bắt đầu bằng cách xuất ra 10 dòng: dòng đầu tiên không có khoảng trắng; thứ hai với một dấu phân cách không gian; thứ ba với hai; vv Và sau đó (không có đường giữa với các length - 1khoảng trắng được nhân đôi), chúng ta quay trở lại đầu vào ban đầu trong khi đi xuống.

Quy tắc thử thách:

• Đầu vào được đảm bảo không trống (chiều dài >= 1). (Đối với các đầu vào char đơn, chúng ta chỉ cần xuất ký tự đó.)
• Bất kỳ số lượng dấu vết / khoảng trắng hàng đầu / dòng mới nào đều được cho phép, miễn là bản thân đầu ra (bất cứ nơi nào trên màn hình) là chính xác. (Các dòng trống ở giữa các dòng đầu ra cũng không được phép.)
• Đầu vào sẽ chỉ chứa các ký tự ASCII có thể in được, ngoại trừ khoảng trắng (phạm vi điểm mã [33, 126])
• I / O là linh hoạt. Đầu vào có thể được lấy dưới dạng STDIN, đối số hoặc tham số hàm. Có thể là một danh sách / mảng / luồng ký tự thay vì chuỗi. Đầu ra cũng có thể là một danh sách / mảng / luồng ký tự thay vì chuỗi; có thể được in ra STDOUT; trả về dưới dạng chuỗi phân cách dòng mới; v.v.

Quy tắc chung:

• Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte thắng.
  Đừng để ngôn ngữ mã-golf ngăn cản bạn đăng câu trả lời với các ngôn ngữ không mã hóa. Cố gắng đưa ra một câu trả lời càng ngắn càng tốt cho ngôn ngữ lập trình 'bất kỳ'.
• Các quy tắc chuẩn áp dụng cho câu trả lời của bạn, vì vậy bạn được phép sử dụng STDIN / STDOUT, các hàm / phương thức với các tham số thích hợp và kiểu trả về, các chương trình đầy đủ. Cuộc gọi của bạn.
• Lỗ hổng mặc định bị cấm.
• Nếu có thể, vui lòng thêm một liên kết với một bài kiểm tra cho mã của bạn.
• Ngoài ra, thêm một lời giải thích cho câu trả lời của bạn rất được khuyến khích.

Các trường hợp thử nghiệm:

Input: @
Output:
@

Input: test
Output:
test
t e s t
t  e  s  t
t   e   s   t
t  e  s  t
t e s t
test

Input: ?!
Output:
?!
? !
?!

Input: Spaceship
Output:
Spaceship
S p a c e s h i p
S  p  a  c  e  s  h  i  p
S   p   a   c   e   s   h   i   p
S    p    a    c    e    s    h    i    p
S     p     a     c     e     s     h     i     p
S      p      a      c      e      s      h      i      p
S       p       a       c       e       s       h       i       p
S        p        a        c        e        s        h        i        p
S       p       a       c       e       s       h       i       p
S      p      a      c      e      s      h      i      p
S     p     a     c     e     s     h     i     p
S    p    a    c    e    s    h    i    p
S   p   a   c   e   s   h   i   p
S  p  a  c  e  s  h  i  p
S p a c e s h i p
Spaceship

Input: 05AB1E
Output:
05AB1E
0 5 A B 1 E
0  5  A  B  1  E
0   5   A   B   1   E
0    5    A    B    1    E
0     5     A     B     1     E
0    5    A    B    1    E
0   5   A   B   1   E
0  5  A  B  1  E
0 5 A B 1 E
05AB1E

Input: )}/\
Output:
)}/\
) } / \
)  }  /  \
)   }   /   \
)  }  /  \
) } / \
)}/\

Japt , 8 6 byte

Lấy đầu vào là một mảng các ký tự, xuất ra một chuỗi các chuỗi.

£qYçÃê

Thử nó

Giải trình

£          :Map each element at (0-based) index Y
 q         :  Join input with
  Yç       :   Space repeated Y times
    Ã      :End Map
     ê     :Palindromise

Bản gốc, 8 byte

I / O là một chuỗi. Sử dụng -Rcờ. Bao gồm các dấu cách trên mỗi dòng.

¬£múYÄÃê

Thử nó

Giải trình

             :Implicit input of string U
¬            :Split
 £           :Map each character at 0-based index Y
  m          :  Map original U
   ú         :    Right pad with spaces to length ...
    YÄ       :     Y+1
      Ã      :End map
       ê     :Palindromise
             :Implicitly join with newlines

R , 105 99 85 84 79 byte

-6 cảm ơn @Kevin Cruissen và @Giuseppe

-14 từ thay đổi sang phương pháp dựa trên regex

-1 cảm ơn @Giuseppe

-5 cảm ơn @digEmALl

function(w,n=nchar(w)-1)write(trimws(Map(gsub,"",strrep(" ",n-abs(n:-n)),w)),1)

Hãy thử trực tuyến!

JavaScript (ES6), 53 byte

Đưa đầu vào như một mảng các ký tự.

f=(s,p=i='',o=s.join(p)+`
`)=>s[++i]?o+f(s,p+' ')+o:o

Hãy thử trực tuyến!

Than , 10 byte

Ｅθ⪫θ× κ‖Ｏ↓

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

Ｅθ          Map over characters of input string
  ⪫θ        Join characters of input string using
    ×       a literal space repeated 
      κ     current index number of times
            Implicitly print each result on its own line
       ‖Ｏ↓  Reflect vertically with overlap

Canvas , 8 byte

┐² ×＊］──

Hãy thử nó ở đây!

Các 7 byte phiên bản là quá tốt cho thách thức này ..

Python 2 , 72 70 68 66 65 byte

^{-2 byte nhờ Kevin Cruijssen
-3 byte nhờ các lò nướng}

w=input();c=s=-1
while c:print(' '*~c).join(w);s*=w[:c]>'';c+=s|1

Hãy thử trực tuyến!

05AB1E , 10 9 byte

Đã lưu 1 byte nhờ Adnan

εINð×ý}û»

Hãy thử trực tuyến!

Giải trình

ε            # apply to each in input
 I           # push the input
  Nð×        # push <index> spaces
     ý       # merge the input on the spaces
      }      # end loop
       û     # palendromize
        »    # join on newlines

Ruby , 54 49 byte

->a{(-(z=a.size-1)..z).map{|i|a*(?\s*(z-i.abs))}}

Hãy thử trực tuyến!

Lấy đầu vào dưới dạng một mảng các ký tự, xuất ra mảng các chuỗi.

Japt , 9 8 byte

-1 byte từ @Shaggy

ÊƬqXîÃê

ÊƬqXîÃê        Full program, implicity input U
ÊÆ              Rage from 0 to U length and map
  ¬             split U at ""
   qXîà     join U using " " times range current value
        ê       horizontal mirror

Hãy thử trực tuyến!

PowerShell , 66 54 byte

-12 byte nhờ mazzy

0..($x=($a=$args).count-1)+$x..0|gu|%{$a-join(' '*$_)}

Hãy thử trực tuyến!

Đưa đầu vào thông qua tính năng ghép hình, trên TIO biểu hiện dưới dạng các đối số dòng lệnh riêng biệt cho mỗi ký tự.

Đầu tiên chúng ta đặt $a=$argslàm đối số đầu vào. Sau đó, chúng tôi đặt $xbằng với .countmảng đó -1. Sau đó chúng ta cần lặp qua các chữ cái để xây dựng tàu vũ trụ. Điều đó được thực hiện bằng cách xây dựng một phạm vi từ 0đến $x, sau đó $xquay xuống 0, sau đó sử dụng Get-Uniqueđể lấy ra phạm vi phù hợp.

Mỗi lần lặp, chúng ta lấy các đối số đầu vào của chúng và -joinchúng cùng với số lượng khoảng trắng tương ứng. Mỗi chuỗi đó được để lại trên đường ống và một ẩn Write-Outputcho chúng ta những dòng mới miễn phí khi chương trình hoàn thành.

05AB1E (di sản) , 9 byte

εINúíJ}û»

Nhập dưới dạng danh sách các ký tự.

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

ε     }    # Map each character in the input to:
 I         #  Take the input
  Nú       #  Prepend each with the 0-indexed amount of spaces
           #   i.e. ["t","e","s","t"] & 3 → ["   t","   e","   s","   t"]
    í      #  Reverse each item
           #   i.e. ["   t","   e","   s","   t"] → ["t   ","e   ","s   ","t   "]
     J     #  Join them together to a single string
           #   i.e. ["t   ","e   ","s   ","t   "] → "t   e   s   t   "
       û»  # Palindromize the list, and join by newlines
           #  i.e. ["test","t e s t ","t  e  s  t  ","t   e   s   t   "]
           #   → "test\nt e s t \nt  e  s  t  \nt   e   s   t   \nt  e  s  t  \nt e s t \ntest"

Haskell , 60 59 byte

(init<>reverse).(scanl(?)<*>tail)
a?_=do u<-a;u:[' '|' '<u]

Hãy thử trực tuyến!

Giải trình

Đối với một chuỗi (ví dụ. "abc") Chúng tôi áp dụng đầu tiên

scanl (?) <*> tail

giống như

\str -> scanl (?) str (tail str)

Điều này được áp dụng nhiều lần (?)(nối thêm một khoảng trắng cho mỗi ký tự trong phạm vi [33 ..] ) chostr cho đến khi có nhiều chuỗi strcó ký tự:["abc","a b c ", "a b c "]

Bây giờ chúng ta chỉ cần nối kết quả (trừ phần tử cuối cùng) với phần bộ đếm đảo ngược của nó:

init<>reverse

MATL , 25 22 13 byte

zZv"Gtz@he!1e

Hãy thử trực tuyến!

Nhờ vào Luis Mendo vì đã gợi ý một golf 5 byte, sau đó đã truyền cảm hứng cho tôi để loại bỏ thêm 4 byte!

Giải thích, với ví dụ đầu vào 'abc':

         # Implicit input, 'abc'
z        # find number of nonzero elements (length of string)
         # stack: [3]
Zv       # symmetric range
         # stack: [[1 2 3 2 1]]
"        # begin for loop, iterating over [1 2 3 2 1] as the loop indices
G        # push input
         # stack: ['abc']
tz       # dup and push length
         # stack: ['abc', 3]
@        # push loop index, i (for example, 2)
         # stack: ['abc', 3, 2]
h        # horizontally concatenate
         # stack: ['abc', [3, 2]]
e!       # reshape to matrix of 3 rows and i columns, padding with spaces, and transpose
         # stack: [['abc';'   ';'   ']]
1e       # reshape to matrix of 1 row, leaving last value on stack
         # stack: ['a  b  c  ']
         # implicit end of for loop
         # implicit end of program, display stack contents

Thạch , 9 byte

jⱮLḶ⁶ẋƲŒḄ

Hãy thử trực tuyến!

Trả về một danh sách các dòng; sản lượng được bổ sung qua TIO.

Bình , 12 byte

Chỉ cần đệ trình Pyth bắt buộc của tôi. Tôi khá tự hào về điều này vì vậy một lời giải thích có thể sẽ đến sớm.

+P_=jRQ*L;_U

Hãy thử nó ở đây!

+P_=jRQ_.e*d

Hãy thử nó ở đây!

Stax , 10 byte

Ç·9ƒù▌╘Ä┘e

Chạy và gỡ lỗi nó

Đầu ra với khoảng trắng theo sau trên mỗi dòng.

Giải trình:

%R|pmx{]n(m Full program, unpacked, implicit input
%           Length of input
 R          1-based range
  |p        Palindromize
    m       Map:
     x{   m   Map over characters of input:
       ]        Character -> string
        n(      Right-pad to length given by outer map value
              Implicit flatten and output

Java (JDK 10) , 115 byte

s->{for(int l=s.length(),i=-l;++i<l;)System.out.printf(s.replaceAll(".","%-"+(i<0?l+i:l-i)+"s")+"%n",s.split(""));}

Hãy thử trực tuyến!

• -2 byte nhờ Kevin Cruijssen

K (oK) , 25 24 byte

Giải pháp:

,/'(1+a,1_|a:!#x)$\:+,x:

Hãy thử trực tuyến!

Giải trình:

Cổng giải pháp K4 của tôi :

,/'(1+a,1_|a:!#x)$\:+,x: / the solution
                      x: / save input as x
                     ,   / enlist
                    +    / flip
                 $\:     / pad ($) right by each-left (\:)
   (            )        / do this together
              #x         / count length of input,           e.g. 3
             !           / range 0..length,                 e.g. 0 1 2
           a:            / save as a
          |              / reverse it,                      e.g. 2 1 0
        1_               / drop first,                      e.g. 1 0
      a,                 / join to a,                       e.g. 0 1 2 1 0
    1+                   / add 1,                           e.g. 1 2 3 2 1
,/'                      / flatten (,/) each (')

Ghi chú:

• -1 byte nhờ ngn

Pascal (FPC) , 143 135 byte

var s:string;i,j,l:word;begin read(s);l:=length(s);repeat i:=i+1;for j:=1to l do write(s[j],'':l-abs(l-i)-1);writeln until i=l*2-1 end.

Hãy thử trực tuyến!

Tôi có lẽ sẽ chỉ giành chiến thắng trước Lenguage ...

PHP, 88 89 byte

for(;++$i<2*$e=count($a=str_split($argn));)echo join(str_pad("",~-$e-abs($i-$e)),$a),"\n";

yêu cầu PHP 5 trở lên cho str_split. Chạy như ống với -nRhoặc thử trực tuyến .

K4 , 23 byte

Giải pháp:

,/'(1+a,1_|a:!#x)$\:$x:

Thí dụ:

q)k),/'(1+a,1_|a:!#x)$\:$x:"Spaceship"
"Spaceship"
"S p a c e s h i p "
"S  p  a  c  e  s  h  i  p  "
"S   p   a   c   e   s   h   i   p   "
"S    p    a    c    e    s    h    i    p    "
"S     p     a     c     e     s     h     i     p     "
"S      p      a      c      e      s      h      i      p      "
"S       p       a       c       e       s       h       i       p       "
"S        p        a        c        e        s        h        i        p        "
"S       p       a       c       e       s       h       i       p       "
"S      p      a      c      e      s      h      i      p      "
"S     p     a     c     e     s     h     i     p     "
"S    p    a    c    e    s    h    i    p    "
"S   p   a   c   e   s   h   i   p   "
"S  p  a  c  e  s  h  i  p  "
"S p a c e s h i p "
"Spaceship"

Giải trình:

Có khoảng trắng ở cuối mỗi dòng.

,/'(1+a,1_|a:!#x)$\:$x: / the solution
                     x: / save input as x,                 e.g. "abc"
                    $   / string,                          e.g. (,"a";,"b";,"c")
                 $\:    / pad ($) right by each-left (\:)
   (            )       / do this together
              #x        / count length of input,           e.g. 3
             !          / range 0..length,                 e.g. 0 1 2
           a:           / save as a
          |             / reverse it,                      e.g. 2 1 0
        1_              / drop first,                      e.g. 1 0
      a,                / join to a,                       e.g. 0 1 2 1 0
    1+                  / add 1,                           e.g. 1 2 3 2 1
,/'                     / flatten each

C #, 113 105 98 byte

s=>{for(int l=s.Length,i=-l;++i<l;)WriteLine(Join("",s.Select(c=>$"{c}".PadRight(i<0?l+i:l-i))));}

Hãy thử trực tuyến!

Scala , 82 byte

for(i<-(0 to a.size)union(-a.size to 0))println(a.map(_+" "*Math.abs(i)).mkString)

Dùng thử trực tuyến

Scala có rất nhiều phím tắt đang giúp tôi ở đây và điều đó khá dễ đọc! Hãy thử Scala

Oracle SQL, 115 byte

Không phải ngôn ngữ chơi gôn nhưng ...

SELECT TRIM(REGEXP_REPLACE(v,'(.)',LPAD('\1',1+LENGTH(v)-ABS(LEVEL-LENGTH(v)))))FROM t CONNECT BY LEVEL<2*LENGTH(v)

Giả sử rằng giá trị nằm trong cột vcủa bảng t:

Câu đố SQL

Thiết lập lược đồ Oracle 11g R2 :

CREATE TABLE t ( v ) AS
  SELECT 'test' FROM DUAL;

Truy vấn 1 :

SELECT TRIM(REGEXP_REPLACE(v,'(.)',LPAD('\1',1+LENGTH(v)-ABS(LEVEL-LENGTH(v)))))
FROM   t
CONNECT BY LEVEL<2*LENGTH(v)

Các kết quả :

(SQLFiddle in các giá trị được căn phải trong cột vì một số lý do ... không có khoảng trắng hàng đầu)

| TRIM(REGEXP_REPLACE(V,'(.)',LPAD('\1',1+LENGTH(V)-ABS(LEVEL-LENGTH(V))))) |
|---------------------------------------------------------------------------|
|                                                                      test |
|                                                                   t e s t |
|                                                                t  e  s  t |
|                                                             t   e   s   t |
|                                                                t  e  s  t |
|                                                                   t e s t |
|                                                                      test |

Mã máy 8086, 56 53 byte

00000000  bf 35 01 57 ba 01 00 52  be 82 00 b3 ff ac 59 51  |.5.W...R......YQ|
00000010  aa 3c 0d 74 07 b0 20 e2  f7 43 eb f1 b0 0a aa 59  |.<.t.. ..C.....Y|
00000020  00 d1 e3 08 38 cb d6 08  c2 51 eb dc c6 05 24 5a  |....8....Q....$Z|
00000030  b4 09 cd 21 c3                                    |...!.|
00000035

Lắp ráp từ:

org 0x100
use16
        mov di, buffer
        push di
        mov dx, 1
        push dx
nextl:  mov si, 0x82
        mov bl, -1
nextc:  lodsb
        pop cx
        push cx
stor:   stosb
        cmp al, 0x0d
        je cr
        mov al, ' '
        loop stor
        inc bx
        jmp nextc
cr:     mov al, 0x0a
        stosb
        pop cx
        add cl, dl
        jcxz done
        cmp bl, cl
        salc
        or dl, al
        push cx
        jmp nextl
done:   mov [di], byte '$'
        pop dx
        mov ah, 0x09
        int 0x21
        ret
buffer:

Trường hợp thử nghiệm:

Haskell, 64 60 59 byte

(""#)
a#s|l<-(:a)=<<s,w<-' ':a=l:[x|w<(' '<$s),x<-w#s++[l]]

Hãy thử trực tuyến!

a#s                         -- take a string of spaces 'a' and the input string 's'
 |l<-(:a)=<<s               -- let 'l' be the current line, i.e. the spaces in 'a'
                            -- appended to each char in 's'
  w<-' ':a                  -- let 'w' be 'a' with an additional space   
 =l                         -- return that 'l'
   :[   |w<(' '<$s)   ]     -- and, if 'w' is shorter than 's',
     x  ,x<-w#s++[l]        -- followed by a recursive call with 'w' 
                            -- and by another copy of 'l'

(""#)                       -- start with an empty 'a'

Bash , 115 , 109 , 105 , 100 , 97 , 96 , 92 , 91 , 90 byte

-5 & -3 nhờ Kevin Cruissen

read s;for((c=f=1;f;c-=2*(f>=${#s}),f+=c))
{ printf '%-'${f}'.c' `grep -o .<<<"$s"`
echo
}

Hãy thử trực tuyến!

Lưu ý rằng vì \là char thoát shell, )}/\nên nhập trường hợp kiểm tra với phần bổ sung \như thế này : )}/\\.

Perl 6 , 43 byte

{(0....comb-1...0)>>.&{join ' 'x$^a,.comb}}

Hãy thử trực tuyến!

Trả về một danh sách các dòng.

Giải trình:

 {                                         }  # Anonymous code block
  (0....comb-1...0) # A list from
   0                  # 0
    ...               # to
       .comb-1        # the length of the input string -1
              ...     # back to
                 0    # 0
                   >>.&{                  }  # Map each number to
                        join        ,.comb   # Join the list of characters
                             ' 'x$^a         # With the number of spaces

C (gcc) , 131 129 111 byte

i;x;f(k,j)char*k,*j;{x=strlen(k)-1;for(i=0;i<x-~x;i+=puts(""))for(j=k;*j;)printf("%c%*s",*j++,i<x?i:2*x-i,"");}

Hãy thử trực tuyến!

-20 byte nhờ vào trần nhà !

#import<string.h>
i;x;f(k,j)char*k,*j;{x=strlen(k)-1;for(i=0;i<x-~x;i+=puts(""))for(j=k;*j;)printf("%c%*s",*j++,i<x?i:2*x-i,"");}

Hãy thử trực tuyến!

Hoặc, nếu độ dài có thể được chấp nhận làm tham số:

C (gcc), 105 102 byte

-1 byte nhờ trần nhà!

i;x;f(k,x,j)char*k,*j;{for(i=!x--;i<x-~x;i+=puts(""))for(j=k;*j;)printf("%c%*s",*j++,i<x?i:2*x-i,"");}

Hãy thử trực tuyến!

PHP, 148 146 143 141 byte

function s($s){for(;$i<strlen($s);++$i)f($i,$s);for(--$i;--$i>=0;)f($i,$s);}function f($i,$s){echo chunk_split($s,1,str_repeat(' ',$i))."
";}

Bạn có thể kiểm tra nó như thế này:

<?php
error_reporting(0);

$s = 1234567890;
function s($s){for(;$i<strlen($s);++$i)f($i,$s);for(--$i;--$i>=0;)f($i,$s);}function f($i,$s){echo chunk_split($s,1,str_repeat(' ',$i))."
";}

Đầu ra

1234567890
1 2 3 4 5 6 7 8 9 0 
1  2  3  4  5  6  7  8  9  0  
1   2   3   4   5   6   7   8   9   0   
1    2    3    4    5    6    7    8    9    0    
1     2     3     4     5     6     7     8     9     0     
1      2      3      4      5      6      7      8      9      0      
1       2       3       4       5       6       7       8       9       0       
1        2        3        4        5        6        7        8        9        0        
1         2         3         4         5         6         7         8         9         0         
1        2        3        4        5        6        7        8        9        0        
1       2       3       4       5       6       7       8       9       0       
1      2      3      4      5      6      7      8      9      0      
1     2     3     4     5     6     7     8     9     0     
1    2    3    4    5    6    7    8    9    0    
1   2   3   4   5   6   7   8   9   0   
1  2  3  4  5  6  7  8  9  0  
1 2 3 4 5 6 7 8 9 0 
1234567890

Hộp cát

Phiên bản mở rộng

 function s($s){
    //loop upwards 0-10
    for(;$i<strlen($s);++$i) f($i,$s);
     //decrement so it's odd, from 9 loop downwards to 0
    for(--$i;--$i>=0;)f($i,$s);
 }
 //2nd function to save space
 function f($i,$s){
     //chunk it, split 1 char, insert $i number of spaces
     echo chunk_split($s,1,str_repeat(' ',$i))."
";}

Cố gắng 2, 92 byte

Sau khi thấy câu trả lời của @Titus, tôi đã giảm tôi về điều này:

for(;++$i<2*$e=strlen($s=$argn);)echo chunk_split($s,1,str_repeat(' ',~-$e-abs($i-$e)))."
";

Tôi đã cố gắng nghĩ cách sử dụng 1 vòng lặp, thay vì 2 ... Tin hay không, tôi gần như không bao giờ sử dụng forvòng lặp trong mã "thực". Đó là ~bitwise Không, rằng tôi đã mất tích ...

Nó dài hơn một chút 92vì vậy tôi không cảm thấy quá tệ. Nhưng dù sao tôi cũng sẽ đặt nó vào như một nỗ lực thứ hai.

$argn là đầu vào từ dòng lệnh

Chạy như ống với -nR hoặc thử trực tuyến.

Hộp cát