รับสตริงที่ไม่ว่างเปล่า s, มีความยาวเท่ากัน, และเลขจำนวนเต็มบวก n, แทนความสูง, เขียนพีระมิดโดยใช้กฎต่อไปนี้:

ปิรามิดควรมีเส้นที่ไม่เว้นว่าง ขึ้นบรรทัดใหม่ที่ได้รับอนุญาต สำหรับแต่ละ 1 <= i <= n บรรทัด i-th ควรมีสตริงที่มีอักขระแต่ละตัวซ้ำแล้วซ้ำอีกในสถานที่ที่ฉันครั้ง; abcd ทำซ้ำ 3 ครั้งกลายเป็น aaabbbcccddd แต่ละบรรทัดควรอยู่กึ่งกลางด้วยช่องว่างภายในเพื่อให้กึ่งกลางของแต่ละบรรทัดอยู่ในแนวตั้ง อนุญาตให้เว้นวรรคที่ส่วนท้ายของแต่ละบรรทัด คุณยังสามารถขึ้นบรรทัดใหม่ได้สูงสุดหนึ่งบรรทัด แต่ไม่มีช่องว่างอื่นก่อนบรรทัดแรก

สตริงอินพุตไม่ได้รับการรับประกันว่าเป็นแบบ palindrome

กรณีทดสอบ

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

γ².D)ƶJ.C

ลองออนไลน์!

γได้รับแรงบันดาลใจจากคำตอบของ Adnan ในไม่ช้า แต่Sก็ยังใช้ได้

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

F²γN>×J}».C

ใช้การเข้ารหัส05AB1E ลองออนไลน์!

เยลลี่ , 14 13 ไบต์

LH×Ḷ}Ṛ⁶ẋżxЀY

ลองออนไลน์!

มันทำงานอย่างไร

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

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

ลองออนไลน์!

ส่งคืนการแจงนับของstrings ด้วยเส้นของรูปวาด เมื่อเข้าร่วมผลลัพธ์จะเป็นดังนี้:

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

• บันทึก 2 ไบต์ด้วย Kevin Cruijssen!
• บันทึก 1 ไบต์ด้วย Value Ink!
• บันทึกได้ 6 ไบต์ด้วย LiefdeWen!

Cheddar , 71 64 ไบต์

บันทึกแล้ว 7 ไบต์ขอบคุณ @ValueInk

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

ลองออนไลน์! ฉันจะเพิ่มคำอธิบายเล็กน้อย

คำอธิบาย

(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

ทับทิม 58 ไบต์

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

ลองออนไลน์!

Java 8, 188 186 185 183 181 173 ไบต์

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 ไบต์ (185 → 183) เนื่องจากการแก้ไขข้อบกพร่อง (มันเป็นn+1สายเอาท์พุทแทนn) ไม่ได้เกิดขึ้นบ่อยครั้งที่การแก้ไขข้อผิดพลาดบันทึกไบต์ :)
-2 ไบต์ (183 → 181) ต้องขอบคุณ@ OlivierGrégoire

คำอธิบาย:

ลองที่นี่

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

(string)(height)จะเข้าในไวยากรณ์ currying รวมถึงการขึ้นบรรทัดใหม่ชั้นนำ

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

การสาธิต

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>

ถ่าน 19 ไบต์

Ｆ⁺¹Ｎ«Ｊ±×ι÷Ｌη²ιＦηＦικ

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

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

เราต้องการเส้นซ้ำหลาย1..nครั้ง วิธีที่ง่ายที่สุดในการบรรลุเป้าหมายนี้คือการวนลูปจาก 0 ถึง n เนื่องจากลูป 0 นั้นเป็นแบบไม่มีการใช้งาน

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

วางเคอร์เซอร์เพื่อให้บรรทัดผลลัพธ์อยู่กึ่งกลาง

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

และนี่คือวิธีการพิมพ์ตัวอักษรแต่ละiครั้งอย่างง่ายซ้ำ ๆ

Python 2 , 75 77 ไบต์

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

ลองออนไลน์!

SOGL V0.12 , 14 ไบต์

ā.∫dI*Hd⁄»±IFž

ลองที่นี่!

Javascript, 105 ไบต์

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

หลังจากไม่กี่ปีที่ผ่านมา Stretch Maniac ก็กลับมาอีกครั้งหวังว่าจะได้รับการศึกษาเพิ่มขึ้นเล็กน้อย

Haskell , 79 73 69 ไบต์

• บันทึกแล้ว 4 ไบต์ขอบคุณnimi

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

ลองออนไลน์!

APL (Dyalog) , 33 31 ไบต์

2 ไบต์ golfed ด้วย @ZacharyT โดยลบวงเล็บที่ไม่จำเป็นออก

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

ลองออนไลน์!

คำอธิบาย

อาร์กิวเมนต์ที่ถูกต้อง⍵คือสตริงและอาร์กิวเมนต์ซ้าย⍺คือตัวเลข

