Giriş:

Esinlenilen bu yorumun @MagicOctopusUrn üzerinde @Emigna 'ın 05AB1E cevap sıramı ' Bu sadece bir hata oldu meydan okuma' :

8F9ÝÀNð×ý}».∊Ben bir uzay gemisi maw yaptım! Ve 12 baytlık bir düzenleme önerdiğim için çok heyecanlıydım. - Magic Octopus Urn 17:17, 20:10

Bu, bununla sonuçlanan bir 05AB1E (eski) programıdır:

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

Çevrimiçi deneyin.

Meydan okuma:

Giriş: Boş olmayan bir dize

Çıktı: Dışarıdan içeriye doğru, her karakterin arasına, her bir satır arasına, yukarıdaki çıktıda olduğu gibi, eşittir length - 1. Dolayısıyla bir girdi 1234567890için çıktı bunun yerine olacaktır:

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

Neden? Uzunluğu 1234567890IS 10. Böylece 10 satır çıktısı ile başlıyoruz: boşluksuz ilk satır; ikincisi bir boşluk sınırlayıcıyla; üçüncü iki; Ve sonra ( length - 1boşlukları olan orta çizgiye sahip olmadan ), aşağı inerken ilk girişe geri döneriz.

Meydan okuma kuralları:

• Girişin boş olmadığı garantilidir (uzunluk >= 1). (Tek char girişleri için sadece bu karakteri çıkarırız.)
• Çıktının kendisi (ekranın herhangi bir yerinde) doğru olduğu sürece, her miktar izleyen / baştaki boşluklara / yeni satırlara izin verilir. (Çıkış hatları arasındaki boş satırlara da izin verilmez.)
• Girdi yalnızca beyaz alanlar hariç yazdırılabilir ASCII karakterleri içerecektir (kod noktası aralığı [33, 126])
• G / Ç esnektir. Giriş, STDIN, argüman veya işlev parametresi olarak alınabilir. Dize yerine bir liste / dizi / karakter akışı olabilir. Çıktı, dizeler yerine bir liste / dizi / karakter akışı da olabilir; STDOUT'a basılabilir; newline ayrılmış dize olarak döndürüldü; vb.

Genel kurallar:

• Bu kod golf , bayt cinsinden en kısa cevap kazanır.
  Code-golf dillerinin, codegolfing olmayan dillerle cevap göndermekten vazgeçmesine izin vermeyin. Herhangi bir programlama dili için mümkün olduğunca kısa bir cevap bulmaya çalışın.
• Cevabınız için standart kurallar geçerlidir , bu nedenle STDIN / STDOUT fonksiyonlarını, uygun parametrelerle fonksiyonlarını ve geri dönüş tipini, tam programları kullanmanıza izin verilir. Senin çağrı.
• Varsayılan Loopholes yasaktır.
• Mümkünse, lütfen kodunuz için test içeren bir bağlantı ekleyin.
• Ayrıca, cevabınız için bir açıklama eklemek şiddetle tavsiye edilir.

Test durumları:

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 bayt

Girdiyi karakter dizisi olarak alır, dizge dizisi çıkarır.

£qYçÃê

Dene

açıklama

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

Orijinal, 8 bayt

G / Ç bir dizedir. -RBayrağı kullanır . Her satırdaki sondaki boşlukları içerir.

¬£múYÄÃê

Dene

açıklama

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

-6 @Kevin Cruissen ve @Giuseppe'e teşekkürler

-14 regex tabanlı bir yönteme geçmek

@Giuseppe sayesinde -1

-5 @digEmALl sayesinde

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

Çevrimiçi deneyin!

JavaScript (ES6), 53 bayt

Girdiyi karakter dizisi olarak alır.

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

Çevrimiçi deneyin!

Kömür , 10 bayt

Ｅθ⪫θ× κ‖Ｏ↓

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı bir versiyonudur. Açıklama:

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

Tuval , 8 bayt

┐² ×＊］──

Burada dene!

7 bayt sürümü, bu meydan okuma için çok iyi oldu ..

Python 2 , 72 70 68 66 65 bayt

^{Kevin Cruijssen sayesinde -2 bayt Ovs
sayesinde -3 bayt}

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

Çevrimiçi deneyin!

05AB1E , 10 9 bayt

Adnan sayesinde 1 bayt kaydedildi

εINð×ý}û»

Çevrimiçi deneyin!

açıklama

ε            # 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 bayt

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

Çevrimiçi deneyin!

Girdiyi karakter dizisi olarak alır, dizge dizisini çıkarır.

Japt , 9 8 bayt

@Shaggy'den -1 bayt

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

Çevrimiçi deneyin!

PowerShell , 66 54 bayt

Mazzy sayesinde -12 bayt

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

Çevrimiçi deneyin!

TIO'da her karakter için ayrı komut satırı argümanları olarak ortaya çıkan sıçrama yoluyla girdi alır.

İlk önce $a=$argsgiriş argümanı olarak ayarladık . Sonra set $xeşit .countolduğu dizinin -1. Daha sonra uzay gemisini inşa etmek için harflerin arasında dolaşmamız gerekiyor. Yani bir aralık oluşturarak yapılır 0için $x, sonra $xgeri aşağı için 0daha sonra kullanarak, Get-Uniquesadece uygun bir aralık dışarı çekmek için.

