บทนำ:

แรงบันดาลใจจากความคิดเห็นนี้@MagicOctopusUrnบน@Emignaคำตอบ 05AB1E 'sสำหรับฉัน' มันเป็นเพียงข้อผิดพลาด ' ความท้าทาย :

8F9ÝÀNð×ý}».∊ฉันทำยานอวกาศกระเพาะปลาแล้ว! และฉันก็ตื่นเต้นกับการแนะนำการแก้ไขแบบ 12 ไบต์ - Magic Octopus Urn 17 กรกฎาคม '17 เวลา 20:10

โปรแกรม05AB1E (ดั้งเดิม) ตัวใดที่ทำให้เกิดผลลัพธ์นี้:

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

ลองออนไลน์

ท้าทาย:

อินพุต: สตริงที่ไม่ว่างเปล่า

เอาท์พุท: length - 1จากภายนอกจะเข้ามาเพิ่มอีกหนึ่งพื้นที่มากขึ้นระหว่างตัวละครแต่ละบรรทัดทุกที่คล้ายกันทำในการส่งออกดังกล่าวข้างต้นเท่ากับ ดังนั้นสำหรับอินพุต1234567890เอาต์พุตจะเป็นเช่นนี้แทน:

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

ทำไม? ความยาวของมี1234567890 10ดังนั้นเราเริ่มต้นด้วยการแสดงผล 10 บรรทัด: บรรทัดแรกโดยไม่มีช่องว่าง ที่สองที่มีตัวคั่นพื้นที่หนึ่ง; สามกับสอง; เป็นต้นและจากนั้น (โดยไม่ต้องมีบรรทัดกลางที่มีlength - 1ช่องว่างซ้ำกัน) เรากลับไปที่อินพุตเริ่มต้นในขณะที่ลง

กฏท้าทาย:

• อินพุตรับประกันว่าไม่ว่างเปล่า (ความยาว>= 1) (สำหรับอินพุตอักขระเดี่ยวเราเพียงแค่แสดงตัวอักษรนั้น)
• จำนวนช่องว่างต่อท้าย / นำหน้า / บรรทัดใหม่ใด ๆ ที่ได้รับอนุญาตตราบใดที่การส่งออกตัวเอง (ที่ใดก็ได้บนหน้าจอ) ถูกต้อง (บรรทัดว่างระหว่างบรรทัดเอาท์พุทยังไม่ได้รับอนุญาตด้วย)
• ข้อมูลที่ป้อนจะมีอักขระ ASCII ที่พิมพ์ได้เท่านั้นยกเว้นช่องว่าง (ช่วงรหัสจุด[33, 126])
• I / O ยืดหยุ่นได้ อินพุตอาจถูกใช้เป็น STDIN, อาร์กิวเมนต์หรือพารามิเตอร์ฟังก์ชัน อาจเป็นรายการ / อาร์เรย์ / สตรีมของอักขระแทนสตริง ผลลัพธ์อาจเป็นรายการ / อาร์เรย์ / สตรีมของอักขระแทนสตริง อาจถูกพิมพ์ไปยัง STDOUT; ส่งคืนเป็นสตริงที่คั่นด้วย newline; เป็นต้น

กฎทั่วไป:

• นี่คือcode-golfดังนั้นคำตอบที่สั้นที่สุดในจำนวนไบต์ชนะ
  อย่าปล่อยให้ภาษาโค้ดกอล์ฟกีดกันคุณจากการโพสต์คำตอบด้วยภาษาที่ไม่ได้เข้ารหัส พยายามหาคำตอบสั้น ๆ ที่เป็นไปได้สำหรับภาษาโปรแกรม 'ใด ๆ '
• กฎมาตรฐานจะใช้สำหรับคำตอบของคุณดังนั้นคุณจึงได้รับอนุญาตให้ใช้ STDIN / STDOUT ฟังก์ชั่น / วิธีการที่มีพารามิเตอร์ที่เหมาะสมและชนิดผลตอบแทนโปรแกรมเต็มรูปแบบ การโทรของคุณ
• ช่องโหว่เริ่มต้นเป็นสิ่งต้องห้าม
• หากเป็นไปได้โปรดเพิ่มลิงค์พร้อมทดสอบรหัสของคุณ
• นอกจากนี้ขอแนะนำให้เพิ่มคำอธิบายสำหรับคำตอบของคุณ

กรณีทดสอบ:

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 ไบต์

รับอินพุตเป็นอาร์เรย์ของอักขระส่งออกอาร์เรย์ของสตริง

£qYçÃê

ลองมัน

คำอธิบาย

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

ดั้งเดิม 8 ไบต์

I / O เป็นสตริง ใช้-Rธง รวมช่องว่างต่อท้ายในแต่ละบรรทัด

¬£múYÄÃê

ลองมัน

คำอธิบาย

             :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 ไบต์

-6 ขอบคุณ @Kevin Cruissen และ @Giuseppe

-14 จากการเปลี่ยนเป็นวิธีการตาม regex

-1 ต้องขอบคุณ @Giuseppe

-5 ขอบคุณ @digEmALl

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

ลองออนไลน์!

JavaScript (ES6), 53 ไบต์

รับอินพุตเป็นอาร์เรย์ของอักขระ

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

ลองออนไลน์!

ถ่าน 10 ไบต์

Ｅθ⪫θ× κ‖Ｏ↓

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

Ｅθ          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 ไบต์

┐² ×＊］──

ลองที่นี่!

7 ไบต์รุ่นเป็นสิ่งที่ดีเกินไปสำหรับความท้าทายนี้ ..

Python 2 , 72 70 68 66 65 ไบต์

^{-2 ไบต์ขอบคุณ Kevin Cruijssen
-3 ไบต์ขอบคุณ ovs}

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

ลองออนไลน์!

05AB1E , 10 9 ไบต์

บันทึก 1 ไบต์ขอบคุณAdnan

εINð×ý}û»

ลองออนไลน์!

คำอธิบาย

ε            # 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 ไบต์

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

ลองออนไลน์!

รับอินพุตเป็นอาร์เรย์ของอักขระเอาต์พุตอาร์เรย์ของสตริง

Japt , 9 8 ไบต์

-1 ไบต์จาก @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

ลองออนไลน์!

PowerShell , 66 54 ไบต์

-12 ไบต์ต้องขอบคุณเขา

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

ลองออนไลน์!

รับอินพุตผ่านการกระจายซึ่งใน TIO จะแสดงว่าเป็นอาร์กิวเมนต์บรรทัดคำสั่งที่แยกต่างหากสำหรับแต่ละอักขระ

ก่อนอื่นเราตั้งค่า$a=$argsเป็นอาร์กิวเมนต์อินพุต จากนั้นเราตั้งค่า$xเท่ากับ.countอาร์เรย์-1นั้น จากนั้นเราต้องวนรอบตัวอักษรเพื่อสร้างยานอวกาศ ทำได้โดยการสร้างช่วงจาก0ถึง$xจากนั้น$xย้อนกลับไปที่0จากนั้นใช้Get-Uniqueเพื่อดึงเฉพาะช่วงที่เหมาะสม

การวนซ้ำแต่ละครั้งเรานำอาร์กิวเมนต์การป้อนเข้าของเรามา-joinรวมกับช่องว่างที่เกี่ยวข้อง แต่ละสตริงเหล่านั้นจะถูกปล่อยไว้ที่ไพพ์ไลน์และนัยก็Write-Outputให้เราขึ้นบรรทัดใหม่ได้ฟรีเมื่อโปรแกรมเสร็จสมบูรณ์

05AB1E (ดั้งเดิม) 9 ไบต์

εINúíJ}û»

อินพุตเป็นรายการของอักขระ

ลองมันออนไลน์หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย:

ε     }    # 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 ไบต์

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

ลองออนไลน์!

คำอธิบาย

สำหรับสตริง (เช่น"abc") เราจะสมัครก่อน

scanl (?) <*> tail

ซึ่งเหมือนกับ

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

สิ่งนี้ใช้ซ้ำ ๆ(?)(ผนวกช่องว่างกับอักขระแต่ละตัวในช่วง[33 .. ] ) strจนกระทั่งมีสตริงจำนวนมากที่strมีอักขระ:["abc","a b c ", "a b c "]

ตอนนี้เราเพียงต้องการเชื่อมผลลัพธ์ (ลบองค์ประกอบสุดท้าย) ด้วยส่วนเคาน์เตอร์ตรงกันข้าม:

init<>reverse

MATL , 25 22 13 ไบต์

zZv"Gtz@he!1e

ลองออนไลน์!

ขอบคุณLuis Mendo ที่แนะนำกอล์ฟขนาด 5 ไบต์ซึ่งเป็นแรงบันดาลใจให้ฉันโกนหนวดออกไปอีก 4 ไบต์!

คำอธิบายพร้อมอินพุตตัวอย่าง'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

เยลลี่ขนาด 9 ไบต์

jⱮLḶ⁶ẋƲŒḄ

ลองออนไลน์!

