과제
함수를 작성하면 2 차원 2 차원 배열 (또는 프로그래밍 언어에 문자가 데이터 유형이없는 경우 문자열)이 입력으로 사용됩니다. a 및 b. 언어가 이러한 입력을 지원하지 않으면 다른 표준 1 바이트 변수를 사용할 수 있습니다.

당신의 임무는 b에 a가 포함되어 있는지 확인하는 것입니다. 그렇다면, true를 반환하십시오. 그렇지 않으면 false를 반환하십시오.

샘플 테스트 사례

a:

123
456
789

b:

123
456
789

true를 반환해야합니다.

a:

code
golf

b:

thisis
code!!
golf!!
ohyeah

true를 반환해야합니다.

a:

abcd
efgh
ijkl

b:

abcdef
ghijkl
mnopqr

거짓을 반환해야합니다.

a:

abc
def

b:

1abc2
3def4
5ghi6

true를 돌려줘야한다

a:

ab
cd

b:

#ab##
##cd#

거짓을 돌려줘야한다

최소 바이트가 이깁니다.

Brachylog (v2), 4 바이트

s\s\

온라인으로 사용해보십시오!

대부분 쉽게를 위해 평소와 같이, 전체 프로그램으로 실행 의사 결정 문제 와 함께, 명령 줄 인수로 지정 B 표준 입력합니다. 문제는 기능을 요구하고, 또한 프로그램으로 함수로서 작동 B , 왼쪽 를 통해 우측 및 출력 결정이 거짓 인 경우에만, 예외의 제조 .

설명

s\s\
s     a substring of rows of {the left input}
 \…\  assert rectangular; swap row and column operations
  s   a substring of <s>rows</s> columns of {the above matrix}
      {implicit} assert that the result can be {the right input}

"사각형 어설 션"은 분명히 문제가 이미 보증했듯이 무의미합니다. 프로그램의 나머지 부분은 행과 열의 하위 문자열, 즉 하위 행렬을 식별하여 그리드 검색을 수행합니다.

메타 토론

우리는 전에 매우 비슷한 질문 을했습니다; 한 질문에 대한 대부분의 답변이 다른 질문에 대한 답변으로 수정 가능할 것으로 기대합니다. 그래도 이것이 더 깔끔한 버전이라고 생각합니다.

파이썬 2 , 67 바이트

f=lambda a,b,r=4:b*r and f(a,b[1:],r)|f(a,zip(*b)[::-1],r-1)or a==b

온라인으로 사용해보십시오!

튜플 문자 목록으로 입력을받습니다.

모든 하위 그리드를 시도하고 그중에 b있는지 확인 a합니다. 하위 그리드는 첫 번째 행을 제거 b하거나 90도 회전 하여 재귀 적으로 분기하여 생성됩니다 . 정확히 네 번 회전 한 후 다듬은 b것이 같은지 확인합니다 a.

J , ^{21 15 8} 7 바이트

1#.,@E.

온라인으로 사용해보십시오!

Bolce Bussiere 덕분에 -7 바이트

원래 답변

J , ²¹ 15 바이트

<@[e.&,$@[<;.3]

온라인으로 사용해보십시오!

FrownyFrog 덕분에 -6 바이트

어떻게

• <@[ 박스형 왼쪽 인수
• $@[<;.3] 왼쪽 arg와 모양이 같은 오른쪽 arg의 모든 사각형
• 이제 왼쪽과 오른쪽 arg로 그것들을 전달하십시오 ...
• 왼쪽 arg는 오른쪽 arg의 느릅 나무입니다. e.&,

숯 , 26 바이트

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

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 연속적인 하위 행렬 수 에 대한 나의 대답에 크게 의존하지만 , 유일한 차이점은 일치하는 합계를 취하는 대신 최대 값을 얻는다는 것입니다 ⭆. 결과 사용으로 인한 암시 적 문자열 변환으로 인해 이미 문자열을 저장하는 문자열입니다 바이트.

05AB1E , 10 바이트

øŒεøŒI.å}à

취하고 b, 첫번째 입력으로서 a제있다. 두 입력 모두 문자 행렬로 사용됩니다.

이 관련 도전에 대한 @ Mr.Xcoder 의 05AB1E 포트 답변 , 따라서 그를 찬성 해야합니다!

온라인으로 시도 하거나 모든 테스트 사례를 확인하십시오 .

설명:

øŒ          # Get the sublists of every column of the (implicit) input `b`
  ε         # Map each list of sublists to:
   øŒ       #  Get the sublists of every column again
            #  (now we have all sub-matrices of `b`)
     I.å    #  Check if the second input `a` is in this list of sub-matrices
        }à  # After the map: check if any are truthy by taking the maximum
            # (which is output implicitly as result)

