Cho một chuỗi không rỗng, có độ dài chẵn và số nguyên dương n, biểu thị chiều cao của nó, tạo một hình chóp bằng các quy tắc sau:

Kim tự tháp nên chứa n dòng không trống; dòng mới được phép. Với mỗi 1 <= i <= n, dòng thứ i nên chứa chuỗi với mỗi ký tự riêng lẻ được lặp lại tại chỗ i lần; abcd lặp lại 3 lần như vậy trở thành aaabbbcccddd. Mỗi dòng nên được căn giữa với khoảng trắng đệm sao cho giữa của mỗi dòng được căn chỉnh theo chiều dọc. Không gian lưu trữ ở cuối mỗi dòng được cho phép. Bạn cũng có thể có tối đa một dòng mới hàng đầu nhưng không có khoảng trắng nào khác trước dòng đầu tiên.

Chuỗi đầu vào không được đảm bảo là một palindrom.

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

s = 'o-o  o-o', n = 10:

                                    o-o  o-o                                    
                                oo--oo    oo--oo                                
                            ooo---ooo      ooo---ooo                            
                        oooo----oooo        oooo----oooo                        
                    ooooo-----ooooo          ooooo-----ooooo                    
                oooooo------oooooo            oooooo------oooooo                
            ooooooo-------ooooooo              ooooooo-------ooooooo            
        oooooooo--------oooooooo                oooooooo--------oooooooo        
    ooooooooo---------ooooooooo                  ooooooooo---------ooooooooo    
oooooooooo----------oooooooooo                    oooooooooo----------oooooooooo

05AB1E , 9 byte

γ².D)ƶJ.C

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

γlà, trong một thời gian ngắn, lấy cảm hứng từ câu trả lời của Adnan; Nhưng Scũng sẽ làm việc.

γ          # Split into runs.    | ['0','-','0']
 ².D)      # Push n times.       | [['0','-','0'],['0','-','0'],['0','-','0']]
     ƶ     # Lift by index.      | [['0','-','0'],['00','---','00'],['000','---','000']]
      J    # Inner join.         | ['0-0','00--00','000---000']
       .C  # Center.             | Expected output.

05AB1E , 11 byte

F²γN>×J}».C

Sử dụng mã hóa 05AB1E . Hãy thử trực tuyến!

Thạch , 14 13 byte

LH×Ḷ}Ṛ⁶ẋżxЀY

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

Làm thế nào nó hoạt động

LH×Ḷ}Ṛ⁶ẋżxЀY  Main link. Arguments: s (string), n (integer)

L              Get the length l of s.
 H             Halve it, yielding l/2.
   Ḷ}          Unlength right; yield [0, ... n-1].
  ×            Compute [0, l/2, ..., l(n-1)/2].
     Ṛ         Reverse; yield [l(n-1)/2, ..., l/2, 0].
      ⁶ẋ       Space repeat; create string of that many spaces.
         xЀ   Repeat in-place each; repeat the individual characters of s
               1, ..., n times, yielding an array of n strings.
        ż      Zipwith; pair the k-th string of spaces with the k-th string of 
               repeated characters of s.
            Y  Sepatate the resulting pairs by linefeeds.

C # (.NET Core) , 139 137 136 130 byte

using System.Linq;s=>n=>Enumerable.Range(0,n).Select(i=>"".PadLeft((n+~i)*s.Length/2)+string.Concat(s.Select(c=>new string(c,i))))

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

Trả về một phép liệt kê của strings với các dòng của bản vẽ. Sau khi tham gia kết quả là như thế này:

                        ಠ_ಠ  ಠ_ಠ
                    ಠಠ__ಠಠ    ಠಠ__ಠಠ
                ಠಠಠ___ಠಠಠ      ಠಠಠ___ಠಠಠ
            ಠಠಠಠ____ಠಠಠಠ        ಠಠಠಠ____ಠಠಠಠ
        ಠಠಠಠಠ_____ಠಠಠಠಠ          ಠಠಠಠಠ_____ಠಠಠಠಠ
    ಠಠಠಠಠಠ______ಠಠಠಠಠಠ            ಠಠಠಠಠಠ______ಠಠಠಠಠಠ
ಠಠಠಠಠಠಠ_______ಠಠಠಠಠಠಠ              ಠಠಠಠಠಠಠ_______ಠಠಠಠಠಠಠ

