ย้ายจากการแชท

ได้รับจำนวนเต็มสองไม่ว่างเปล่าที่ไม่ใช่เชิงลบเมทริกซ์และBตอบจำนวนครั้งที่เกิดขึ้นเป็นที่ต่อเนื่องกันอาจจะเป็นที่ทับซ้อนกัน submatrixในB

ตัวอย่าง / กฎระเบียบ

0. อาจไม่มีเมทริกซ์ย่อยใด ๆ

A :
[[3,1],
[1,4]]

B :
[[1,4],
[3,1]]

ตอบ:
0

1. เมทริกซ์ย่อยจะต้องต่อเนื่องกัน

A :
[[1,4],
[3,1]]

B :
[[3,1,4,0,5],
[6,3,1,0,4],
[5,6,3,0,1]]

คำตอบ:
1(ทำเครื่องหมายเป็นตัวหนา)

2. เมทริกซ์ย่อยอาจทับซ้อนกัน

A :
[[1,4],
[3,1]]

B :
[[3,1,4,5],
[6,3,1,4],
[5,6,3,1]]

คำตอบ:
2(ทำเครื่องหมายด้วยตัวหนาและตัวเอียงตามลำดับ)

3. เมทริกซ์ (ย่อย) อาจมีขนาดตั้งแต่ 1 ถึง 1 ขึ้นไป

A :
[[3]]

B :
[[3,1,4,5],
[6,3,1,4],
[5,6,3,1]]

คำตอบ:
3(ทำเครื่องหมายเป็นตัวหนา)

4. เมทริกซ์อาจมีรูปร่างใด ๆ

A :
[[3,1,3]]

[[3,1,3,1,3,1,3,1,3]]

คำตอบ:
4(ตัวหนาสองตัวเอียงสองตัว)

Brachylog (v2), 10 ไบต์

{{s\s\}ᵈ}ᶜ

ลองออนไลน์!

ฉันชอบความชัดเจนและตรงไปตรงมาของโปรแกรมนี้ใน Brachylog; น่าเสียดายที่ไม่ใช่ไบต์สั้น ๆ เนื่องจากไวยากรณ์ของเมตาเรเดตจะใช้เวลาสามไบต์และจะต้องใช้สองครั้งในโปรแกรมนี้

คำอธิบาย

{{s\s\}ᵈ}ᶜ
  s         Contiguous subset of rows
   \s\      Contiguous subset of columns (i.e. transpose, subset rows, transpose)
 {    }ᵈ    The operation above transforms the first input to the second input
{       }ᶜ  Count the number of ways in which this is possible

เยลลี่ขนาด 7 ไบต์

ZẆ$⁺€Ẏċ

ลองออนไลน์!

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

ZẆ$⁺€Ẏċ  Main link. Arguments: B, A

  $      Combine the two links to the left into a monadic chain.
Z          Zip; transpose the matrix.
 Ẇ         Window; yield all contiguous subarrays of rows.
   ⁺     Duplicate the previous link chain.
    €    Map it over the result of applying it to B.
         This generates all contiguous submatrices of B, grouped by the selected
         columns of B.
     Ẏ   Tighten; dump all generated submatrices in a single array.
      ċ  Count the occurrences of A.

MATLขนาด 12 ไบต์

ZyYC2MX:=XAs

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

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย

พิจารณาอินพุต[1,4; 3 1], [3,1,4,5; 6,3,1,4; 5,6,3,1]. สแต็กแสดงด้วยองค์ประกอบล่าสุดด้านล่าง

Zy    % Implicit input: A. Push size as a vector of two numbers
      % STACK: [2 2]
YC    % Implicit input: B. Arrange sliding blocks of specified size as columns,
      % in column-major order
      % STACK: [3 6 1 3 4 1;
                6 5 3 6 1 3;
                1 3 4 1 5 4;
                3 6 1 3 4 1]
2M    % Push input to second to last function again; that is, A
      % STACK: [3 6 1 3 4 1;
                6 5 3 6 1 3;
                1 3 4 1 5 4;
                3 6 1 3 4 1],
               [1 4;
                3 1]                    
X:    % Linearize to a column vector, in column-major order
      % STACK: [3 6 1 3 4 1;
                6 5 3 6 1 3;
                1 3 4 1 5 4;
                3 6 1 3 4 1],
               [1;
                3;
                4;
                1]  
=     % Test for equality, element-wise with broadcast
      % STACK: [0 0 1 0 0 1
                0 0 1 0 0 1;
                0 0 1 0 0 1;
                0 0 1 0 0 1]
XA    % True for columns containing all true values
      % STACK: [0 0 1 0 0 1]
s     % Sum. Implicit display
      % STACK: 2

05AB1E , 10 ไบต์

øŒεøŒI.¢}O

ลองออนไลน์!

