Tantangan

Mengingat positif integer $N$ , ulangi masing-masing digit $d_1, d_2, d_3, \cdots, d_n$ beberapa kali sesuai dengan posisinya di $N$ . Dengan kata lain, setiap digit $d_k$ harus diulang $k$ kali (untuk setiap , 1-diindeks), sehingga menciptakan nomor baru:$1\le k\le n$

$$\overline{d_1d_2d_2d_3d_3d_3\cdots\underbrace{d_nd_nd_n\cdots d_n}_{n\text { times}}}$$

Kemudian, tuliskan keduanya secara horizontal dan vertikal dan isi bagian yang kosong dengan salinan digit yang sesuai dengan indeks yang lebih besar antara indeks kolom dan indeks baris ruang kosong. Hasil akhir akan terlihat seperti ini:

$$\begin{bmatrix} \color{red}{d_1} \color{green}{d_2 d_2} \color{blue}{d_3 d_3 d_3} \cdots \\ \color{green}{d_2 d_2 d_2} \color{blue}{d_3 d_3 d_3} \cdots \\ \color{green}{d_2 d_2 d_2} \color{blue}{d_3 d_3 d_3} \cdots \\ \color{blue}{d_3 d_3 d_3 d_3 d_3 d_3} \cdots \\ \color{blue}{d_3 d_3 d_3 d_3 d_3 d_3} \cdots \\ \color{blue}{d_3 d_3 d_3 d_3 d_3 d_3} \cdots \\ \vdots \end{bmatrix}$$

---

Spesifikasi

Anda dapat mengambil $N$ sebagai bilangan bulat, string, daftar digit atau daftar karakter yang mewakili digit. Outputnya bisa berupa string yang dipisahkan baris baru, daftar string / integer atau daftar daftar karakter / digit, tetapi harap sertakan juga versi cetak yang cantik, jika memungkinkan. Jika output adalah string yang dipisahkan baris baru, itu juga dapat diterima untuk:

• memiliki spasi putih terdepan / utama, selama tampilan visual output tidak berubah
• pisahkan kolom menggunakan spasi jumlah konsisten atau baris dengan jumlah baris baru (tidak nol) yang konsisten

Anda dapat mengambil input dan memberikan output melalui metode standar apa pun , sambil memperhatikan bahwa celah ini dilarang secara default. Ini adalah kode-golf , jadi cobalah untuk menyelesaikan tugas dalam byte terkecil yang dapat Anda kelola dalam bahasa pilihan Anda.

Uji kasus

65:

655
555
555

---------------

203:

200333
000333
000333
333333
333333
333333

--------------

233:

233333
333333
333333
333333
333333
333333

---------------

5202:

5220002222
2220002222
2220002222
0000002222
0000002222
0000002222
2222222222
2222222222
2222222222
2222222222

---------------

12345:

122333444455555
222333444455555
222333444455555
333333444455555
333333444455555
333333444455555
444444444455555
444444444455555
444444444455555
444444444455555
555555555555555
555555555555555
555555555555555
555555555555555
555555555555555

JavaScript (ES7), 70 byte

Mengambil input sebagai string. Mengembalikan string dengan linefeed baris tambahan.

s=>(g=x=>(c=s[(x>y?x:y)**.5-1>>1])?c+g(x+8):x>y?`
`+g(1,y+=8):'')(y=1)

Cobalah online!

Bagaimana?

metode

Kami membangun karakter keluaran dengan karakter dengan berjalan melalui matriks persegi dan mengubah setiap sel menjadi indeks menjadi string input.$i_{x,y}$

Koordinasikan ke indeks string

Bagian atas terikat dari n t h daerah digit (0-diindeks) bersama setiap sumbu diberikan oleh A000096 :$u_{n}$$n^{th}$

u0=0,u1=2,u2=5,u3=9

$$u_{n} = \frac{n(n+3)}{2}$$ $$u_{0}=0,u_{1}=2,u_{2}=5,u_{3}=9,u_{4}=14,u_{5}=20,\dots$$

Diberi bilangan bulat , kita bisa mencari tahu di area mana n = ⌊ x ⌋ + 1 terletak dengan memecahkan:$k$$n=\lfloor{x}\rfloor+1$

$$x²+3x-2k=0$$

Menuju ke:

n=⌊

$$x = \frac{\sqrt{1+8k}-3}{2}$$ $$n = \left\lfloor\frac{\sqrt{1+8k}-3}{2}\right\rfloor+1=\left\lfloor\frac{\sqrt{1+8k}-1}{2}\right\rfloor$$

