คุณจะได้รับเมทริกซ์จตุรัสของจำนวนเต็มMและอีกจำนวนเต็มบวกnอย่างเคร่งครัดมีขนาดเล็กกว่าขนาดของM งานของคุณคือการสร้างทุกตารางย่อยของเมทริกซ์Mขนาดn

สำหรับวัตถุประสงค์ของการท้าทายนี้เป็นตารางย่อยเมทริกซ์เป็นกลุ่มที่อยู่ติดกันแถวและคอลัมน์ที่มีอยู่ในM

รูปแบบอินพุต / เอาต์พุต

คุณมีอิสระที่จะเลือกรูปแบบที่เหมาะสมอื่น ๆ เหล่านี้เป็นเพียงตัวอย่าง

อินพุต

• เมทริกซ์ในประเภทเมทริกซ์เนทีฟ (หากภาษาของคุณมี)
• อาร์เรย์ 2 มิติ (อาร์เรย์ 1D ของอาร์เรย์แต่ละแถวสอดคล้องกับหนึ่งแถว / หนึ่งคอลัมน์)
• อาร์เรย์ 1D (เนื่องจากเมทริกซ์เป็นจตุรัสเสมอ)
• สตริง (คุณเลือกการเว้นวรรค แต่โปรดอย่าใช้สิ่งนี้ในทางที่ผิด) ฯลฯ

เอาท์พุต

• เมทริกซ์ของเมทริกซ์
• อาเรย์ 4D ที่แต่ละองค์ประกอบ (รายการ 3D) แสดงเมทริกซ์ย่อยในแถว / คอลัมน์
• อาร์เรย์ 3 มิติที่แต่ละองค์ประกอบ (รายการ 2D) แสดงเมทริกซ์ย่อย
• การแทนค่าสตริงของเมทริกซ์ย่อยที่ได้เป็นต้น

รายละเอียด

• คุณอาจเลือกที่จะใช้ขนาดของMเป็นอินพุตเช่นกัน มันมีการประกันเพื่อมีอย่างน้อย2
• การวางแนวของเอาต์พุตนั้นโดยพลการ: คุณอาจเลือกที่จะเอาท์พุทเมทริกซ์ย่อยเป็นรายการของคอลัมน์หรือรายการของแถว แต่ตัวเลือกของคุณจะต้องสอดคล้องกัน
• คุณสามารถแข่งขันในภาษาการเขียนโปรแกรมใด ๆและสามารถรับอินพุตและให้เอาต์พุตผ่านวิธีการมาตรฐานใด ๆในขณะที่รับทราบว่าช่องโหว่เหล่านี้ถูกห้ามโดยค่าเริ่มต้น
• นี่คือรหัสกอล์ฟดังนั้นการส่งสั้นที่สุด (เป็นไบต์) สำหรับทุกภาษาที่ชนะ

ตัวอย่าง

รับn = 3และM :

 1 2 3 4
 5 6 7 8
 9 10 11 12
13 14 15 16

เมทริกซ์ย่อย3x3 ที่เป็นไปได้คือ:

+ ------- + + -------- + 1 2 3 4 1 2 3 4
| 1 2 3 | 4 1 | 2 3 4 | + -------- + + -------- +
| 5 6 7 | 8 5 | 6 7 8 | | 5 6 7 | 8 5 | 6 7 8 |
| 9 10 11 | 12 9 | 10 11 12 | | 9 10 11 | 12 9 | 10 11 12 |
+ ------- + + -------- + | 13 14 15 | 16 13 | 14 15 16 |
13 14 15 16 13 14 15 16 + -------- + + -------- +

ดังนั้นผลลัพธ์จะเป็น:

[[[1, 2, 3], [5, 6, 7], [9, 10, 11]], [[2, 3, 4], [6, 7, 8], [10, 11, 12]], [[5, 6, 7], [9, 10, 11], [13, 14, 15]], [[6, 7, 8], [10, 11, 12], [14, 15, 16]]]

ตามที่ระบุไว้ข้างต้นผลลัพธ์ของ:

[[[1, 5, 9], [2, 6, 10], [3, 7, 11]], [[2, 6, 10], [3, 7, 11], [4, 8, 12]], [[5, 9, 13], [6, 10, 14], [7, 11, 15]], [[6, 10, 14], [7, 11, 15], [8, 12, 16]]]

