Натхненний цим питанням SO .

Виклик:

Вхід:

• Рядок$s$
• Символ$c$

Вихід:

Створіть діаграму ASCII рядка з діамантом у всіх чотирьох напрямках, з першим символом рядка в центрі і виходячи назовні. Що знаходиться всередині квадратного килима ASCII, із символом як наповнювачем. Це може здатися досить невиразним, ось ось приклад:

Вхід: = , = вихід:$s$string$c$.

..........g..........
........g.n.g........
......g.n.i.n.g......
....g.n.i.r.i.n.g....
..g.n.i.r.t.r.i.n.g..
g.n.i.r.t.s.t.r.i.n.g
..g.n.i.r.t.r.i.n.g..
....g.n.i.r.i.n.g....
......g.n.i.n.g......
........g.n.g........
..........g..........

Правила виклику:

• Вхідний рядок також може бути списком символів
• Вихідним може бути також список рядків рядків або матриця символів
• Введений рядок і символ гарантовано не пустують
• Рядок гарантовано не містить символу
• І рядок, і символ можуть бути надруковані лише ASCII (діапазон Unicode [32,126], пробіл '' до та включаючи tilde '~')

Загальні правила:

• Це код-гольф , тому найкоротша відповідь у байтах виграє.
  Не дозволяйте мовам коду-гольфу відштовхувати вас від публікації відповідей з не кодовими гольф-мовами. Спробуйте придумати якомога коротшу відповідь на "будь-яку" мову програмування.
• Для вашої відповіді застосовуються стандартні правила з правилами вводу / виводу за замовчуванням , тому вам дозволяється використовувати STDIN / STDOUT, функції / метод із відповідними параметрами та повним програмами типу повернення. Твій дзвінок.
• Лазівки за замовчуванням заборонені.
• Якщо можливо, додайте посилання з тестом для вашого коду (тобто TIO ).
• Також настійно рекомендується додавати пояснення до своєї відповіді.

Тестові приклади:

Вхід: = , = Вихід:$s$11111$c=$0

00000000100000000
00000010101000000
00001010101010000
00101010101010100
10101010101010101
00101010101010100
00001010101010000
00000010101000000
00000000100000000

Вхід: = , = вихід:$s$з12345ABCDEF$c$#

####################F####################
##################F#E#F##################
################F#E#D#E#F################
##############F#E#D#C#D#E#F##############
############F#E#D#C#B#C#D#E#F############
##########F#E#D#C#B#A#B#C#D#E#F##########
########F#E#D#C#B#A#5#A#B#C#D#E#F########
######F#E#D#C#B#A#5#4#5#A#B#C#D#E#F######
####F#E#D#C#B#A#5#4#3#4#5#A#B#C#D#E#F####
##F#E#D#C#B#A#5#4#3#2#3#4#5#A#B#C#D#E#F##
F#E#D#C#B#A#5#4#3#2#1#2#3#4#5#A#B#C#D#E#F
##F#E#D#C#B#A#5#4#3#2#3#4#5#A#B#C#D#E#F##
####F#E#D#C#B#A#5#4#3#4#5#A#B#C#D#E#F####
######F#E#D#C#B#A#5#4#5#A#B#C#D#E#F######
########F#E#D#C#B#A#5#A#B#C#D#E#F########
##########F#E#D#C#B#A#B#C#D#E#F##########
############F#E#D#C#B#C#D#E#F############
##############F#E#D#C#D#E#F##############
################F#E#D#E#F################
##################F#E#F##################
####################F####################

Вхід: = , = вихід:$s$з@+-|-o-|-O$c$:

::::::::::::::::::O::::::::::::::::::
::::::::::::::::O:-:O::::::::::::::::
::::::::::::::O:-:|:-:O::::::::::::::
::::::::::::O:-:|:-:|:-:O::::::::::::
::::::::::O:-:|:-:o:-:|:-:O::::::::::
::::::::O:-:|:-:o:-:o:-:|:-:O::::::::
::::::O:-:|:-:o:-:|:-:o:-:|:-:O::::::
::::O:-:|:-:o:-:|:-:|:-:o:-:|:-:O::::
::O:-:|:-:o:-:|:-:+:-:|:-:o:-:|:-:O::
O:-:|:-:o:-:|:-:+:@:+:-:|:-:o:-:|:-:O
::O:-:|:-:o:-:|:-:+:-:|:-:o:-:|:-:O::
::::O:-:|:-:o:-:|:-:|:-:o:-:|:-:O::::
::::::O:-:|:-:o:-:|:-:o:-:|:-:O::::::
::::::::O:-:|:-:o:-:o:-:|:-:O::::::::
::::::::::O:-:|:-:o:-:|:-:O::::::::::
::::::::::::O:-:|:-:|:-:O::::::::::::
::::::::::::::O:-:|:-:O::::::::::::::
::::::::::::::::O:-:O::::::::::::::::
::::::::::::::::::O::::::::::::::::::