Untuk setiap sel , kami mendefinisikan:$(x, y)$

$$v_{x,y} = \max(1+8x,1+8y)$$

Nilai-nilai ini dikonversi menjadi indeks i x , y ke dalam string input dengan melakukan:$v_{x,y}$$i_{x,y}$

$$i_{x,y} = \left\lfloor\frac{\sqrt{v_{x,y}}-1}{2}\right\rfloor$$

 v(x,y) |  0  1  2  3  4  5  6  7  8  9        i(x,y) |  0  1  2  3  4  5  6  7  8  9
--------+-------------------------------      --------+-------------------------------
    0   |  1  9 17 25 33 41 49 57 65 73           0   |  0  1  1  2  2  2  3  3  3  3
    1   |  9  9 17 25 33 41 49 57 65 73           1   |  1  1  1  2  2  2  3  3  3  3
    2   | 17 17 17 25 33 41 49 57 65 73           2   |  1  1  1  2  2  2  3  3  3  3
    3   | 25 25 25 25 33 41 49 57 65 73           3   |  2  2  2  2  2  2  3  3  3  3
    4   | 33 33 33 33 33 41 49 57 65 73   -->     4   |  2  2  2  2  2  2  3  3  3  3
    5   | 41 41 41 41 41 41 49 57 65 73           5   |  2  2  2  2  2  2  3  3  3  3
    6   | 49 49 49 49 49 49 49 57 65 73           6   |  3  3  3  3  3  3  3  3  3  3
    7   | 57 57 57 57 57 57 57 57 65 73           7   |  3  3  3  3  3  3  3  3  3  3
    8   | 65 65 65 65 65 65 65 65 65 73           8   |  3  3  3  3  3  3  3  3  3  3
    9   | 73 73 73 73 73 73 73 73 73 73           9   |  3  3  3  3  3  3  3  3  3  3

Kondisi berhenti

Kami tahu bahwa kami telah mencapai:

• batas kanan matriks ketika karakter di $i_{x,y}$ tidak ada dan kami memiliki $x > y$

• batas bawah dari matriks ketika karakter tidak ada dan kita memiliki $x \le y$

J , 16 15 byte

-1 byte terima kasih kepada FrownyFrog!