Her yineleme, girdi argümanlarımızı ve -joinonları karşılık gelen boşluk sayısı ile birlikte alırız . Bu dizelerin her biri boru hattında bırakılmıştır ve örtük bir Write-Outputprogram tamamlandığında bize ücretsiz yeni çizgiler verir.

05AB1E (eski) , 9 bayt

εINúíJ}û»

Karakter listesi olarak giriş yapın.

Çevrimiçi deneyin veya tüm test durumlarını doğrulayın .

Açıklama:

ε     }    # 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 bayt

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

Çevrimiçi deneyin!

açıklama

Bir dize için (örn. "abc") Önce uygulanır

scanl (?) <*> tail

hangisi aynı

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

Bu arda uygulanır (?)(aralığındaki her karakter bir boşluk ekler [.. 33] kadar) strolarak birçok dizeleri kalmayıncaya kadar strkarakterleri:["abc","a b c ", "a b c "]

Şimdi sonucu (eksi son elemanı eksi) ters sayaç kısmıyla birleştirmeliyiz:

init<>reverse

MATL , 25 22 13 bayt

zZv"Gtz@he!1e

Çevrimiçi deneyin!

5 baytlık bir golf önerdiği için Luis Mendo'ya teşekkür ederim, bu da 4 baytı daha tıraş etmem için bana ilham verdi!

Örnek girdiyle açıklama '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

Jöle , 9 bayt

jⱮLḶ⁶ẋƲŒḄ

Çevrimiçi deneyin!

Satır listesini döndürür; TIO üzerinden çıktı çıktı.

Pyth , 12 bayt

Sadece zorunlu Pyth gönderim. Bununla gurur duyuyorum, bu yüzden bir açıklama yakında gelecek.

+P_=jRQ*L;_U

Burada dene!

+P_=jRQ_.e*d

Burada dene!

Stax , 10 bayt

Ç·9ƒù▌╘Ä┘e

Koş ve hata ayıkla

Her satırda sondaki boşlukla çıktılar.

Açıklama:

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

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

Çevrimiçi deneyin!

• Kevin Cruijssen sayesinde -2 bayt

K (oK) , 25 24 bayt

Çözüm:

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

Çevrimiçi deneyin!

Açıklama:

K4 çözümümün limanı :

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

Notlar:

• Ngn sayesinde -1 bayt

Pascal (FPC) , 143 135 bayt

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.

Çevrimiçi deneyin!

Muhtemelen sadece Lenguage'ye karşı kazanacağım ...

PHP, 88 89 bayt

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

PHP 5 veya üstü gerektirir str_split. Pipe ile çalıştırın -nRveya çevrimiçi deneyin .

K4 , 23 bayt

Çözüm:

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

Örnek:

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"

Açıklama:

Her satırda izleyen boşluk var.

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

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

Çevrimiçi deneyin!

Scala , 82 bayt

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

Çevrimiçi deneyin

Scala'nın burada bana yardımcı olan ve çok okunaklı olan birçok kısayolu var! Scala'yı deneyin

Oracle SQL, 115 bayt

Golf dili değil ama ...

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

Değerin vtablo sütununda olduğunu varsayarak t:

SQL Fiddle

Oracle 11g R2 Şema Kurulumu :

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

Sorgu 1 :

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

Sonuçlar :

(SQLFiddle, bir sebepten dolayı sütunda doğru hizalanmış değerleri basar ... hiçbir satır aralığı yoktur)

| 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 makine kodu, 56 53 bayt

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

Şuradan toplandı:

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:

Test durumu:

Haskell, 64 60 59 bayt

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

Çevrimiçi deneyin!

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 bayt

-5 ve -3 Kevin Cruissen sayesinde

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

Çevrimiçi deneyin!

Çünkü o Not \bir kabuk kaçış karakter olduğunu test durumu )}/\bir ekstra ile girilmelidir \böyle: )}/\\.

Perl 6 , 43 bayt

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

Çevrimiçi deneyin!

Satır listesini döndürür.

Açıklama:

 {                                         }  # 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 bayt

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

Çevrimiçi deneyin!

-Katiği sayesinde 20 bayt !

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

Çevrimiçi deneyin!

Veya, uzunluk parametre olarak kabul edilebilirse:

C (gcc), 105 102 bayt

Ceilingcat sayesinde -1 bayt!

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

Çevrimiçi deneyin!

PHP, 148 146 143 141 Bayt

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

Bu şekilde test edebilirsiniz:

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

Çıktı

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

Kum havuzu

Genişletilmiş sürüm

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

Deneme 2, 92 bayt

@Titus'un cevabını gördükten sonra, benimkini buna düşürdüm:

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

2 yerine 1 döngü kullanmanın bir yolunu düşünmeye çalışıyordum ... İster inanın ister inanmayın, neredeyse for"gerçek" koddaki döngüyü kullanmam . Öyleydi~ ben kayıp olduğunu, Değil bitsel ...

Daha küçük bir eşik daha var 92bu yüzden kendimi kötü hissetmiyorum. Ama yine de ikinci bir girişim olarak koyacağım.

$argn komut satırından giriş

-NR ile boru olarak çalıştırın veya çevrimiçi deneyin.

Kum havuzu