3 개의 입력 항목, 좌표 쌍 목록, 2D 문자열 및 단일 문자 문자열이 제공되면 2D 문자열의 각 좌표에있는 문자가 단일 문자와 같은지 여부를 출력합니다. 어떤 순서로든 입력을받을 수 있으며 좌표는 1- 색인이 될 수 있습니다.

2D 문자열을 2D 목록, 행 목록 또는 2D 문자열로 사용할 수 있습니다.

예: (0,0), "#_\n__", "#" -> True

문자열은

#_
__

좌표 (0,0)(왼쪽 상단부터) 의 문자 는 #입니다. 이것은 세 번째 입력 항목과 동일 #하므로 출력 True(또는 진실한 값)

예: [(0,0), (1,1)], "#_\n_#", "#" -> True

문자열은

#_
_#

(0,0)및 의 좌표에있는 문자 (1,1)는 모두 #이므로 출력은 true입니다.

모든 좌표가 해시와 일치하는 경우에만 출력이 참입니다. 모든 해시가 일치하는 좌표를 가질 필요는 없습니다. 단일 문자가없는 경우 (#2D 문자열에 일부 테스트 경우)가 없으면 출력은 여전히 ​​잘못된 것입니다.

좌표가 항상 2D 문자열의 경계 내에 있다고 가정 할 수 있습니다.

더 많은 테스트 사례 : (가독성을 쉽게하기 위해 단일 문자를 두 번째로 넣습니다)

[(0,0), (2,1), (3,0)], #

#_##
#_##

True


[(0,0), (1,1), (3,0)], #

#_##
#_##

False (1,1 is not a hash)



[(1,1)], a

#a##
#a##

True


[(4, 0), (3, 0), (2, 0), (1, 0), (0, 0), (0, 1), (0, 2), (0, 3), (1, 3), (2, 3), (2, 2), (3, 2), (4, 2), (4, 3)], ' '


 ####
 #   
   # 

True

마지막 테스트 사례는 공백을 단일 문자 문자열로 사용하고 공백 주위를 해시합니다.

관련. (이 도전의 역)

Dyalog APL , 8 바이트

좌표 쌍 (행, 열), 2D 배열, 문자 목록을 묻습니다.

∧/⎕=⎕[⎕]

[⎕] 좌표를 묻고 픽스를 분산시키는 데 사용

⎕ 프롬프트 입력 (2D 어레이)

= 선택한 요소를

⎕ 입력 (문자)

∧/ 모두 참인지 확인 (AND- 감소)

테스트 사례 ( ⎕IO←0예와 일치하지만 필수는 아님) :

첫 번째 예

두 번째 예

세 번째 예

네 번째 예

다섯 번째 예

파이썬, 39 바이트

입력을받습니다 :

1. a(x, y)정수 좌표 목록
2. b 문자열 목록
3. c 단일 문자열

lambda a,b,c:{b[y][x]for x,y in a}=={c}

자바 스크립트 (ES6), 37 바이트

입력을받습니다 :

1. a[x, y]정수 좌표의 배열
2. s 문자열 배열
3. c 단일 문자열

(a,s,c)=>a.every(([x,y])=>s[y][x]==c)

옥타브, 45 38 29 바이트

@(A,B,C)A(1+B*[rows(A);1])==C

2 차원 배열의 문자를 A좌표 로 취하는 함수 (0 기반)B 두 개의 열 행렬로 사용 [col row]하고 일치하는 문자를C . 두 요소 좌표 (행렬 곱셈 사용)는 선형 인덱스로 변환됩니다.

참고 : 희소 행렬을 사용한 이전 답변은 잘못되었습니다.

다른 기고자 :

스튜이 그리핀[0 1 0]이 잘못된 값으로 간주 될 수 있음을 알리는 5 바이트 저장을위한 !!

2 바이트를 절약 한 Luis Mendo~0 == true 하고 희소 행렬에 대한 알림 .

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

수학, 28 바이트

#3~Extract~#~MatchQ~{#2...}&

1- 색인. 배열은 티카으로 구성하는 방법으로 인해, 입력 좌표를 반전해야한다 (예 (row, column))

용법

#3~Extract~#~MatchQ~{#2...}&[{{1, 1}, {2, 3}, {1, 4}}, "#", {{"#", "_", "#", "#"}, {"#", "_", "#", "#"}}]

True

하스켈, 27 바이트

s!c=all(\(x,y)->s!!y!!x==c)

사용 예 : ( ["#_##","#_##"] ! '#' ) [(0,0), (2,1), (3,0)]-> True.

젤리 , 10 바이트

ịṪ⁸ịḢð€Q⁼⁵

이것은 전체 프로그램으로 만 작동합니다. 입력 순서는 인덱스, 문자열 배열, 싱글 톤 문자열입니다.

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

작동 원리

ịṪ⁸ịḢð€Q⁼⁵  Main link.
            Left argument:  P (array of coordinate pairs)
            Right argument: S (array of strings)
            Third argument: C (singleton string)

     ð€     Combine the links to the left into a dyadic chain and call it with each
            p = (x, y) in P as left argument and S as the right one.
ị             Unindex; retrieve the strings of S at indices x and y.
 Ṫ            Tail; yield s, the string of S at index y.
  ⁸ị          Unindex; retrieve the characters of s at indices x and y.
    Ḣ         Head; yield the character of s at index x.
       Q    Unique; deduplicate the resulting string/array of characters.
        ⁼⁵  Compare the result with the third argument.

펄 6 , 41 40 바이트

->\c,\h,\n{all map {n eq h[.[0];.[1]]},c}

->$_,\h,\n{all .map:{n eq h[.[0];.[1]]}}

2D 문자열을 2D 목록으로 예상합니다.

-1 바이트에 대한 b2gills 덕분입니다.

C #, 80 77 바이트

pinkfloydx33 덕분에 3 바이트 절약

a=>b=>c=>{foreach(var i in a){if(b[i[0]][i[1]]!=c){return 1<0;}}return 1>0;};

a는 좌표 쌍이고 b는 행 목록이며 c는 단일 문자 문자열입니다.

하스켈, 72 63 바이트

c [] _ _ =1<2;c ((f,s):t) m n |n/=lines m!!s!!f=1>2|1>0=c t m n

c [(0,0), (1,0), (3,0)] "#_##\n#_##" '#' 출력의 입력 False

입력 c [(4, 0), (3, 0), (2, 0), (1, 0), (0, 0), (0, 1), (0, 2), (0, 3), (1, 3), (2, 3), (2, 2), (3, 2), (4, 2), (4, 3)] " \n ####\n # \n # " ' '

산출 True

언 골프

checkfunc :: [(Int,Int)] -> String -> Char -> Bool
checkfunc [] _ _ = True
checkfunc (x:xs) string char | char /= ((lines string)!!(snd x))!!(fst x)= False  -- Checks first coordinates and returns False if no match
                             | otherwise = checkfunc xs string char --Otherwise iterate over remaining coordinate pairs

스칼라, 68 바이트

def f(l:(Int,Int)*)(s:String*)(c:Char)=l forall{x=>s(x._2)(x._1)==c}

클로저, 39 바이트

#(apply = %3(map(fn[[x y]]((%2 y)x))%))

예 (문자열 입력은 문자 vec입니다) :

(def f #(apply = %3(map(fn[[x y]]((%2 y)x))%)))
(f [[0 0] [1 1] [3 0]] (mapv vec ["#_##" "#_##"]) \#)