Prolog查找矩阵中出现的次数

Question

我能够在1D列表中找到出现次数，但是现在我正在尝试查找矩阵中出现的次数，例如A[3][3]。

这是我目前的代码： -

?-countall([[1,2,3],[4,5,6]],X,Y).

count([],X,0).
count([X|T],X,Y):-
    count(T,X,Z), 
    Y is 1+Z.

count([X1|T],X,Z):- 
    X1\=X,
    count(T,X,Z).

countall(List,X,C) :-
    sort(List,List1),
    member(X,List1),
    count(List,X,C).

我对矩阵的输入是这样的： -

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