{~#\<:@>./~@##\

Cobalah online!

Dibutuhkan N sebagai string.

Penjelasan solusi awal:

              #\   finds the length of the successive prefixes of the input (1 2 3...)
            #~     copies each digit as many times (1 2 2 3 3 3...)  
       >./~@       and creates a table of the max of the row/col numbers
  [:<:@            then subtract 1 from each element (for indexing)
{~                 select the corresponding digit from the input

Sesi tes dengan input 203:

   #\ '203'
1 2 3

   #~#\ '203'
1 2 2 3 3 3

   >./~@#~#\ '203'
1 2 2 3 3 3
2 2 2 3 3 3
2 2 2 3 3 3
3 3 3 3 3 3
3 3 3 3 3 3
3 3 3 3 3 3

   <:@>./~@#~#\ '203'
0 1 1 2 2 2
1 1 1 2 2 2
1 1 1 2 2 2
2 2 2 2 2 2
2 2 2 2 2 2
2 2 2 2 2 2

   ({~[:<:@>./~@#~#\) '203'
200333
000333
000333
333333
333333
333333

Haskell , 60 59 58 byte

f x|s<-do(n,_)<-zip[0..]x;n<$[0..n]=[(x!!).max a<$>s|a<-s]

Cobalah online!

---

Versi bebas poin (68 byte)

(map=<<(.((snd.).max)).flip map).((\t@(n,c)->t<$[1..n])=<<).zip[1..]

Cobalah online!

Python 2 , 71 byte

i=j=0;r=''
for x in input():i+=1;r+=x*i
for c in r:print j*c+r[j:];j+=1

Cobalah online!

Pertama menghasilkan baris pertama r, lalu beralih runtuk mencetak setiap baris.

R , 59 byte

function(a){m=outer(x<-rep(g<-seq(a),g),x,pmax);m[]=a[m];m}

Cobalah online!

• Saya perhatikan bahwa mengambil vektor angka dapat diterima, dan ini memungkinkan saya untuk menyimpan 21 byte :)
• -2 byte berkat saran @Giuseppe untuk hanya menerima vektor karakter
• -2 byte yang ditetapkan dalam definisi argumen

Jelly , 7 byte

Jx`»þ`ị

Cobalah online!

Output yang diklarifikasi.

05AB1E , 14 11 10 byte

Disimpan 1 byte berkat Magic Octopus Urn / Adnan

ƶJDv¬N×?=¦

Cobalah online!

Penjelasan

ƶ            # repeat each element its index (1-based) times 
 J           # join to string
  Dv         # for N in [0 ... len(string)-1] do
    ¬N×      # push the head repeated N times
       ?     # print without newline
        =    # print the rest of the string without popping
         ¦   # remove the head

APL (Dyalog Classic) , 16 byte

{⍵[∘.⌈⍨(/⍨⍳⍴⍵)]}

Saya memisahkan solusi ini dari posting dengan jawaban J saya, seperti yang disarankan oleh Jo King

Cobalah online!

Python 2 , 74 byte

i=1;a=[]
for c in input():exec"a=zip(*a+[c*-~len(a)]);"*i;i+=2+i%2
print a

Cobalah online!

Excel VBA, 95 byte

VBE jendela anonim langsung yang mengambil input dari [A1]dan output ke konsol

n=[len(A1)]:For y=1To n:For l=1To y:?:For x=1To n:?String(x,Mid([A1],IIf(x>y,x,y)));:Next x,l,y

Tidak diikat dan dikomentari

n=[len(A1)]                         ''  Get Length
For y=1To n                         ''  Iterate down input
For l=1To y                         ''  Iterate down repeat lines
?                                   ''  Print Newline
For x=1To n                         ''  Iterate accross input
?String(x,Mid([A1],IIf(x>y,x,y)));  ''  Print x of the `max(x,y)`th digit in input
Next x,r,y                          ''  Loop, Loop, Loop

MATL , 15 12 byte

tftY"t!2$X>)

Cobalah online!

Saya menduga ini bisa dipersingkat, tapi tidak terlalu buruk ...

          % implicit input, '230'
t         % duplicate input. Stack: ['230','230']
f         % indices of nonzero values. Stack: ['230',[1,2,3]]
t         % duplicate. Stack: ['230',[1,2,3],[1,2,3]]
Y"        % run-length decoding. Stack: ['230',[1,2,2,3,3,3]]
t         % duplicate. Stack: ['230',[1,2,2,3,3,3],[1,2,2,3,3,3]]
!         % transpose. Stack: ['230',[1,2,2,3,3,3],[1;2;2;3;3;3]]
2$X>      % elementwise maximum of 2 inputs, with broadcast.
          % Stack:
          % ['230',
          % [1, 2, 2, 3, 3, 3;
          %  2, 2, 2, 3, 3, 3;
          %  2, 2, 2, 3, 3, 3;
          %  3, 3, 3, 3, 3, 3;
          %  3, 3, 3, 3, 3, 3;
          %  3, 3, 3, 3, 3, 3]]
 )        % index into G
          % implicit end, display stack contents

Tambahkan ++ , 35 byte

L,bLRdBcB]£X¦Ω+d‽b>1€Ω_A€Ω:AbLR¦+$T

Cobalah online!

Bagaimana itu bekerja

Kami mengambil input sebagai daftar digit, sementara mencegah kami dari a) harus dilemparkan ke digit BD, dan juga dari harus menyimpan digit, yang akan memakan waktu dua byte.

bLR$n$$n$dBcB]$[[1, 1], [2, 2] ... [n, n]]$£X¦Ω+

Selanjutnya, kami menduplikasi array ini dan tabelnya secara maksimum d‽b>,. Yaitu setiap elemen dalam array dipasangkan dengan satu sama lain elemen dari array kedua dan perintah maksimum diad dijalankan oleh pasangan. Untuk input contoh [6 5] , ini menciptakan array [1 2 2 2 2 2 2 2 2] , yang merupakan versi rata dari mosaik, sebagai indeks untuk array. Sayangnya, Tambah ++ menggunakan 0-diindeks array, jadi kita perlu pengurangan setiap elemen: 1€Ω_.

A€Ω:$x$

$$\frac{x(x - 1)}{2}$$

$x^{th}$ AbLR¦+T$n$$T

Arang , 17 byte

Ｆ⮌…ＬθＵＯ⊕⊘×ι⁺³ι§θι

Cobalah online! Penjelasan:

Ｆ⮌…Ｌθ

Ulangi indeks karakter dalam urutan terbalik.

⊕⊘×ι⁺³ι

Hitung ukuran kotak.

ＵＯ...§θι

Gambarlah persegi menggunakan karakter saat ini.

Kanvas , 12 byte

ø╶｛；ｌ└²＋：＊；ｎ

Coba di sini!

Python 2 , 76 73 byte

-3 byte terima kasih kepada Lynn .

l=0;m=[]
for k in input():l+=1;m=[r+l*k for r in m]+l*[l*-~l/2*k]
print m

Cobalah online!

Arang , 14 byte

Ｅ⭆θ×⊕κι×⊕κι‖Ｏ↗

Cobalah online!

Bagaimana?

Ｅ⭆θ×⊕κι×⊕κι‖Ｏ↗ - implicitly print the result of...
Ｅ                - map:
  ⭆              -   over: string map:       
    θ             -     over: first input
     ×            -     using: repeat
        ι         -       what: ι (loop value)
      ⊕κ          -       by: incremented κ (loop counter)
         ×        -   using: repeat
            ι     -     what: ι (loop value)
          ⊕κ      -     by: incremented κ (loop counter)
             ‖Ｏ  - Reflect with overlap:
                ↗ -   direction: up-right

... dapatkah metode ini di-golf?

Stax , 12 byte

ü°√¿«│⌠º₧@\τ

Jalankan dan debug itu

Menggunakan algoritma ini .

Penjelasan:

c%R:BXm]i*xit+ Full program, implicit input
c%             Length of input
  R            1-based range
   :B          Repeat each element according to the range ("123" -> "122333")
     X         Save to X register
      m        Map:
       ]         Character -> string
        i*       Repeat by iteration index
          xit    Trim first <iteration index> elements from X
             +   Concatenate
                 Implicit output with newline

