Question

我目前正在开发一个Prolog程序，该程序在给出一组产品后会生成一个CYK解析表。但是，我遇到麻烦检查两行，看看它们是否相同。这就是我到目前为止所拥有的：

answer(X,X).

%Checks to see if it is equivalent

equal(X,Y) :- sort(X,X1), sort(Y,Y1), X1 == Y1.

%find the length of the lists

total_length([],0).
total_length([_|Xs],L) :- total_length(Xs,M), L is M+1.

%storing length of lists and possible use of a decrement here to decrement the length...but don't understand how 

storing(M,N) :- total_length(L,L_length), total_length(N,N_length), L_length is N_length, answer(L_length,N_length).

%Check for row equivalence...again, trying to find a way to decrement for the recursion, but unsure how to do it

sublist_check(Ra,Rb) :- storing(Ra,Rb), nth0(X,Ra,R1), nth0(Y,Rb,R2), equal(R1,R2), sublist_check(Ra,Rb).

让我们说输入是：

sublist_check([["A"],[],[]], [[],["A"],[]]). -->
false.

sublist_check([["A"],["B","C"],["B","C"]],[["A"],["C","B"],["C","B"]]). -->
true.

我认为我的问题是我需要找到一种方法来创建一个等同于列表最大长度的变量，并且每次都减少它，但是我遇到了将sublist_check的初始长度设置回原来的错误。号。

任何输入/反馈都很棒，非常感谢！

Answer 1

如果我已正确理解您的问题，您需要检查两个列表中相同位置的两个列表是否具有相同的元素。你可以这样做：

check([],_).
check([H|T],L):-
    member(H,L),
    check(T,L).

sublist_check([],[]).
sublist_check([H1|T1],[H2|T2]):-
    check(H1,H2),
    sublist_check(T1,T2).

?- sublist_check([["A"],["B","C"],["B","C"]],[["A"],["C","B"],["C","B"]]).
true

?- sublist_check([["A"],[],[]], [[],["A"],[]]).
false

Answer 2

这是damianodamiano答案（+1）的较短编码

check1(S,L) :- maplist(member_(L), S).
sublist_check1(A,B) :- maplist(check1, A,B).

member_(L,H) :- member(H,L).

使用库（yall），它更具吸引力：

check2(S,L) :- maplist({L}/[H]>>member(H,L), S).
sublist_check2(A,B) :- maplist(check2, A,B).

图书馆（yall）它并不孤单...... 之后

?- pack_install(lambda).

你可以

:- use_module(library(lambda)).
check3(S,L) :- maplist(\H^member(H,L),S).
sublist_check3(A,B) :- maplist(check3, A,B).

将子列表等同于Prolog中CYK表的另一个子列表

2 个答案: