3 giriş öğesi, bir koordinat çifti listesi, bir 2B dizesi ve tek karakterli bir dize verildiğinde, 2B dizenin her bir koordinatındaki karakterin tek karaktere eşit olup olmadığını gösterir. Girdiyi istediğiniz sırada alabilirsiniz ve koordinatlar 1 dizinli olabilir.

2B dizeyi 2B liste, çizgi listesi veya 2B dize olarak alabilirsiniz.

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

Dize

#_
__

Koordinattaki karakter (0,0)(sol üst köşeden) #. Bu, üçüncü giriş öğesine eşit olduğundan #çıktı Truealırsınız (veya herhangi bir doğruluk değeri)

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

Dize

#_
_#

Koordinatlarında karakterler (0,0)ve (1,1)hem de #çıkış doğrudur yüzden.

Çıktı yalnızca her koordinat bir karma ile eşleştiğinde doğrudur. Yine de her karmanın eşleşen bir koordinatı olması gerekmez. #2B dizede tek karakter ( bazı test durumlarında) görülmüyorsa, çıktı yine de yanlıştır.

Koordinatların her zaman 2B dizenin sınırları içinde olacağını varsayabilirsiniz.

Daha fazla test örneği: (Okunabilirliği kolaylaştırmak için tek karakteri ikinci sıraya koydum)

[(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

Son test senaryosunun tek karakter dizesi olarak boşluk kullandığını ve boşluk çevresindeki karmaları not edin.

İlişkili. (bu zorluğun tersi)

Dyalog APL , 8 bayt

Koordinat çiftlerinin (satır, sütun), ardından 2B dizinin, ardından karakterin sorulmasını ister.

∧/⎕=⎕[⎕]

[⎕] koordinat istemi seçin ve bunları

⎕ istenen giriş (2D dizi)

= seçili öğeleri karşılaştır

⎕ girdi (karakter)

∧/ hepsinin doğru olup olmadığını kontrol et (AND azaltma)

Test senaryoları ( ⎕IO←0örnekleri eşleştirmek, ancak bu gerekli değildir):

İlk örnek

İkinci örnek

Üçüncü örnek

Dördüncü örnek

Beşinci örnek

Python, 39 bayt

Girdileri alır:

1. a(x, y)tamsayı koordinatları listesi
2. b dizi listesi
3. c tek karakter dizesi

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

JavaScript (ES6), 37 bayt

Girdileri alır:

1. a[x, y]tamsayı koordinatları dizisi
2. s dizeler dizisi
3. c tek karakter dizesi

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

Oktav, 45 38 29 bayt

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

2B karakter dizisi olarak alan Ave Biki sütun matrisi [col row]ve eşleşen karakter olarak koordinat (0 tabanlı) işlevi C. İki eleman koordinatı (matris çarpımı kullanılarak) doğrusal dizine dönüştürülür.

Not: Seyrek matris kullanılan önceki cevap yanlıştı.

Diğer Katkıda Bulunanlar:

[0 1 0] 'ın yanlış değer olarak kabul edilebileceğini kaydeden 5 bayt tasarruf eden Stewie Griffin !!

Luis Mendo 2 bayt tasarruf ~0 == trueve seyrek matris hakkında bildirim için.

Çevrimiçi Deneyin

Mathematica, 28 bayt

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

1 endeksli. Mathematica'da dizilerin nasıl yapılandırıldığından, giriş koordinatları ters çevrilmelidir (yani (row, column))

kullanım

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

True

Haskell, 27 bayt

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

Kullanım örneği: ( ["#_##","#_##"] ! '#' ) [(0,0), (2,1), (3,0)]-> True.

Jöle , 10 bayt

ịṪ⁸ịḢð€Q⁼⁵

Bu sadece tam bir program olarak çalışır. Giriş sırası endeksler, dize dizisi, tekli dizedir.

Çevrimiçi deneyin!

Nasıl çalışır

ịṪ⁸ịḢð€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.

Perl 6 , 41 40 bayt

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

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

2B dizeyi 2B liste olarak bekler.

-1 baytlık b2gills sayesinde.

C #, 80 77 bayt

Pinkfloydx33 sayesinde 3 bayt tasarruf edildi

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

a koordinat çiftleri, b satır listesidir ve c tek karakterli dizedir.

Haskell, 72 63 bayt

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#_##" '#' Çıkış Girişi False

Giriş 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 # " ' '

Çıktı True

UnGolfed

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

Scala, 68 bayt

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

Clojure, 39 bayt

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

Örnek (dize girişi karakterlerin bir vecidir):

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