Stax , 20 19 18 16 byte

ù↔‼i,ÑΓæ☺=╘‼æ↕4╝

Jalankan dan debug itu

Penjelasan:

c%R:BX%mYx%{y|Mvx@m Full program, implicit input
c%                  Length of input
  R                 1-based range
   :B               Repeat each element according to the range ("123" -> "122333")
     X              Save to X register
      %             Length
       m            Map over 1-based range:
        Y             Save index to Y register
         x%           Push length of X register
           {      m   Map over 1-based range:
            y|M         Maximum of both indices
               v        1-based -> 0-based (decrement)
                x@      Index into X register
                      Implicit output with newline

Attache , 34 byte

{_[Table[Max,Flat!{_&_}=>1:#_]-1]}

Cobalah online!

Penjelasan

Bekerja mirip dengan jawaban J Galen Ivanov .

{_[Table[Max,Flat!{_&_}=>1:#_]-1]}
{                                }   anonymous function: _ is input, array of digits
                                     example: _ := [2, 0, 3]
                         1:#_        the range 1 to Size[_]
                                     > e.g.: [1, 2, 3]
                  {   }=>            over each number N:
                   _&_                   map to N repeated N times
                                     > e.g.: [[1], [2, 2], [3, 3, 3]]
             Flat!                   flatten it
                                     > e.g.: [1, 2, 2, 3, 3, 3]
   Table[Max,                ]       create a "max" table with it
                                     > e.g.:
                                       1 2 2 3 3 3
                                       2 2 2 3 3 3
                                       2 2 2 3 3 3
                                       3 3 3 3 3 3
                                       3 3 3 3 3 3
                                       3 3 3 3 3 3
                              -1     subtract 1 from each
                                     > e.g.:
                                       0 1 1 2 2 2
                                       1 1 1 2 2 2
                                       1 1 1 2 2 2
                                       2 2 2 2 2 2
                                       2 2 2 2 2 2
                                       2 2 2 2 2 2
 _[                             ]    index the original array with this matrix
                                     > e.g.:
                                       2 0 0 3 3 3
                                       0 0 0 3 3 3
                                       0 0 0 3 3 3
                                       3 3 3 3 3 3
                                       3 3 3 3 3 3
                                       3 3 3 3 3 3

K (ngn / k) , 16 byte

{x@i|\:i:&1+!#x}

Cobalah online!

C (gcc) , 130 byte

Siapa yang butuh matematika mewah saat Anda bisa bruteforce?

n,l;R(n,c){for(;n--;)putchar(c);}f(s){for(char*p=s,*q;*p++;)for(n=l=p-s;l--;R(1,10))for(R(n*n+n>>1,p[-1]),q=p;*q;q++)R(q-s+1,*q);}

Cobalah online!

QBasic 1.1 , 127 byte

INPUT S$
FOR X=1TO LEN(S$)
K=K+X
R$=R$+STRING$(X,MID$(S$,X,1))
NEXT
FOR C=1TO K
?STRING$(C-1,MID$(R$,C,1))RIGHT$(R$,K-C+1)
NEXT

-4 Terima kasih untuk DLosc .

Menggunakan versi modifikasi dari algoritma Python 2 xnor .

Input adalah string yang tidak dikutip. Output \ndipisahkan-tanpa ruang tambahan atau \ns.

QBasic , 111 byte

Fungsi anonim yang meminta input dan output ke konsol.

INPUT s$
n=LEN(s$)
FOR y=1TO n
FOR l=1TO y
?
FOR x=1TO n
z=x
IF y>x THEN z=y
?STRING$(x,MID$(s$,z));
NEXT x,l,y

Php 7.1 , 163 bytes

Via CLI memberikan nomor sebagai argumen:

<?foreach(str_split($argv[1])as$k=>$d)$a[]=array_fill(0,$s+=$k+1,array_fill(0,$s,$d));foreach(array_replace_recursive(...array_reverse($a))as$v)echo join($v)."\n";

Tidak begitu bermain golf:

$n = 123;

foreach(str_split($n) as $k => $d) {
    $s += $k + 1;
    $a[] = array_fill(0, $s, array_fill(0, $s, $d));
}

foreach(array_replace_recursive(...array_reverse($a)) as $v)
    echo implode('', $v) . "\n";

Keluaran:

122333
222333
222333
333333
333333
333333

Metode:

Pada dasarnya membangun kotak array multi-dimensi yang terdiri dari digit, dan kemudian menempatkan semuanya (array_replace_recursive).

(Ya, saya tahu ini sangat memalukan.)

Ruby , 80 byte

->n{s=(1..n.size).map{|i|n[i-1]*i}*"";(0...s.size).map{|i|s[i]*i+s[i..-1]}*"\n"}

Cobalah online!

Mirip dengan jawaban ovs

Japt, 12 byte

Mengambil input sebagai string, menghasilkan array string.

Ë+pE
¬£h°YçX

Cobalah

---

Penjelasan

            :Implicit input of string U
Ë           :Map each character D at 0-based index E
  pE        :  Repeat D E times
 +          :  Append to D
\n          :Reassign to U
¬           :Split to character array
 £          :Map each element X at 0-based index Y
   °Y       :  Increment Y
     çX     :  Repeat X Y times
  h         :  Replace the first Y characters in U with that

uBASIC , 120 byte

Fungsi anonim yang mengambil input foprm STDIN dan output ke STDOUT

0Input"",S$:N=Len(S$):ForY=1ToN:ForL=1ToY:ForX=1ToN:ForC=1ToX:Z=X:IfY>XThenZ=Y
1?Mid$(s$,z,1);:NextC:NextX:?:NextL:NextY

Cobalah online!

Visual Basic .NET (VBC) , 198 byte

Sebuah Subrutinitas yang mengambil masukan dari STDIN dan output ke stdout.

Tampaknya tidak bisa membuat StrDup berfungsi: /

Module M
Sub Main
Dim c,s,n,l,x,y
s=Console.readLine()
n=Len(s)
For y=1To n
For l=1To y
For x=1To n
For c=1To x
Console.Write(Mid(s,IIf(x>y,x,y),1)&IIf(c=n,vbLf,""))
Next c,x,l,y 
End Sub
End Module

Cobalah online!

Lua, 149 140 byte

Fungsi yang menerima daftar string digit dan mencetak hasilnya ke stdout. Ini adalah upaya pertama saya di golf kode (dan pilihan bahasa tidak membantu baik) jadi bersabarlah :)

Cobalah online!

function(a)F,s=0,""for b=1,#a do s=s..a[b]:rep(b)end;for b=1,#a do io.write((s.."\n"):rep(b))F,z=F+b,a[b+1]or""s=z:rep(F)..s:sub(F+1)end end

Tidak Disatukan:

G = function(p)
    F,s = 0,""
    for i=1,#p do
        s=s..p[i]:rep(i)
    end
    for i=1, #p do
        io.write((s.."\n"):rep(i))
        F,z = F+i, p[i+1]or""
        s = z:rep(F)..s:sub(F+1)
    end
end
-- allows to pass the argument list from stdin
-- example: {"1", "2", "3", "4", "5"}
G(load("return " .. io.read())())

Perl 5 + -nalF -M5.010, 67 byte

s/./$&x++$-/ge;eval'eval"say;"x++$i;$x+=$i;s/.{$x}/$F[$i]x$x/e;'x@F

Cobalah online!

Yabasic , 108 byte

Fungsi anonim yang mengambil input dari STDIN dan output ke STDOUT

Input""s$
n=len(s$)
For y=1To n
For r=1To y
For x=1To n
For c=1To x?Mid$(s$,max(x,y),1);Next
Next
?Next
Next

Cobalah online!