• 2 byte được lưu nhờ Kevin Cruijssen!
• Lưu 1 byte nhờ vào Ink Ink!
• 6 byte được lưu nhờ LiefdeWen!

Cheddar , 71 64 byte

Đã lưu 7 byte nhờ @ValueInk

(s,n)->(1|>n=>i->(s.len*(n-i)/2)*" "+s.sub(/./g,"$&"*i)).asLines

Hãy thử trực tuyến! Tôi sẽ thêm giải thích một chút

Giải trình

(string, count)->(
   1 |> count          // 1..count, the amount of rep/char per line
     => i -> (         // Map over the range       
        s.len*(n-i)/2  // Calculate amount of spaces and repeat by it.
     )*" "
     + s.sub(/./g,"$&"*i) // replace each character, duplicate the amount of times `*i`
).asLines              // return the above joined with newlines

Ruby , 58 byte

->s,n{(1..n).map{|i|s.gsub(/./){$&*i}.center s.size*n}*$/}

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

Java 8, 188 186 185 183 181 173 byte

s->n->{String r="";int l=s.length()/2,x=l*n,i,j;for(i=0;i++<n;r+="\n"){r+=s.format("%"+x+"s",r).substring(0,x-i*l);for(char c:s.toCharArray())for(j=0;j++<i;r+=c);}return r;}

-2 byte (185 → 183) do sửa lỗi (nó xuất ra n+1các dòng thay vì n). Không thường xuyên xảy ra việc sửa lỗi lưu byte. :)
-2 byte (183 → 181) nhờ @ OlivierGrégoire

Giải trình:

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

s->n->{                          // Method with String and integer parameter and String return-type
  String r="";                   //  Return-String
  int l=s.length()/2,            //  Halve the length of the input-String
      x=l*n,                     //  Halve the length * the input integer
      i,j;                       //  Some temp integers
  for(i=0;i++<n;                 //  Loop (1) `n` times
      r+="\n"){                  //    And after every iteration, add a new-line
    r+=s.format("%"+x+"s",r).substring(0,x-i*l);
                                 //   Add the appropriate trailing spaces
    for(char c:s.toCharArray())  //   Loop (2) over the characters of the String
      for(j=0;j++<i;r+=c);       //    And repeat each one more than in the previous row
                                 //   End of loop (2) (implicit / single-line body)
  }                              //  End of loop (1)
  return r;                      //  Return the result-String
}                                // End of method

JavaScript (ES6), 85 byte

Đưa đầu vào theo cú pháp currying (string)(height). Bao gồm một dòng mới hàng đầu.

s=>g=(n,p=`
`)=>n?g(n-1,p+' '.repeat(s.length/2))+p+s.replace(/./g,c=>c.repeat(n)):''

Bản giới thiệu

let f =

s=>g=(n,p=`
`)=>n?g(n-1,p+' '.repeat(s.length/2))+p+s.replace(/./g,c=>c.repeat(n)):''

o.innerHTML = f('o-o  o-o')(10)

<pre id=o></pre>

Than , 19 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:

Ｆ⁺¹Ｎ«       for (Plus(1, InputNumber())) {

Chúng ta cần dòng lặp đi lặp lại 1..n. Cách dễ nhất để đạt được điều này là lặp từ 0 đến n, vì vòng 0 về cơ bản là không có op.

Ｊ±×ι÷Ｌη²ι       JumpTo(Negate(Times(i, IntDivide(Length(h), 2))), i);

Định vị con trỏ sao cho đường kết quả được căn giữa.

ＦηＦικ           for (h) for (i) Print(k);

Và đây là cách in đơn giản mỗi lần lặp lại ký tự i.

Python 2 , 75 77 byte

s,n=input()
for i in range(n):print''.join(c*-~i for c in s).center(len(s)*n)

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

SOGL V0.12 , 14 byte

ā.∫dI*Hd⁄»±IFž

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

Javascript, 105 byte

(s,n)=>Array(N=n).fill().reduce(a=>a+'\n'+' '.repeat(--n*s.length/2)+s.replace(/./g,_=>_.repeat(N-n)),'')

Sau một vài năm nghỉ ngơi, Stretch Maniac đã trở lại, hy vọng lần này được giáo dục nhiều hơn một chút.

Haskell , 79 73 69 byte

• Đã lưu 4 byte nhờ nimi

s#n=unlines[(' '<$[1,3..(n-m)*length s])++((<$[1..m])=<<s)|m<-[1..n]]

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

APL (Dyalog) , 33 31 byte

2 byte được chơi golf nhờ @ZacharyT bằng cách xóa các dấu ngoặc đơn không cần thiết

{↑((' '/⍨(.5×≢⍵)×⍺-⊢),⍵/⍨⊢)¨⍳⍺}

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

Giải trình

Đối số bên phải ⍵là chuỗi và đối số bên trái ⍺là số.

{↑((' '/⍨(.5×≢⍵)×⍺-⊢),⍵/⍨⊢)¨⍳⍺}
                             ⍳⍺      Range 1 .. ⍺
  (                        )¨        For each element (let's call it i) do:
                      ⍵/⍨⊢          Replicate ⍵ i times
  (                 ),               Concatenated with
         (.5×≢⍵)×⍺-⊢                (⍺-i)×(len(⍵)×0.5)
   ' '/⍨                                spaces
 ↑                                    Convert the resulting array to a 2D matrix

SWI Prolog, 398 byte

Nó không phải là giải pháp nhỏ gọn nhất (có thể ở đâu đó phát minh lại bánh xe thay vì sử dụng các quy trình tích hợp), nhưng nó sẽ hoạt động.

w(0).
w(X):-write(' '),Y is X-1,w(Y).
s(S,N):-string_length(S,X),Y is div(X,2)*N,w(Y).
d(S,N,R):-atom_chars(S,A),e([],A,N,R).
e(B,[H|T],N,R):-l(B,H,N,I),e(I,T,N,R).
e(B,[],_,B).
a([], L, L).
a([H|T],L,[H|R]):-a(T,L,R).
l(L,_,0,L).
l(L,I,N,R):-M is N-1,l(L,I,M,T),a(T,[I],R).
o([]):-nl.
o([H|T]):-write(H),o(T).
p(S,N):-p(S,N,N).
p(_,0,_).
p(S,N,L):-Q is N-1,p(S,Q,L),d(S,N,R),W is L-N,s(S,W),o(R).

Kiểm tra:

?- p("o-o  o-o",10).
                                    o-o  o-o
                                oo--oo    oo--oo
                            ooo---ooo      ooo---ooo
                        oooo----oooo        oooo----oooo
                    ooooo-----ooooo          ooooo-----ooooo
                oooooo------oooooo            oooooo------oooooo
            ooooooo-------ooooooo              ooooooo-------ooooooo
        oooooooo--------oooooooo                oooooooo--------oooooooo
    ooooooooo---------ooooooooo                  ooooooooo---------ooooooooo
oooooooooo----------oooooooooo                    oooooooooo----------oooooooooo
true .

Giải trình:

w và s viết số lượng không gian hàng đầu thích hợp:

w(0).
w(X):-write(' '),Y is X-1,w(Y).
s(S,N):-string_length(S,X),Y is div(X,2)*N,w(Y).

d quản lý "sao chép" các ký tự và e là cơ sở đệ quy:

//d(String, Number of repetitions, Result)
d(S,N,R):-atom_chars(S,A),e([],A,N,R).
e(B,[H|T],N,R):-l(B,H,N,I),e(I,T,N,R).
e(B,[],_,B).

a và l nối vào kết quả (có thể tồn tại một thủ tục được xây dựng?):

a([], L, L).
a([H|T],L,[H|R]):-a(T,L,R).
l(L,_,0,L).
l(L,I,N,R):-M is N-1,l(L,I,M,T),a(T,[I],R).

o tạo đầu ra:

o([]):-nl.
o([H|T]):-write(H),o(T).

và cuối cùng p là phương thức chính :

p(S,N):-p(S,N,N).
p(_,0,_).
//p(String, Current level, Number of levels) :- go to the bottom, create pyramide level, write whitespaces, write the level
p(S,N,L):-Q is N-1,p(S,Q,L),d(S,N,R),W is L-N,s(S,W),o(R).

Japt , 20 + 1 = 21 19 + 1 = 20 14 byte

Xuất ra một mảng các dòng - thêm 2 byte nếu điều đó không được phép.

Võ@®pXÃù°V*UÊz

Kiểm tra nó

• Đã lưu 1 byte nhờ vào ETHproductions

Giải trình

      :Implicit input of string U & integer V
Võ    :Generate an array of integers from 1 to V, inclusive
@     :Map over the elements of the array
®     :Map over the characters of U
p     :Repeat the current character ...
X     :  X (the current element) times.
à    :End string mapping.
ù     :Left pad each line with spaces to length...
°V    :  V incremented by one...
*     :  multiplied by...
UÊ    :  the length of U...
z     :  divided by 2.
      :Implicit output of resulting array.

PHP, 113 byte:

for([,$s,$n]=$argv;$i++<$n;)for(print($f=str_pad)("
",($n-$i)*strlen($s)/2+!$p=0);~$c=$s[$p++];)echo$f($c,$i,$c);

Chạy với php -nr '<code>' '<string>' <N>hoặc kiểm tra nó trực tuyến .

phá vỡ

# import input, loop $i from 1 to $n
for([,$s,$n]=$argv;$i++<$n;)
    # 1. print newline and padding, reset $p
    for(print($f=str_pad)("\n",($n-$i)*strlen($s)/2+!$p=0);
    # 2. loop $c through string
        ~$c=$s[$p++];)
        # print repeated character
        echo$f($c,$i,$c);

CJam , 36 byte

l_,2/:T;]li:F{[_U)*zSTFU)-**\N]\}fU;

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

T-SQL, 223 byte

DECLARE @ char(99),@n INT,@i INT=1,@j INT,@p varchar(max)SELECT @=s,@n=n FROM t
R:SET @j=0SET @p=SPACE((@n-@i)*len(@)/2)C:SET @j+=1SET @P+=REPLICATE(SUBSTRING(@,@j,1),@i)IF @j<LEN(@)GOTO C
PRINT @p SET @i+=1IF @i<=@n GOTO R

Đầu vào là thông qua bảng t có sẵn với các cột s và n , theo các tiêu chuẩn IO của chúng tôi .

Không có gì nhiều để giải thích, đó là một vòng lặp lồng nhau khá đơn giản, sử dụng @icho các hàng và @jđể đi qua các ký tự của chuỗiREPLICATED @i thời gian:

DECLARE @ char(99),@n INT,@i INT=1,@j INT,@p varchar(max)
SELECT @=s,@n=n FROM t
R:
    SET @j=0
    SET @p=SPACE((@n-@i)*len(@)/2) 
    C:
        SET @j+=1
        SET @P+=REPLICATE(SUBSTRING(@,@j,1),@i)
    IF @j<LEN(@)GOTO C
    PRINT @p
    SET @i+=1
IF @i<=@n GOTO R

R , 125 95 byte

function(S,n)for(i in 1:n)cat(rep(' ',(n-i)/2*nchar(S)),rep(el(strsplit(S,'')),e=i),sep="",'
')

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

Giải trình:

Nó khá đơn giản, tách chuỗi và lặp lại các phần tử imỗi lần rep(s,e=i)( eviết tắt là each) khi chúng ta lặp. Phần khó khăn là rep('',(n-i)/2*length(s)+1). Đây là chuỗi đệm, nhưng nó là một chuỗi các chuỗi trống. Tôi cần thêm 1 vì nếu không thì kết quả là character(0), một vectơ có độ dài bằng không, và cattheo mặc định, phân tách các phần tử của nó với các khoảng trắng, làm sai lệch dòng cuối cùng.

Toán học, 97 byte

(c=Characters@#;T=Table;Column[T[""<>T[""<>T[c[[i]],j],{i,Length@c}],{j,#2}],Alignment->Center])&

đầu vào

["oo oo", 10]

Tcl, 143 142 141 138 byte

proc p s\ n {set p [expr [set w [expr [string le $s]/2]]*$n];time {incr p $w;puts [format %$p\s [regsub -all . $s [append r \\0]]]} $n;cd}

Kiểm tra:

% p "o-o  o-o" 5
                o-o  o-o
            oo--oo    oo--oo
        ooo---ooo      ooo---ooo
    oooo----oooo        oooo----oooo
ooooo-----ooooo          ooooo-----ooooo

Lưu ý: "cd" ở cuối quy trình ngăn kết quả của thời gian được in ra bên dưới kim tự tháp, nhưng thay đổi thư mục hiện tại - một tác dụng phụ không bị cấm rõ ràng.

Cảm ơn sergiol về một gợi ý để lưu một byte .... và một gợi ý khác để lưu thêm một byte.

Nhờ vào khía cạnh (trên trò chuyện tcl) để lưu thêm 3 byte!

Swift, 232 byte

Có lẽ có thể tốt hơn, nhưng tôi không có nhiều thời gian để cấu trúc lại.

Câu trả lời này sử dụng Swift 4, vì vậy hiện tại nó không thể chạy trực tuyến.

var p:(String,Int)->String={s,i in let r=(1...i).map{n in return s.map{return String(repeating:$0,count:n)}.joined()};return(r.map{return String(repeating:" ",count:(r.last!.count-$0.count)/2)+$0}as[String]).joined(separator:"\n")}

LOGO, 97 95 byte

to f :s :n
for[i 1 :n][repeat(:n-:i)/2*count :s[type "\ ]foreach :s[repeat :i[type ?]]pr "]
end

Hãy thử mã trên trình thông dịch FMSLogo.

Xác định một hàm fcó hai đầu vào :svà :nsau đó in kết quả.

Java 8, 164 148 byte

s->n->{String o="";for(int i=0,m,j;i++<n;){o+="\n";for(m=0;m++<(n-i)*s.length()/2;)o+=" ";for(char c:s.toCharArray())for(j=0;j++<i;)o+=c;}return o;}

Giải trình:

s->n->{
    String o = "";                                  //empty output string
    for (int i = 0, m, j; i++ < n; ) {              //for each row
        o += "\n";                                  //append a new line
        for (m = 0; m++ < (n - i)*s.length()/2; )   //for amount of spaces = inversed row_number * half length
            o += " ";                               //append a space
        for (char c : s.toCharArray())              //for each char of the string
            for (j = 0; j++ < i; )                  //row_number times
                o+=c;                               //append char
    }
    return o;
}

Rust, 107 byte

|a:&str,b|for i in 0..b{println!("{:^1$}",a.split("").map(|s|s.repeat(i+1)).collect::<String>(),a.len()*b)}

liên kết playpen

Xác định một hàm ẩn danh lấy một lát cắt chuỗi và số, in mẫu mong muốn thành đầu ra tiêu chuẩn. Nó giả định rằng lát cắt chuỗi chỉ chứa các ký tự ASCII, nhưng thách thức không bao giờ chỉ định rằng hỗ trợ unicode đầy đủ là cần thiết. Để chính xác cho unicode cũng sẽ cần 117 byte:

|a:&str,b|for i in 0..b{println!("{:^1$}",a.split("").map(|s|s.repeat(i+1)).collect::<String>(),a.chars().count()*b)}

Giải thích khá đơn giản:

|a:&str,b|                             // arguments, compiler can't infer the type of a unfortunately
    for i in 0..b {                    // iterate from row 0 to row b - 1
        println!(
            "{:^1$}",                  // print a line containing arg 0, centered with the width specified as arg 1
            a.split("")                // split the string into slices of one character
                .map(|s|s.repeat(i+1)) // for each slice, yield a string containing row+1 times that slice
                .collect::<String>(),  // concatenate each of the strings into one string
            a.len()*b                  // total length should be the length of the string times the amount of rows
        )
    }

SOGL V0.12 , 8 byte

∫dč*∑}¹╚

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

Giải trình:

∫dč*∑}¹╚
∫    }    iterate over 1..input, pushing counter
 d        push the variable D, which sets itself to the next input as string
  č       chop into characters - a vertical array
   *      multiply horizontally by the counter
    ∑     join the array together
      ¹   wrap all that in an array
       ╚  center horizontally

Tôi không cảm thấy muốn cập nhật câu trả lời cũ của mình ở đây vì nó sử dụng một phương pháp khác và sử dụng tính năng mới (er hơn thách thức) - ╚

Python 2 , 79 77 byte

s,n=input();m=n
while m:m-=1;print' '*(m*len(s)/2)+''.join(i*(n-m)for i in s)

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

Chỉnh sửa: -2 byte lịch sự @FlipTack

VBA Excel, 98 byte

Hàm cửa sổ tức thời VBE ẩn danh lấy đầu vào là chuỗi từ [A1]và int từ [B1]đó xuất ra cửa sổ ngay lập tức VBE

For i=1To[B1]:?Spc([Len(A1)/2]*([B1]-i));:For j=1To[Len(A1)]:?String(i,Mid([A1],j,1));:Next:?:Next