Diberikan 3 item input, daftar pasangan koordinat, string 2D, dan string karakter tunggal, menampilkan apakah karakter pada setiap koordinat string 2D sama dengan karakter tunggal. Anda dapat mengambil input dalam urutan apa pun dan koordinatnya dapat diindeks 1.

Anda dapat menggunakan string 2D sebagai daftar 2D, daftar garis, atau string 2D.

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

String adalah

#_
__

Char di koordinat (0,0)(dari kiri atas) adalah #. Ini sama dengan item input ketiga #,, sehingga Anda menghasilkan True(atau nilai kebenaran apa pun)

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

String adalah

#_
_#

Karakter pada koordinat (0,0)dan (1,1)keduanya #, sehingga hasilnya benar.

Output hanya benar jika setiap koordinat cocok dengan hash. Tidak semua hash harus memiliki koordinat yang cocok. Jika tidak ada kemunculan char tunggal ( #dalam beberapa kasus uji) dalam string 2D, outputnya masih palsu.

Anda dapat mengasumsikan koordinat akan selalu berada dalam batas-batas string 2D.

Lebih banyak kasus uji: (Saya menempatkan char kedua untuk kemudahan keterbacaan)

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

Perhatikan case tes terakhir menggunakan spasi sebagai string char tunggal, dan hash di sekitar spasi.

Terkait (kebalikan dari tantangan ini)

Dyalog APL , 8 byte

Meminta daftar pasangan koordinat (baris, kolom), lalu array 2D, lalu karakter.

∧/⎕=⎕[⎕]

[⎕] meminta koordinat dan menggunakannya untuk menyebarkan pick dari

⎕ input yang diminta (array 2D)

= bandingkan elemen yang dipilih

⎕ input (karakter)

∧/ periksa apakah semuanya benar (DAN-reduksi)

Uji kasus ( ⎕IO←0untuk mencocokkan contoh, tetapi ini tidak perlu):

Contoh pertama

Contoh kedua

Contoh ketiga

Contoh keempat

Contoh kelima

Python, 39 byte

Mengambil input:

1. adaftar (x, y)koordinat bilangan bulat
2. b daftar string
3. c string karakter tunggal

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

JavaScript (ES6), 37 byte

Mengambil input:

1. aarray [x, y]koordinat bilangan bulat
2. s berbagai string
3. c string karakter tunggal

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

Oktaf, 45 38 29 byte

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

Fungsi yang mengambil array karakter 2D sebagai Adan koordinat (berbasis 0) Bsebagai matriks dua kolom [col row]dan karakter yang cocok sebagai C. Koordinat dua elemen (menggunakan perkalian matriks) dikonversi ke indeks linier.

Catatan: Jawaban sebelumnya yang menggunakan matriks jarang salah.

Kontributor Lainnya:

Stewie Griffin karena menyimpan 5 byte, mencatat bahwa [0 1 0] dapat dianggap sebagai nilai palsu !!

Luis Mendo untuk menyimpan 2 byte itu ~0 == truedan pemberitahuan tentang matriks jarang.

Cobalah secara Online

Mathematica, 28 byte

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

1-diindeks. Karena bagaimana susunan disusun dalam Mathematica, koordinat input harus dibalik (yaitu (row, column))

Pemakaian

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

True

Haskell, 27 byte

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

Contoh penggunaan: ( ["#_##","#_##"] ! '#' ) [(0,0), (2,1), (3,0)]-> True.

Jelly , 10 byte

ịṪ⁸ịḢð€Q⁼⁵

Ini hanya berfungsi sebagai program lengkap. Urutan input adalah indeks, array string, string singleton.

Cobalah online!

Bagaimana itu bekerja

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

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

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

Mengharapkan string 2D sebagai daftar 2D.

Berkat b2gills untuk -1 byte.

C #, 80 77 byte

Disimpan 3 byte, berkat pinkfloydx33

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

a adalah pasangan koordinat, b adalah daftar garis, dan c adalah string karakter tunggal.

Haskell, 72 63 byte

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

Input dari c [(0,0), (1,0), (3,0)] "#_##\n#_##" '#' Output False

Memasukkan 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 # " ' '

Keluaran True

Tidak disatukan

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 byte

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

Clojure, 39 byte

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

Contoh (input string adalah vec dari vec karakter):

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