ส่งคืนรายการบรรทัด เอาท์พุท prettified กว่า TIO

Pyth , 12 ไบต์

เพียงส่ง Pyth บังคับของฉัน ฉันภูมิใจในสิ่งนี้มากดังนั้นคำอธิบายน่าจะมาเร็ว ๆ นี้

+P_=jRQ*L;_U

ลองที่นี่!

+P_=jRQ_.e*d

ลองที่นี่!

Stax , 10 ไบต์

Ç·9ƒù▌╘Ä┘e

เรียกใช้และแก้ไขข้อบกพร่อง

ส่งออกด้วยช่องว่างต่อท้ายในแต่ละบรรทัด

คำอธิบาย:

%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 ไบต์

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

ลองออนไลน์!

• -2 ไบต์ขอบคุณKevin Cruijssen

K (oK) , 25 24 ไบต์

วิธีการแก้:

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

ลองออนไลน์!

คำอธิบาย:

พอร์ตของโซลูชัน K4ของฉัน:

,/'(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 (')

หมายเหตุ:

• -1 ไบต์ขอบคุณ ngn

ปาสคาล (FPC) , 143 135 ไบต์

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.

ลองออนไลน์!

ฉันอาจจะชนะเฉพาะกับ Lenguage ...

PHP, 88 89 ไบต์

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

ต้องใช้ PHP 5 str_splitหรือสูงกว่าสำหรับ ทำงานเป็นท่อที่มี-nRหรือลองออนไลน์

K4 , 23 ไบต์

วิธีการแก้:

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

ตัวอย่าง:

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"

คำอธิบาย:

มีช่องว่างต่อท้ายในแต่ละบรรทัด

,/'(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 ไบต์

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

ลองออนไลน์!

สกาลา , 82 ไบต์

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

ลองออนไลน์

สกาล่ามีทางลัดมากมายที่ช่วยฉันที่นี่และอ่านได้ง่าย! ลองสกาล่า

Oracle SQL ขนาด 115 ไบต์

ไม่ใช่ภาษากอล์ฟ แต่ ...

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

สมมติว่าค่าอยู่ในคอลัมน์vของตารางt:

ซอ Fiddle

การตั้งค่า Schema ของ Oracle 11g R2 :

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

แบบสอบถาม 1 :

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

ผลลัพธ์ :

(SQLFiddle พิมพ์ค่าจัดชิดขวาในคอลัมน์ด้วยเหตุผลบางอย่าง ... ไม่มีช่องว่างนำหน้า)

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

รหัสเครื่อง 8086, 56 53 ไบต์

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

ประกอบจาก:

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:

กรณีทดสอบ:

Haskell, 64 60 59 ไบต์

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

ลองออนไลน์!

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 ไบต์

-5 & -3 ขอบคุณKevin Cruissen

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

ลองออนไลน์!

หมายเหตุว่าตั้งแต่\เป็นถ่านเปลือกหนีกรณีทดสอบ)}/\ควรจะใส่กับพิเศษเช่นนี้\)}/\\

Perl 6 , 43 ไบต์

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

ลองออนไลน์!

ส่งคืนรายการบรรทัด

คำอธิบาย:

 {                                         }  # 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 ไบต์

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

ลองออนไลน์!

-20 ไบต์ต้องขอบคุณแมวป่า !

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

ลองออนไลน์!

หรือหากความยาวสามารถยอมรับได้เป็นพารามิเตอร์:

C (gcc), 105 102 ไบต์

-1 ไบต์ขอบคุณไปที่ catcat!

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

ลองออนไลน์!

PHP, 148 146 143 141 ไบต์

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

คุณสามารถทดสอบได้ดังนี้:

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

เอาท์พุต

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

Sandbox

รุ่นขยาย

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

ลอง 2, 92 ไบต์

หลังจากเห็น @Titus คำตอบฉันลดของฉันไปที่นี้:

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

ฉันพยายามคิดวิธีใช้ 1 loop แทนที่จะเป็น 2 ... เชื่อหรือไม่ฉันแทบไม่เคยใช้forloop ในรหัส "ของจริง" มันเป็น~บิตที่ไม่ใช่ว่าฉันหายไป ...

มันนานกว่านี้นิดหน่อย92ดังนั้นฉันจึงไม่รู้สึกแย่ขนาดนั้น แต่ฉันจะใส่มันในความพยายามครั้งที่สองต่อไป

$argn คืออินพุตจากบรรทัดรับคำสั่ง

เรียกใช้เป็นไพพ์ด้วย -nR หรือลองออนไลน์

Sandbox