파이썬 (2) , 106 (118) 113 바이트

lambda a,b,L=len:any(sum(A==B[j:j+L(A)]for A,B in zip(a,b[i:]))==L(a)for i in range(L(b))for j in range(L(b[0])))

온라인으로 사용해보십시오!

Wolfram Language (Mathematica) , 46 바이트

nOr@@Or@@@BlockMap[#==n&,#,Dimensions@n,1]&

온라인으로 사용해보십시오!

카레 기능 :로 전화하십시오 f[a][b].

Or@@Or@@@또는에 대한 더 짧은 대안이 Dimensions있습니까?

자바 스크립트 (ES6) , 131 (112) 105 바이트

105 바이트 :

f=(m,n)=>m.some((x,i)=>i<=m.length-n.length&x.some((c,j)=>n.every((l,z)=>(m[i+z]+'').indexOf(l,j)==2*j)))

온라인으로 사용해보십시오!

변경 사항 :

• m[i]into xand n[z]into l: 이 변수가 이미 설정되어 있음을 완전히 잊었습니다 .
• &&into &: 연산자의 양쪽이 이미 부울이므로 비트 연산자가 작동합니다.

112 바이트 :

f=(m,n)=>m.some((x,i)=>i<=m.length-n.length&&m[i].some((c,j)=>n.every((l,z)=>(m[i+z]+'').indexOf(n[z],j)==2*j)))

온라인으로 사용해보십시오!

변경 사항 :

• map((c,j)=>{...}).some(s=>s)로 some((c,j)=>{...}): 이중화
• m[i+z].join()into m[i+z]+'': 배열을 문자열로 변환하는 더 짧은 방법
• indexOf(n[z].join(),j)로 indexOf(n[z],j): 방법 이미 변환 문자열로 indexOf n[z]

131 바이트 :

f=(m,n)=>m.some((x,i)=>i<=m.length-n.length&&m[i].map((c,j)=>n.every((l,z)=>m[i+z].join().indexOf(n[z].join(),j)==2*j)).some(s=>s))

온라인으로 사용해보십시오!

읽을 수있는 :

function f (m, n) {
  return m.some((x, i) => {
    return i <= m.length - n.length
      && m[i].map((c, j) => {
        return n.every((l, z) => {
          return m[i + z].join().indexOf(n[z].join(), j) == 2 * j
        })
      })
        .some(s => s)
  })
}

개별 값을 비교하는 대신 그리드 N의 라인이 그리드 M의 라인에 포함되어 있는지, 그렇다면 인덱스가 있는지 확인했습니다. 모든 라인이 동일한 인덱스에서 시작하여 포함되면 그리드 N은 그리드 M에 포함됩니다.

PowerShell을 , 71 102 85 98 바이트

감사합니다 @ 조 킹; 테스트 사례가 추가되었습니다.

param($a,$b)!!($a|%{$p=[regex]::Escape($_)
$b|sls $p -a -ca|% m*}|group index|?{"$a"-ceq$_.Group})

온라인으로 사용해보십시오!

덜 골프 :

param($a,$b)

$matches = $a|%{
    $pattern = [regex]::Escape($_)
    $b|Select-String $pattern -AllMatches -CaseSensitive|% Matches
}

$relevantGroupsByMatchPosition = $matches|group index|?{
    "$a"-ceq$_.Group  # the '$_.Group' contains matches in source order
                      # -ceq is case sensitivity equation operator
                      # -ceq performs an implicit conversion to the left operand type
}

!!($relevantGroupsByMatchPosition)  # true if the variable is not $null

자바 스크립트, 150 바이트

f=(a,b)=>{_='length';for(r=i=0;i<=b[_]-a[_];i++)for(j=0;j<=b[0][_]-a[0][_];j++){u=0;a.map((l,y)=>l.map((c,x)=>u=u||b[i+y][j+x]!=c));r=r||!u;}return r}

온라인으로 사용해보십시오