prolog - 使用 Prolog 多维列表中特定元素的索引

Question

我试图找出是否有任何方法可以在多维列表中查找特定元素索引，例如 [[1,2,3],[4,5,6],[7 ,8,9]]?

如何查找“5”的索引 - [2][2] 或获取值 [3][3] ？如果列表大小未知，这是否可能？或者是否有任何内置谓词？

Answer 1

你可以使用nth1/3来实现它:

index(Matrix, Row, Col, Value):-
  nth1(Row, Matrix, MatrixRow),
  nth1(Col, MatrixRow, Value).

测试用例:

?- index([[1,2,3],[4,5,6],[7,8,9]], 2, 2, X).
X = 5.

?- index([[1,2,3],[4,5,6],[7,8,9]], Row, Col, 5).
Row = Col, Col = 2 ;