Вхід: $s$ = AB, $c$ = c
вихід:

ccBcc
BcAcB
ccBcc

Вхід: $s$ = ~, $c$ = X
вихід:

~

Вхід: $s$ = /\^/\, $c$ = X
вихід:

XXXXXXXX\XXXXXXXX
XXXXXX\X/X\XXXXXX
XXXX\X/X^X/X\XXXX
XX\X/X^X\X^X/X\XX
\X/X^X\X/X\X^X/X\
XX\X/X^X\X^X/X\XX
XXXX\X/X^X/X\XXXX
XXXXXX\X/X\XXXXXX
XXXXXXXX\XXXXXXXX

Полотно , 8 байт

Ｒ±［］／┼┼＊

Спробуйте тут!

7 байт, але відображає купу символів.

R , 118 95 92 байт

function(a,d,n=length(a),I=c(n:1,1:n)[-n])for(i in I-1)write(c(a,d)[pmin(I+i,n+1)],1,n*2,,d)

Спробуйте в Інтернеті!

Завдяки:

• Джузеппе для виправлення помилки та гольфу
• Аарон Хейман на 22 байти у гольф

J , 59 56 байт

,{~[:((0-2*#)}.\[:,0,:"0({:>:t)*t=:]+/<:)[:(|.@}.,])#\@]

Спробуйте в Інтернеті!

Занадто довге рішення для J ... (я повністю винен)

R , потворна версія на 118 байт

Дозволяючи вхід бути вектором одиночних символів і виводити матрицю замість друку приємного мистецтва ascii.

function(s,C,l=length(s),L=4*l-3,k=2*l-1,y=abs(rep(1:k,L)-l)+abs(rep(1:L,e=k)-k)/2+1)matrix(ifelse(y%%1|y>l,C,s[y]),k)

Спробуйте в Інтернеті!

R , 161 157 байт

збережено 4 байти, використовуючи ifelse замість умовної модифікації y

function(S,C,l=nchar(S),L=4*l-3,k=2*l-1,y=abs(rep(1:L,k)-k)/2+abs(rep(1:k,e=L)-l)+1)cat(rbind(matrix(ifelse(y%%1|y>l,C,el(strsplit(S,''))[y]),L),'
'),sep='')

Спробуйте в Інтернеті!

невмілий і коментує

function(S,C){
    s=el(strsplit(S,''))
    l=nchar(S)
    L=4*l-3
    k=2*l-1
    y=abs(rep(1:L,k)-k)/2+abs(rep(1:k,e=L)-l)+1 # distance from centre
    y[!!y%%1]=l+1  # set non integers to one more than length of string
    y[y>l]=l+1     # set number beyond length of string to one more than length of string
    M = rbind(matrix(c(s,C)[y],L),'\n') # build matrix and add line returns
    cat(M,sep='') # print the matrix as a string
}

хммм, здається, найдовша відповідь поки що!

Python 2 , 97 96 90 84 байт

def f(s,c):r=range(len(s));return[c.join(c*i+s[:i:-1]+s[i:]+c*i)for i in r[:0:-1]+r]

Спробуйте в Інтернеті!

05AB1E , 15 11 байт

.sûsζøsýí€û

Спробуйте в Інтернеті! або як тестовий набір

Пояснення

.s            # push suffixes of input
  û           # palendromize this list
   sζ         # transpose using the second input as filler
     ø        # transpose back
      sý      # merge each on the second input
        í     # reverse each row
         €û   # palendromize each row

J , 35 34 33 байт

,{~1j1(}:@#"1{:(<*-)1-|+/|)i:@-&#

Спробуйте в Інтернеті!

-&#$c$$s$
i:
1-|+/|
{: (<*-)-&#

 0  0 _1  0  0
 0 _1 _2 _1  0
_1 _2 _3 _2 _1
 0 _1 _2 _1  0
 0  0 _1  0  0

Негативні показники починаються від -1, як у пітона. Залишилося лише вставити стовпці нулів.

1j1( #"1
  }:@
,{~$c$$s$

Велике спасибі Галену Іванову за алгоритм.

К (нг / к) , 38 байт

{1_',/'y,''2{+x,1_|x}/(#x)'1_,/+y,'|x}

Спробуйте в Інтернеті!

{ }функція з аргументами x(рядок s ) та y(символ c )

|x реверс x

y,'випереджати yкожен

+ переносити

,/ конкат

1_ скиньте першу чар

на даний момент у нас є рядок довжини ( x) екземплярів, за якими yслідують символи зx

#x довжина x

(#x)' розсувне вікно цієї багатьох послідовних символів

2{ }/ робити двічі

+x,1_|xз'єднатись xіз реверсованим xбез першого елемента і перенести

y,''перед ім'ям , yщоб кожен кожен

,/' ламати кожен

1_' скинути по одному з кожного

Japt , 15 байт

Повертає масив рядків

Ôå+ ®¬qV êÃûV ê

Спробуй це

Ôå+ ®¬qV êÃûV ê     :Implicit input of strings U=s & V=c
Ô                   :Reverse U
 å+                 :Prefixes
    ®               :Map
     ¬              :  Split
      qV            :  Join with V
         ê          :  Palindromise
          Ã         :End map
           ûV       :Centre pad each string with V, to the length of the longest
              ê     :Palindromise

Вугілля деревне , 15 байт

ＵＢηＥθ✂θκ‖Ｏ↑←ＵＥ¹

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Спочатку надісланий як коментар до видаленої зараз пісочної публікації . Пояснення:

ＵＢη

Встановіть фон на другий вхід c.

Ｅθ✂θκ

Зіставте карту над першим входом, sщоб генерувати всі суфікси та неявно друкувати їх на окремих рядках.

‖Ｏ↑←

Відбийте по горизонталі та вертикалі.

ＵＥ¹

Додайте додатковий простір по горизонталі.

Рубі , 95 84 75 байт

->a,c{(1...2*z=a.size).map{|i|s=a[j=(z-i).abs,z]*c+c*2*j;s.reverse.chop+s}}

Спробуйте в Інтернеті!

Приймає рядок введення як масив символів. Повертає масив рядків.

Мова Вольфрама (Mathematica) , 121 байт

Join[q=Table[(v=Table[#2,2(l-k)])<>Riffle[Join[(h=Reverse)[n=(g=Take)[#,-k]],g[n,-k+1]],#2]<>v,{k,l=Length@#}],Rest@h@q]&

Спробуйте в Інтернеті!

Japt , 16 байт

Примітка: я буду гольфу :)

Ôå+ ®¬qVÃùV mê ê

Спробуйте в Інтернеті!

PowerShell , 120 байт

param($s,$c)($s,(($l=$s.length-1)..0+1..$l|%{($x=$c*(2*$_))+($s[($_,($l..$_+($_+1)..$l))[$_-ne$l]]-join$c)+$x}))[$l-gt0]

Спробуйте в Інтернеті!

Деякі дні, коли діапазон індексів замість скибочок дійсно боляче. Сьогодні - один із таких днів. Через сполучені діапазони, які псуються під час роботи з окремими елементами (наприклад, повернення 0..0 + 1..0), використовується спеціальний кожух, щоб уникнути цього взагалі (ціною багатьох байтів).

Japt , 15 байт

Ôå+ ê ®ê ¬qV
ûV

Спробуй це

Желе , 11 байт

jÐƤṚzṚŒḄZŒḄ

Спробуйте в Інтернеті!

$s$
$c$
ŒṘY\n

PowerShell , 82 83 байти

+2 байти спасибі Veskah: виправлена ​​помилка у випадку одного символу

-1 байт: правило, що Input-string may also be a list of charactersвикористовується

$c,$s=$args
($s|%{(-join$s|% s*g $i)+$c*$i++})[($r=$i..0+1..$i)]|%{"$_"[$r]-join$c}

Спробуйте в Інтернеті!

Менше гольфу:

$c,$s=$args
$southEast = $s|%{
    (-join$s|% substring $i) + $c*$i++
}
$range=$i..0+1..$i
$southEast[$range]|%{
    "$_"[$range]-join$c
}

Піп , 24 20 байт

QPRV:_JbMa@>RV,#aZDb

Використовуйте -lпрапор, щоб отримати зрозумілий для людини вихід. Спробуйте в Інтернеті!

Пояснення

QPRV:_JbMa@>RV,#aZDb
                      a,b are cmdline args (implicit)
                a     1st cmdline arg (the string)
               #      Length
              ,       Range
            RV        Reverse
         a@>          Take slices of a starting at those indices
                 ZDb  Zip the list of slices together, filling out missing values in
                      the matrix with b (the character)
        M             To each row, map this function:
     _Jb               Join on b
  RV:                 Reverse (making top row the bottom and vice versa)
QP                    Quad-palindromize: reflect downward and rightward, with overlap

Наприклад, із введеннями abcdта .:

RV,#a
 [3 2 1 0]
a@>
 ["d" "cd" "bcd" "abcd"]
ZDb
 [['d 'c 'b 'a] ['. 'd 'c 'b] ['. '. 'd 'c] ['. '. '. 'd]]
_JbM
 ["d.c.b.a" "..d.c.b" "....d.c" "......d"]
RV:
 ["......d" "....d.c" "..d.c.b" "d.c.b.a"]
QP
 ["......d......" "....d.c.d...." "..d.c.b.c.d.." "d.c.b.a.b.c.d" "..d.c.b.c.d.." "....d.c.d...." "......d......"]

Приєднати , 57 байт

${q:=#x-1Bounce!Bounce@Join&y@PadLeft&y&#x=>x[q::(q::0)]}

Спробуйте в Інтернеті!Вихід - це список рядків.

Пояснення

?? parameters: x, y
${
    ?? q is length of x - 1
    q:=#x-1
    ?? Reflect, collapsing middle:
    Bounce!
        ?? Function:
            ?? Reflect,
            Bounce@
            ?? Joined by y,
            Join&y@
            ?? padded to the length of x with y
            PadLeft&y&#x
        ?? Mapped over
        =>
            ?? The elements of x at
            x[
                ?? decreasing range from q to
                q::(
                    ?? each element in the range from q to 0
                    q::0
                )
            ]
}

Perl 6 , 79 байт

->\c{{map {join c,g $_ X||c},g .[^*X+(^$_,)]}o*.comb}
my&g={.[$_-1...0...$_-1]}

Спробуйте в Інтернеті!

Анонімний кодовий блок, який приймає вхід з викривленням (наприклад f(char)(string) ) і повертає список рядків. Я думаю, інший підхід був би коротшим.

Пояснення:

my&g={.[$_-1...0...$_-1]}  # Helper function to palindromise a list
->\c{                                                }  # Code block that takes a char
     {                                       }o*.comb   # And returns a function
                                .[^*X+(^$_,)]  # Get all prefixes with end padding
                                               # e.g. "str" => [["r",Nil,Nil]
                                                                ["t","r",Nil]
                                                                ["s","t","r"]]
                              g   # Palindromise the lsit
       map {                },    # Map each element to
                     $_ X||c      # Replace all Nils with the character
                   g              # Palindromise it
            join c,               # And join by the character

APL (Dyalog Classic) , 32 31 байт

(⍉1↓¯1↓⊖⍪1↓⊢)⍣2∘↑(≢⊣),/,¨,2⍴¨⊢¨

Спробуйте в Інтернеті!

Perl 5 з -lF, -M5.010, 71 байт

$"=<>;$A=abs,$_="@F[$A..$#F]".$"x($A*2),/./,say reverse.$' for-$#F..$#F

Спробуйте в Інтернеті!

C # (Visual C # Interactive Compiler) , 249 байт

s=>c=>{var r=s.Select((x,_)=>{int k=s.Length;var m=s.Substring(_,k-_).Aggregate("",(a,b)=>a+c+b);return new string(m.Skip(2).Reverse().Concat(m.Skip(1)).ToArray()).PadLeft(2*k-3+m.Length,c).PadRight(4*k-3,c);});return r.Skip(1).Reverse().Concat(r);}

Спробуйте в Інтернеті!

Це повинно бути незмінним ...

JavaScript (Node.js) , 143 байти

(s,c)=>{q=Math.abs;m=(l=s.length*4-3)-1;for(i=j=0;j<l/2;(i=(++i)%l)?0:++j){p=s[q(i-m/2)/2+q(j-m/4)];process.stdout.write((i?"":"\n")+(p?
p:c))}}

Спробуйте в Інтернеті!

Трохи більше розмірковування призвело б до обчислення через одновимірний масив і менше байтів.

Котлін , 250 байт

Примітка: Kotlin tio в даний час не може повернути новий клас, тому цей код отримує нульове виключення вказівника. Це також стосується кодів, які я раніше розміщував, які працювали на той час. Я припускаю, що вона врешті виправиться, але не вдалося знайти контактну службу підтримки, щоб повідомити про проблему. Він також може працювати тут .

{s:String,c:Char->val h=s.length*2-1
val w=h*2-1
val m=Array(h){Array(w){c}}
for(i in s.indices)for(r in 0..h-1){val o=(i-Math.abs(h/2-r))*2
if(o>=0){m[r][w/2+o]=s[i].toChar()
m[r][w/2-o]=s[i].toChar()}}
m.map{it.joinToString("")}.joinToString("\n")}

Спробуйте в Інтернеті!

Гая , 19 байт

:ṫl¤┅v;@&Z¦<¦v¦ṫ¦ṫṣ

Спробуйте в Інтернеті!

Пояснення слід.

JavaScript (Node.js) , 101 байт

s=>c=>[l=s.length-1,...Array(l*2)].map((x,i,a,m=Math.abs)=>a.map((y,j)=>s[m(l-i)+m(l-j)]||c).join(c))

Спробуйте в Інтернеті!

Запит TSQL, 191 байт

У студії управління MS-SQL Server натисніть Ctrl-T перед запуском цього запиту, це змінить вихід на текст.

Цей скрипт збирає вихід зліва направо на одну довгу "рядок", обчислюючи значення, яке потрібно поставити у кожну позицію. Вихід обмежений 4096 символами.

Гольф:

SELECT
string_agg(iif(h>k/2,@y,substring(@,h+1,1))+iif(-~n%k=0,'
',@y),'')FROM(SELECT
abs(k/2-n%k)+abs(k/2-n/k)h,*FROM(SELECT
number n,len(@)*2-1k,*FROM spt_values)c)d
WHERE n<k*k and'P'=type

Безголовки:

USE master
DECLARE 
@y char='.',
@ varchar(20) = 'abcd'

SELECT
  string_agg(iif(h>k/2,@y,substring(@,h+1,1))+iif(-~n%k=0,'
',@y),'')
FROM
(
  SELECT
    abs(k/2-n%k)+abs(k/2-n/k)h,*
  FROM
  (
    SELECT
      number n,
      len(@)*2-1k,*
    FROM spt_values
  )c
)d
WHERE n<k*k and'P'=type

Мені довелося внести деякі зміни, щоб відформатувати вихід в онлайн-версії.

Спробуйте в Інтернеті

Java (JDK) , 213 199 198 байт

a->b->{int i=0,l=a.length()-1;String s=a,r[]=new String[l-~l],p;for(;i<=l;s=s.substring(1))r[l+i]=r[l-i]=new StringBuffer(p=b.join(b,s.split(""))+b.repeat(2*i++)).reverse()+p.substring(1);return r;}

Спробуйте в Інтернеті!

-14 bytes завдяки @KevinCruijssen
-1 byte завдяки @ceilingcat

Безумовно

a->
    b-> {
        int i = 0, l = a.length() - 1;
        String s = a, r[]=new String[a.length()*2-1],p;
        for (; i<=l; s=s.substring(1))
            r[l+i]
              = r[l-i++]
              =   new StringBuffer(
                                   p =   String.join(b,s.split(""))
                                       + b.repeat(2*i)
                                  ).reverse()
                + p.substring(1);
        return r;
    }

Мова Вольфрама (Mathematica) , 68 байт

Table[#[[1+Abs@y+Abs@x/2]]/._@__:>#2,{y,l=1-Tr[1^#],-l},{x,2l,-2l}]&

Спробуйте в Інтернеті!

Візьме список символів (разом із символом наповнювача) як вхідний та виводить матрицю символів.

Table[                              ,{y,l=1-Tr[1^#],-l},{x,2l,-2l}]&    (* make a (2*len-1 x 4*len-3) table centered at (0,0) *)
      #[[               ]]                                              (*  where the value at each point is the string indexed at *)
         1+Abs@y+Abs@x/2                                                (*   (1 + |y-coordinate| + |x-coordinate|/2) *)
                          /._@__:>#2                                    (*  if that indexing fails, use the filler character instead *)

Щоб взяти індекс списку символів, ми використовуємо list[[index]], який внутрішньо розширений Part[list, index]. Якщо індекс є дійсним, це вираження оцінюється до значення в цьому індексі. Якщо ні - якщо індекс не є цілим числом або знаходиться поза діапазоном - вираз залишається неоціненим.
Найпростіший (найкоротший) шаблон, який відповідає, Part[...]але не є одним символом _@__, який відповідає будь-якому виразу з одним або кількома аргументами.