使用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 ;