øŒεøŒI.¢}O     Full program. Takes 2 matrices as input. First B, then A.
øŒ             For each column of B, take all its sublists.
  ε     }      And map a function through all those lists of sublists.
   øŒ          Transpose the list and again generate all its sublists.
               This essentially computes all sub-matrices of B.
     I.¢       In the current collection of sub-matrices, count the occurrences of A.
         O     At the end of the loop sum the results.

Dyalog APL, 6 4 ไบต์

≢∘⍸⍷

นี่เกือบจะเป็นแบบ builtin (ขอบคุณH.PWizและngn )

  ⍷       Binary matrix containing locations of left argument in right argument
≢∘⍸       Size of the array of indices of 1s

ทางเลือกอื่นที่ไม่ได้สร้างขึ้น:

{+/,((*⍺)≡⊢)⌺(⍴⍺)*⍵}

ฟังก์ชัน Dyadic ที่นำอาร์เรย์ขนาดใหญ่ไปทางขวาและ subarray ทางซ้าย

                  *⍵       exp(⍵), to make ⍵ positive.
    ((*⍺)≡⊢)⌺(⍴⍺)        Stencil;
                            all subarrays of ⍵ (plus some partial subarrays
                            containing 0, which we can ignore)
               ⍴⍺             of same shape as ⍺
     (*⍺)≡⊢                   processed by checking whether they're equal to exp(⍺).
                           Result is a matrix of 0/1.
   ,                     Flatten
 +/                      Sum.

ลองมันนี่

JavaScript (ES6), 93 ไบต์

(A)(B)จะเข้าเป็น

a=>b=>b.map((r,y)=>r.map((_,x)=>s+=!a.some((R,Y)=>R.some((v,X)=>v!=(b[y+Y]||0)[x+X]))),s=0)|s

ลองออนไลน์!

R , 95 ไบต์

function(A,B,x=dim(A),D=dim(B)-x){for(i in 0:D)for(j in 0:D[2])F=F+all(B[1:x+i,1:x[2]+j]==A);F}

ลองออนไลน์!

สะอาด , 118 97 95 ไบต์

import StdEnv,Data.List
?x=[transpose y\\z<-tails x,y<-inits z]
$a b=sum[1\\x<- ?b,y<- ?x|y==a]

ลองออนไลน์!

Python 2 , 101 ไบต์

lambda a,b:sum(a==[l[j:j+len(a[0])]for l in b[i:i+len(a)]]for i,L in e(b)for j,_ in e(L))
e=enumerate

ลองออนไลน์!

ถ่าน , 36 27 ไบต์

ＩΣ⭆η⭆ι⁼θＥ✂ηκ⁺Ｌθκ¹✂νμ⁺Ｌ§θ⁰μ¹

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

   η                        Input array B
  ⭆                         Mapped over rows and joined
     ι                      Current row
    ⭆                       Mapped over columns and joined
       θ                    Input array A
      ⁼                     Is equal to
          η                 Input array B
         ✂                  Sliced
                ¹           All elements from
           κ                Current row index to
             Ｌ              Length of
              θ             Input array A
            ⁺               Plus
               κ            Current row index
        Ｅ                   Mapped over rows
                  ν         Current inner row
                 ✂          Sliced
                          ¹ All elements from
                   μ        Current column index to
                     Ｌ      Length of
                       θ    Input array A
                      §     Indexed by
                        ⁰   Literal 0
                    ⁺       Plus
                         μ  Current column index
 Σ                          Digital sum
Ｉ                           Cast to string
                            Implicitly printed

Python 2 , 211 ไบต์

a,b=input()
l,w,L,W,c=len(a),len(a[0]),len(b),len(b[0]),0
for i in range(L):
 for j in range(W):
  if j<=W-w and i<=L-l:
   if not sum([a[x][y]!=b[i+x][j+y]for x in range(l)for y in range(w)]):
    c+=1
print c 

ลองออนไลน์!

ค่อนข้างตรงไปตรงมา ก้าวผ่านเมทริกซ์ที่ใหญ่ขึ้นและตรวจสอบว่าเมทริกซ์ที่เล็กกว่านั้นสามารถพอดีได้หรือไม่

ขั้นตอนที่ยุ่งยากเพียงเล็กน้อยเท่านั้นคือรายการความเข้าใจในบรรทัดที่ 6 ซึ่งอาศัยหลักการของ Python ในการผสม Boolean และเลขคณิตจำนวนเต็ม

Groovyขนาด 109 ไบต์

{a,b->(0..<b.size()).sum{i->(0..<b[i].size()).count{j->k=i-1
a.every{l=j;k++
it.every{(b[k]?:b)[l++]==it}}}}}

ลองออนไลน์!

สกาลา , 151 ไบต์

(a,b)=>{(0 to b.size-a.size).map(i=>(0 to b(0).size-a(0).size).count(j=>{var k=i-1
a.forall(c=>{var l=j-1;k+=1
c.forall(d=>{l+=1
b(k)(l)==d})})})).sum}

ลองออนไลน์!