Biorąc pod uwagę niepuste ciągi o parzystej długości i dodatnią liczbę całkowitą n reprezentującą jego wysokość, utwórz piramidę, stosując następujące reguły:

Piramida powinna zawierać n niepustych linii; końcowe znaki nowej linii są dozwolone. Dla każdego 1 <= i <= n, i-ty wiersz powinien zawierać ciąg z każdym pojedynczym znakiem powtarzanym w miejscu i razy; abcd powtórzone 3 razy jako takie staje się aaabbbcccddd. Każda linia powinna być wyśrodkowana ze spacjami, tak aby środek każdej linii był wyrównany w pionie. Końcowe spacje na końcu każdej linii są dozwolone. Możesz również mieć do jednego wiodącego nowego wiersza, ale nie ma innych białych znaków przed pierwszą linią.

Ciąg wejściowy nie jest gwarantowany jako palindrom.

Przypadek testowy

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 bajtów

γ².D)ƶJ.C

Wypróbuj online!

γzostał w krótkim czasie zainspirowany odpowiedzią Adnana; ale Steż by działało.

γ          # 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 bajtów

F²γN>×J}».C

Wykorzystuje kodowanie 05AB1E . Wypróbuj online!

Galaretka , 14 13 bajtów

LH×Ḷ}Ṛ⁶ẋżxЀY

Wypróbuj online!

Jak to działa

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 bajtów

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

Wypróbuj online!

Zwraca wyliczenie strings z liniami rysunku. Po dołączeniu wynik wygląda następująco:

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

• 2 bajty zapisane dzięki Kevin Cruijssen!
• 1 bajt zapisany dzięki Value Ink!
• 6 bajtów zapisanych dzięki LiefdeWen!

Cheddar , 71 64 bajtów

Zaoszczędź 7 bajtów dzięki @ValueInk

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

Wypróbuj online! Za chwilę dodam wyjaśnienie

Wyjaśnienie

(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

Rubinowy , 58 bajtów

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

Wypróbuj online!

Java 8, 188 186 185 183 181 173 bajtów

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 bajty (185 → 183) z powodu poprawki błędu ( n+1zamiast tego wyświetlał wiersze n). Nie często zdarza się, że poprawka błędu zapisuje bajty. :)
-2 bajty (183 → 181) dzięki @ OlivierGrégoire

Wyjaśnienie:

Wypróbuj tutaj.

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 bajtów

Pobiera dane wejściowe w składni curry (string)(height). Zawiera wiodącą nową linię.

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

Próbny

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>

Węgiel drzewny , 19 bajtów

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

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

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

Potrzebujemy powtarzających się wierszy 1..n. Najłatwiejszym sposobem na osiągnięcie tego jest zapętlenie od 0 do n, ponieważ pętla 0 to w zasadzie brak operacji.

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

Ustaw kursor, aby wynikowa linia była wyśrodkowana.

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

I właśnie tak proste ijest powtarzanie każdego znaku wielokrotnie .

Python 2 , 75 77 bajtów

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

Wypróbuj online!

SOGL V0.12 , 14 bajtów

ā.∫dI*Hd⁄»±IFž

Wypróbuj tutaj!

JavaScript, 105 bajtów

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

Po kilku latach przerwy Stretch Maniac powraca, tym razem nieco lepiej wykształcony.

Haskell , 79 73 69 bajtów

• Zapisany 4 bajty dzięki Nimi

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

Wypróbuj online!

APL (Dyalog) , 33 31 bajtów

2 bajty w golfa dzięki @ZacharyT poprzez usunięcie niepotrzebnych nawiasów

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

Wypróbuj online!

Wyjaśnienie

Prawym argumentem ⍵jest ciąg, a lewym argumentem ⍺jest liczba.

