Введение:

Вдохновленный комментарием @MagicOctopusUrn к ответу @ Emigna 's 05AB1E на мою задачу « Это была просто ошибка » :

8F9ÝÀNð×ý}».∊Я сделал сделал космический корабль пасть! И я был взволнован предложением 12-байтового редактирования. - Волшебная Осьминог Урна 17 июля 17: 20

Который является 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])
• Ввод / вывод является гибким. Входные данные могут быть приняты как STDIN, аргумент или параметр функции. Может быть списком / массивом / потоком символов вместо строки. Выходными данными также могут быть список / массив / поток символов вместо строк; может быть напечатано в STDOUT; возвращается как строка с разделителями новой строки; и т.п.

Основные правила:

• Это код-гольф , поэтому выигрывает самый короткий ответ в байтах.
  Не позволяйте языкам кода-гольфа отговаривать вас от публикации ответов на языках, не относящихся к кодексу. Попробуйте придумать как можно более короткий ответ для «любого» языка программирования.
• К вашему ответу применяются стандартные правила , поэтому вы можете использовать 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 от перехода на метод на основе регулярных выражений

-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

Холст , 8 байт

┐² ×＊］──

Попробуй это здесь!

7 байт версия была слишком хороша для этой проблемы ..

Python 2 , 72 70 68 66 65 байт

^{-2 байта благодаря Кевину Круйссену
-3 байта благодаря овсу}

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

Попробуйте онлайн!

05AB1E , 10 9 байтов

Сохранено 1 байт благодаря Аднану

ε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

Рубин , 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(' '*$_)}

Попробуйте онлайн!

Принимает ввод через splatting, который в TIO проявляется как отдельные аргументы командной строки для каждого символа.

Сначала мы устанавливаем $a=$argsв качестве входного аргумента. Затем мы устанавливаем $xравным .countэтому массиву -1. Затем нам нужно перебрать буквы, чтобы построить космический корабль. Это делается путем построения диапазона от 0до $x, затем $xобратно до 0, затем с помощью, Get-Uniqueчтобы вытащить только соответствующий диапазон.

На каждой итерации мы берем наши входные аргументы и -joinих вместе с соответствующим количеством пробелов. Каждая из этих строк остается в конвейере, и неявный Write-Outputдает нам новые строки бесплатно после завершения программы.

05AB1E (legacy) , 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

МАТЛ , 25 22 13 байт

zZv"Gtz@he!1e

Попробуйте онлайн!

Благодаря Луису Мендо за то, что он предложил 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Ḷ⁶ẋƲŒḄ

Попробуйте онлайн!

Возвращает список строк; выходной сигнал предварительно проверен на 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 байта благодаря Кевину Круйссену

K (ок) , 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или попробуйте онлайн .

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

Попробуйте онлайн!

Scala , 82 байта

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

Попробуйте онлайн

У Scala есть много ярлыков, которые мне здесь помогают, и это вполне читабельно! Попробуйте Scala

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:

SQL Fiddle

Настройка схемы 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'

Баш , 115 , 109 , 105 , 100 , 97 , 96 , 92 , 91 , 90 байтов

-5 и -3 благодаря Кевину Круассену

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 байт, благодаря floorcat!

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

песочница

Расширенная версия

 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 цикл вместо 2 ... Верьте или нет, я почти никогда не использую for цикл в «реальном» коде. Это было ~побитовое Нет, что я скучал ...

Это немного дольше в 92 поэтому я не чувствую себя так плохо. Но я все равно сделаю это как вторую попытку.

$argn это ввод из командной строки

Запустите как трубу с -nR или попробуйте онлайн.

песочница