sub daftar posisi yang diberikan

Question

Mempertimbangkan

r = Array[Total[{##}] &, {3, 3}]
(*{{2, 3, 4}, {3, 4, 5}, {4, 5, 6}}*)
pos = {{1, 1}, {2, 2}};

Ini

r[[pos]]

memberikan kesalahan tersebut

Part::pkspec1: The expression {{1,1},{2,2}} cannot be used as a part specification.

bukan yang diharapkan

{2,4}

Dengan kata lain, bagaimana cara memilih elemen daftar pada posisi tertentu?

Answer 1

Anda bisa di :Apply (@@@) Partpos

r[[##]] & @@@ pos

 {2, 4}

Anda juga dapat menggunakan Extractatau Indexedatau Query:

Extract[pos] @ r

 {2, 4}

Indexed[r, #] & /@ pos

 {2, 4}

Query[##] @ r & @@@ pos

 {2, 4}