จะเป็นที่ยอมรับเช่นกันหากคุณเลือกที่จะส่งคืนเมทริกซ์ย่อยเป็นรายการของแถวแทน

กรณีทดสอบ

อินพุตM, n :

[[1,2,3],[5,6,7],[9,10,11]], 1
[[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]], 3
[[100,-3,4,6],[12,11,14,8],[0,0,9,3],[34,289,-18,3]], 2
[[100,-3,4,6],[12,11,14,8],[9,10,11,12],[13,14,15,16]], 3

และผลลัพธ์ที่สอดคล้องกัน (เมทริกซ์ย่อยที่กำหนดเป็นรายการของแถว):

[[[1]],[[2]],[[3]],[[5]],[[6]],[[7]],[[9]],[[10]],[[11]]]
[[[1,2,3],[5,6,7],[9,10,11]],[[2,3,4],[6,7,8],[10,11,12]],[[5,6,7],[9,10,11],[13,14,15]],[[6,7,8],[10,11,12],[14,15,16]]]
[[[100,-3],[12,11]],[[-3,4],[11,14]],[[4,6],[14,8]],[[12,11],[0,0]],[[11,14],[0,9]],[[14,8],[9,3]],[[0,0],[34,289]],[[0,9],[289,-18]],[[9,3],[-18,3]]]
[[[100,-3,4],[12,11,14],[9,10,11]],[[-3,4,6],[11,14,8],[10,11,12]],[[12,11,14],[9,10,11],[13,14,15]],[[11,14,8],[10,11,12],[14,15,16]]]

หรือตามรายการของคอลัมน์:

[[[1]],[[2]],[[3]],[[5]],[[6]],[[7]],[[9]],[[10]],[[11]]]
[[[1,5,9],[2,6,10],[3,7,11]],[[2,6,10],[3,7,11],[4,8,12]],[[5,9,13],[6,10,14],[7,11,15]],[[6,10,14],[7,11,15],[8,12,16]]]
[[[100,12],[-3,11]],[[-3,11],[4,14]],[[4,14],[6,8]],[[12,0],[11,0]],[[11,0],[14,9]],[[14,9],[8,3]],[[0,34],[0,289]],[[0,289],[9,-18]],[[9,-18],[3,3]]]
[[[100,12,9],[-3,11,10],[4,14,11]],[[-3,11,10],[4,14,11],[6,8,12]],[[12,9,13],[11,10,14],[14,11,15]],[[11,10,14],[14,11,15],[8,12,16]]]]

05AB1E , 8 ไบต์

2FεŒsù}ø

ลองออนไลน์!

คำอธิบาย

2F            # 2 times do:
  ε    }      # apply to each element in the input matrix (initially rows)
   Œsù        # get a list of sublists of size input_2
        ø     # transpose (handling columns on the second pass of the loop)

MATL , 4 ไบต์

thYC

ปัจจัยการผลิตที่มีแล้วnM

เอาต์พุตเป็นเมทริกซ์โดยที่แต่ละคอลัมน์มีคอลัมน์ทั้งหมดของซับเมทริกซ์

ลองออนไลน์!

คำอธิบาย

thY    % Address the compiler with a formal, slightly old-fashioned determiner
C      % Convert input to ouput

จริงจังยิ่งขึ้นtรับอินพุตn โดยนัยและทำซ้ำในกองซ้อน hเชื่อมสำเนาทั้งสองnผลิตอาร์เรย์[N, N] YCรับอินพุตMโดยปริยายแยก[n, n] -ขนาดบล็อกทั้งหมดและจัดเรียงเป็นคอลัมน์ตามลำดับคอลัมน์ที่สำคัญ ซึ่งหมายความว่าคอลัมน์ของแต่ละบล็อกจะถูกจัดเรียงในแนวตั้งเพื่อสร้างคอลัมน์เดียว

APL (Dyalog Unicode) , 26 ไบต์^SBCS

แลมบ์ดานิรนามโดยใช้nเป็นอาร์กิวเมนต์ซ้ายและMเป็นอาร์กิวเมนต์ขวา

{s↓(-s←2⍴⌈¯1+⍺÷2)↓⊢⌺⍺ ⍺⊢⍵}

