2

我是 Prolog 的新手，我一直坚持写这个谓词。基本上我得到了一个列表，我需要找到大小为 N 的最常见的子列表。示例：

  1. most_common_sublist([1,2,2,3,2,2,4,2,2,3],1,L), 输出应该是L=[2];

  2. most_common_sublist([1,2,2,3,2,2,4,2,2,3],2,L), 输出应该是L=[2,2];

  3. most_common_sublist([1,2,2,3,2,2,4,2,2,3],3,L), 输出应该是L=[2,2,3];

我的方法是编写一个谓词来获取列表的前 N ​​个元素，编写第二个谓词，它将充当生成器（一遍又一遍地调用第一个谓词，直到列表缩短到 N 大小），然后检查所有生成的子列表中有多少次匹配并获得最大值。

我被困在生成器谓词上，其余的我很确定我知道怎么写。

到目前为止，这是我的代码：

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

// This will get the first N elements from the list. 
// I tested it and it works.
sublist([H|_],1,[H]).
sublist([H|T],N,[H|LOP]) :- M is N-1, sublist(T,M,LOP).

// This is supposed to generate all the sublists, 
// length is a predicate that returns the length of the list. 
generator(L,N,L) :- length(L,M), N=:=M.
generator([H|T],N,[PN|LOP]) :- sublist([H|T],N,PN), generator(T,N,LOP).

这是我得到的错误：

?- generator([1,2,3,4,5,6,7],2,X).
ERROR: Arguments are not sufficiently instantiated
ERROR: In:
ERROR:   [12] _6018 is _6024+1
ERROR:   [11] length([1,2|...],_6052) at c:/users/ace_m/documents/prolog/bp.pl:44
ERROR:   [10] generator([1,2|...],2,[1,2|...]) at c:/users/ace_m/documents/prolog/bp.pl:83
ERROR:    [9] <user>
   Exception: (10) generator([1, 2, 3, 4, 5, 6, 7], 2, _5204) ?

我知道错误意味着我没有传递正确的值，但我不明白我哪里出错了。任何帮助

4

1 回答 1

1

在将变量绑定到值之前，您不能在算术表达式中使用该变量。

于 2020-12-04T15:26:20.237 回答