{↑((' '/⍨(.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 ไบต์

มันไม่ใช่ทางออกที่กะทัดรัดที่สุด (อาจอยู่ที่การสร้างล้อใหม่แทนที่จะใช้ขั้นตอนในตัว) แต่มันก็ทำงานได้

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

ทดสอบ:

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

คำอธิบาย:

wและsเขียนจำนวนช่องว่างนำที่เหมาะสม:

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จัดการ "การซ้ำซ้อน" ของตัวละครและeคือสิ่งอำนวยความสะดวกแบบเรียกซ้ำ:

//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และlผนวกเข้ากับผลลัพธ์ (อาจมีโพรซีเดอร์ในตัวหรือไม่):

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สร้างผลลัพธ์:

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

และในที่สุดpเป็นวิธีหลัก :

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

Japtap , 20 + 1 = 21 19 + 1 = 20 14 ไบต์

ส่งออกอาร์เรย์ของบรรทัด - เพิ่ม 2 ไบต์หากไม่ได้รับอนุญาต

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

ทดสอบมัน

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

คำอธิบาย

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

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

ทำงานด้วยphp -nr '<code>' '<string>' <N>หรือทดสอบออนไลน์

ชำรุด

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

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

ลองออนไลน์!

T-SQL, 223 ไบต์

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

การป้อนข้อมูลผ่านทางที่มีอยู่ก่อนตารางทีมีคอลัมน์sและn , ตามมาตรฐาน IO ของเรา

ไม่มากที่จะอธิบายมันเป็นวงซ้อนกันค่อนข้างตรงไปตรงมาใช้@iสำหรับแถวและ@jเดินผ่านตัวละครของสตริงซึ่งเป็นREPLICATED @iเวลา:

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

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

ลองออนไลน์!

คำอธิบาย:

มันค่อนข้างตรงไปตรงมาแบ่งสตริงและทำซ้ำองค์ประกอบiแต่ละครั้งrep(s,e=i)( eสั้นสำหรับeach) เมื่อเราวนรอบ rep('',(n-i)/2*length(s)+1)ส่วนที่ยุ่งยากคือ นี่คือสตริงการแพ็ดดิ้ง แต่มันเป็นสตริงที่ว่างเปล่า ฉันต้องเพิ่ม 1 เพราะมิฉะนั้นผลลัพธ์คือcharacter(0)เวกเตอร์ที่มีความยาวเป็นศูนย์และcatโดยค่าเริ่มต้นจะแยกองค์ประกอบของมันออกเป็นช่องว่างทำให้เส้นตรงสุดท้ายไม่ถูกต้อง

Mathematica, 97 ไบต์

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

อินพุต

["oo oo", 10]

Tcl, 143 142 141 138 ไบต์

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}

ทดสอบ:

% 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

หมายเหตุ: "cd" ในตอนท้ายของขั้นตอนป้องกันไม่ให้ผลของเวลาที่จะพิมพ์ออกมาด้านล่างปิรามิด แต่เปลี่ยนไดเรกทอรีปัจจุบัน - ผลข้างเคียงที่ไม่ได้รับอนุญาตอย่างชัดเจน

ขอบคุณ sergiol สำหรับคำแนะนำในการบันทึกหนึ่งไบต์ .... และอีกคำแนะนำเพื่อบันทึกอีกหนึ่งไบต์

ขอบคุณมุมมอง (ในการแชท tcl) สำหรับอีก 3 ไบต์บันทึกไว้!

สวิฟท์, 232 ไบต์

อาจเป็นไปได้ที่จะดีขึ้น แต่ฉันไม่มีเวลามากในการปรับโครงสร้าง

คำตอบนี้ใช้ Swift 4 ดังนั้นจึงไม่สามารถเรียกใช้ออนไลน์ได้ในขณะนี้

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

โลโก้97 95 ไบต์

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

ลองใช้รหัสกับล่าม FMSLogo

กำหนดฟังก์ชั่นfที่ใช้สองอินพุต:sและ:nจากนั้นพิมพ์ผลลัพธ์

Java 8, 164 148 ไบต์

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

คำอธิบาย:

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

สนิม 107 ไบต์

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

ลิงค์บทกวี

กำหนดฟังก์ชั่นที่ไม่ระบุชื่อที่ใช้สตริงและหมายเลขพิมพ์รูปแบบที่ต้องการไปยังเอาต์พุตมาตรฐาน มันสันนิษฐานว่าชิ้นสตริงมีเพียงตัวอักษร ASCII แต่ความท้าทายที่ไม่เคยระบุว่าการสนับสนุนยูนิโค้ดเต็มรูปแบบเป็นสิ่งที่จำเป็น หากต้องการให้ถูกต้องสำหรับยูนิโค้ดเช่นกันจะต้องมี 117 ไบต์:

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

คำอธิบายนั้นค่อนข้างง่าย:

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

∫dč*∑}¹╚

ลองที่นี่!

คำอธิบาย:

∫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

ฉันไม่รู้สึกอยากอัปเดตคำตอบเก่าของฉันที่นี่เนื่องจากใช้วิธีการที่แตกต่างกันและใช้คุณลักษณะใหม่ (เอ้อกว่าความท้าทาย) - ╚

Python 2 , 79 77 ไบต์

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

ลองออนไลน์!

แก้ไข: -2 ไบต์ความอนุเคราะห์ @FlipTack

Excel VBA ขนาด 98 ไบต์

ฟังก์ชันหน้าต่าง VBE แบบไม่ระบุชื่อทันทีที่รับอินพุตเป็นสตริงจาก[A1]และ int จาก[B1]นั้นส่งออกไปยังหน้าต่างทันที VBE

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