ลองออนไลน์!

{… } แลมบ์ดานิรนามซึ่ง⍺เป็นอาร์กิวเมนต์ด้านซ้ายและ⍵เป็นอาร์กิวเมนต์ที่ถูกต้อง:

 ⊢⍵ ให้ค่าอาร์กิวเมนต์ที่ถูกต้อง ( ⊢แยก⍺ ⍺จาก⍵)

 ⊢⌺⍺ ⍺⍺เมทริกซ์ย่อย ทั้งหมดโดย⍺รวมถึงขอบที่ทับซ้อนกัน (เหล่านั้นจะเต็มด้วยศูนย์)

 (... )↓ วางองค์ประกอบตัวเลขต่อไปนี้ไว้ในสองมิติแรก:

  ⍺÷2 ครึ่งหนึ่งของ ⍺

  ¯1+ ลบหนึ่งบวกนั่น

  ⌈ ปัดขึ้น

  2⍴ วนr eshape ไปยังรายการของสององค์ประกอบ

  s← เก็บในs(สำหรับs hards)

  - คัดค้าน (เช่นวางจากด้านหลัง)

 s↓วางsองค์ประกอบตามมิติที่หนึ่งและสอง (จากด้านหน้า)

APL (Dyalog Unicode) ขนาด 31 ไบต์

{(1↓2 1 3 4⍉⊖)⍣(4×⌊⍺÷2)⊢⌺⍺ ⍺⊢⍵}

ลองออนไลน์!

แนวทางที่แตกต่างจากของAdám

R , 75 ไบต์

function(M,N,S,W=1:N,g=N:S-N)for(i in g)for(j in g)print(M[i+W,j+W,drop=F])

ลองออนไลน์!

ใช้เวลาM, NและSize ของเมทริกซ์

พิมพ์เมทริกซ์ผลลัพธ์ไปยัง stdout; drop=Fเป็นสิ่งจำเป็นดังนั้นในN=1กรณีการจัดทำดัชนีไม่ได้วางdimแอตทริบิวต์และอัตราผลตอบแทนมากกว่าmatrixvector

J , 11 8 ไบต์

-3 ไบท์ขอบคุณไมล์

<;._3~,~

ลองออนไลน์!

Haskell , 67 ไบต์

m#n|r<-[0..length m-n]=[take n.drop x<$>take n(drop y m)|x<-r,y<-r]

ลองออนไลน์!

เยลลี่ 5 ไบต์

Z⁹Ƥ⁺€

ใช้รูปแบบเอาต์พุต 4D สำหรับ 3D ให้ผนวก aẎสำหรับ6 ไบต์

ลองออนไลน์!

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

Z⁹Ƥ⁺€  Main link. Left argument: M (matrix). Right argument: n (integer)

 ⁹Ƥ    Apply the link to the left to all infixes of length n.
Z        Zip the rows of the infix, transposing rows and columns.
   ⁺€  Map Z⁹Ƥ over all results.

Brachylogขนาด 13 ไบต์

{tN&s₎\;Ns₎}ᶠ

ลองออนไลน์!

ส่งคืนรายการของคอลัมน์

ในทางเทคนิคtN&s₎\;Ns₎เป็นภาคแสดงการสร้างซึ่งรวมเอาท์พุทของมันกับเมทริกซ์ย่อยใด ๆ เหล่านั้น เราใช้{…}ᶠเพื่อเปิดเผยความเป็นไปได้ทั้งหมดเท่านั้น

คำอธิบาย

 tN&              Call the second argument of the input N
{          }ᶠ     Find all:
    s₎              A substring of the matrix of size N
      \             Transpose that substring
       ;Ns₎         A substring of that transposed substring of size N

Stax , 10 ไบต์

│Æ☼♂Mqß E╖

เรียกใช้

การเป็นตัวแทน ASCII ของโปรแกรมเดียวกันคือ

YBFMyBF|PMmJ

มันใช้งานได้เช่นนี้

Y               Store the number in the y register
 B              Batch the grid into y rows each
  F             Foreach batch, run the rest of the program
   M            Transpose about the diagonal
    yB          Batch the transposed slices into y rows each
      F         Foreach batch, run the rest of the progoram
       |P       Print a blank line
         M      Transpose inner slice - restoring its original orientation
          mJ    For each row in the inner grid, output joined by spaces