{↑((' '/⍨(.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 bajtów

Nie jest to najbardziej kompaktowe rozwiązanie (być może gdzieś na nowo wymyśla koło zamiast korzystać z wbudowanych procedur), ale wydaje się działać.

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

Test:

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

Wyjaśnienie:

w i s zapisuje odpowiednią liczbę wiodących spacji:

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 zarządza „powielaniem” znaków ie jest funkcją rekurencyjną:

//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 i l dołączają do wyniku (może istnieje wbudowana procedura?):

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 tworzy wynik:

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

i na koniec p jest główną metodą :

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 bajtów

Zwraca tablicę wierszy - dodaj 2 bajty, jeśli nie jest to dozwolone.

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

Sprawdź to

• Zaoszczędzono 1 bajt dzięki produktom ETH

Wyjaśnienie

      :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 bajtów:

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

Uruchom go php -nr '<code>' '<string>' <N>lub przetestuj online .

awaria

# 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 bajtów

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

Wypróbuj online!

T-SQL, 223 bajty

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

Wejście jest przez istniejący wcześniej tabeli T z kolumny s i n , zgodnie z naszymi standardami IO .

Niewiele do wyjaśnienia, jest to dość prosta zagnieżdżona pętla, wykorzystująca @iwiersze i @jprzechodzące przez znaki ciągu, które są REPLICATED @iczasami:

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 bajtów

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

Wypróbuj online!

Wyjaśnienie:

To całkiem proste, dzielenie łańcucha i powtarzanie elementów irazy każdy rep(s,e=i)( ejest skrótem odeach ) podczas pętli. Trudna część jest rep('',(n-i)/2*length(s)+1). To jest łańcuch wypełniający, ale jest to zbiór pustych łańcuchów. Muszę dodać 1, ponieważ w przeciwnym razie wynikiem jest character(0)wektor o zerowej długości i cat, który domyślnie oddziela swoje elementy spacjami, nie wyrównuje linii końcowej.

Mathematica, 97 bajtów

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

wkład

[„oo oo”, 10]

Tcl, 143 142 141 141 138 bajtów

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}

Test:

% 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

Uwaga: „cd” na końcu procedury zapobiega wydrukowaniu wyniku czasu poniżej piramidy, ale zmienia bieżący katalog - efekt uboczny, który nie jest wyraźnie zabroniony.

Dzięki sergiol za podpowiedź, aby uratować jeden bajt .... i kolejną podpowiedź, aby uratować jeszcze jeden bajt.

Dzięki aspektowi (na czacie tcl) zapisano kolejne 3 bajty!

Szybki, 232 bajty

Prawdopodobnie mogłoby być lepiej, ale nie mam dużo czasu na refaktoryzację.

Ta odpowiedź używa Swift 4, więc nie można jej obecnie uruchomić online.

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 bajtów

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

Wypróbuj kod w interpretatorze FMSLogo.

Zdefiniuj funkcję, fktóra pobiera dwa dane wejściowe, :sa :nnastępnie wydrukuj wynik.

Java 8, 164 148 bajtów

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

Wyjaśnienie:

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

Rdza, 107 bajtów

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

link do kojec

Definiuje anonimową funkcję, która pobiera ciąg i liczbę ciągów, wypisując pożądany wzór na standardowe wyjście. Zakłada się, że wycinek ciągu zawiera tylko znaki ASCII, ale wyzwanie nigdy nie określa, że ​​pełna obsługa Unicode jest konieczna. Aby być poprawnym również dla Unicode, wymagałby 117 bajtów:

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

Wyjaśnienie jest raczej proste:

|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 bajtów

∫dč*∑}¹╚

Wypróbuj tutaj!

Wyjaśnienie:

∫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

Nie miałem ochoty aktualizować mojej starej odpowiedzi tutaj, ponieważ używa ona innej metody i wykorzystuje nową funkcję (er niż wyzwanie) - ╚

Python 2 , 79 77 bajtów

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

Wypróbuj online!

Edycja: -2 bajty dzięki uprzejmości @FlipTack

Excel VBA, 98 bajtów

Anonimowa funkcja bezpośredniego okna VBE, która pobiera dane wejściowe jako ciąg od [A1]i [B1]następnie odtąd przechodzi do bezpośredniego okna VBE

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