JavaScript (ES6), 91 ไบต์

(a)(n)จะเข้าในไวยากรณ์ currying ส่งคืนผลลัพธ์เป็นรายการของแถว

a=>n=>(g=x=>a[y+n-1]?[a.slice(y,y+n).map(r=>r.slice(x,x+n)),...g(a[x+n]?x+1:!++y)]:[])(y=0)

กรณีทดสอบ

let f =

a=>n=>(g=x=>a[y+n-1]?[a.slice(y,y+n).map(r=>r.slice(x,x+n)),...g(a[x+n]?x+1:!++y)]:[])(y=0)

;[
  [ [[1,2,3],[5,6,7],[9,10,11]], 1 ],
  [ [[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]], 3 ],
  [ [[100,-3,4,6],[12,11,14,8],[0,0,9,3],[34,289,-18,3]], 2 ],
  [ [[100,-3,4,6],[12,11,14,8],[9,10,11,12],[13,14,15,16]], 3]
]
.forEach(([m, a]) => console.log(JSON.stringify(f(m)(a))))

APL (Dyalog Classic) , 24 23 ไบต์

t∘↑¨(¯1-t←-2⍴⎕)↓,⍀⍪\⍪¨⎕

ลองออนไลน์!

ผลที่ได้คือเมทริกซ์ของเมทริกซ์ถึงแม้ว่าการจัดรูปแบบเอาต์พุตของ Dyalog ไม่ชัดเจนเท่าไหร่

ใส่เมทริกซ์ ( ⎕) เปลี่ยนแต่ละองค์ประกอบให้เป็นเมทริกซ์ที่ซ้อนกันของมันเอง ( ⍪¨) ใส่คำนำหน้าเรียงต่อกันตามแถว ( ,\) และโดยคอลัมน์ ( ⍪⍀), ป้อน n ( ⎕), วาง n-1 แถวแรกและคอลัมน์ของเมทริกซ์ซ้อน(¯1-t←-2⍴⎕)↓) ใช้มุมล่างขวา n-by-n จากแต่ละเมทริกซ์ ( t∘↑¨)

                                        ┌─┬──┬───┐
                                        │a│ab│abc│      ┼──┼───┤        ┼──┼───┤
 n=2       ┌─┬─┬─┐      ┌─┬──┬───┐      ├─┼──┼───┤      │ab│abc│        │ab│ bc│
┌───┐      │a│b│c│      │a│ab│bac│      │a│ab│abc│      │de│def│        │de│ ef│
│abc│  ⍪¨  ├─┼─┼─┤  ,\  ├─┼──┼───┤  ⍪⍀  │d│de│def│ 1 1↓ ┼──┼───┤¯2 ¯2∘↑¨┼──┼───┤
│def│ ---> │d│e│f│ ---> │d│de│edf│ ---> ├─┼──┼───┤ ---> │ab│abc│  --->  │  │   │
│ghi│      ├─┼─┼─┤      ├─┼──┼───┤      │a│ab│abc│      │de│def│        │de│ ef│
└───┘      │g│h│i│      │g│gh│hgi│      │d│de│def│      │gh│ghi│        │gh│ hi│
           └─┴─┴─┘      └─┴──┴───┘      │g│gh│ghi│      ┴──┴───┘        ┴──┴───┘
                                        └─┴──┴───┘

Ruby , 63 ไบต์

->c,g{n=c.size-g+1
(0...n*n).map{|i|c[i/n,g].map{|z|z[i%n,g]}}}

ลองออนไลน์!

นี่คือแลมบ์ดาที่ใช้อาร์เรย์ 2 มิติและ int แล้วคืนค่าอาร์เรย์ 3 มิติ

Ungolfed:

->m,n{
  a = m.size - n + 1     # The count of rows in m that can be a first row in a submatrix
  (0...a*a).map{ |b|     # There will be a*a submatrices
    m[b/a,n].map{ |r|    # Take each possible set of n rows
      r[b%a,n]           # And each possible set of n columns
    }
  }
}

Python 2 , 91 ไบต์

lambda a,n:(lambda R:[[r[i:i+n]for r in a[j:j+n]]for i in R for j in R])(range(len(a)+1-n))

ลองออนไลน์!