Prolog 哪个列表项是最常见的
我试图找到最常见的列表项common（[b，a，a，a，c，d，b，f，s，f，s，f，s，f，f]，R），因此结果应该是R=f， 我在想，如果我们拿这个列表，到列表的末尾，拿el=b，num1=1，然后回到开头，比较一下，如果b=b，num1=num1+1，还有a=b然后如果num2=num2+1，num1>num2递归，或者el=a或者类似的东西，但是我很难将它转换成Prolog insert\u sort对列表进行排序，但出于一些有趣的原因，如果我使用Prolog 哪个列表项是最常见的,prolog,logical-purity,Prolog,Logical Purity,我试图找到最常见的列表项common（[b，a，a，a，c，d，b，f，s，f，s，f，s，f，f]，R），因此结果应该是R=f， 我在想，如果我们拿这个列表，到列表的末尾，拿el=b，num1=1，然后回到开头，比较一下，如果b=b，num1=num1+1，还有a=b然后如果num2=num2+1，num1>num2递归，或者el=a或者类似的东西，但是我很难将它转换成Prolog insert\u sort对列表进行排序，但出于一些有趣的原因，如果我使用last（X，Y）（我覆盖了原始的la
last（X，Y）last/2last（X，Y）most_common([X|Y],J):-
insert_sort([X|Y],[R|Rs]),
count_runs([R|Rs],G),
las(G,J).
las([N-Y],Y).
las([_|T],Y):- las(T,Y).
las([_|Tail], Y) :- las(Tail, Y).
insert_sort(List,Sorted):-
i_sort(List,[],Sorted).
i_sort([],Acc,Acc).
i_sort([H|T],Acc,Sorted):-
insert(H,Acc,NAcc),
i_sort(T,NAcc,Sorted).
insert(X,[],[X]).
insert(X,[Y|T],[Y|NT]):- X @> Y, insert(X,T,NT).
insert(X,[Y|T],[X,Y|T]):- X @=< Y.
最常见（[X | Y]，J）：-
插入排序（[X | Y]，[R | Rs]），
计算运行次数（[R | Rs]，G），
las（G，J）。
las（[N-Y]，Y）。
las（T，Y）：-las（T，Y）。
las（Tail，Y）：-las（Tail，Y）。
插入排序（列表，已排序）：-
i_排序（列表，[]，已排序）。
i_排序（[]，Acc，Acc）。
i|u排序（[H|T]，Acc，排序）：-
插入（H、Acc、NAcc），
i_排序（T，NAcc，Sorted）。
插入（X，[]，[X]）。
插入（X[Y | T]，[Y | NT]）：-X@>Y，插入（X，T，NT）。
插入（X[Y|T]，[X，Y|T]）：-X@=- 将列表按排序顺序排序（如果这足够好，则按术语的标准顺序）：查看例程。e、 例如，
变成[b，a，a，c，d，b][a，a，b，b，c，d] - 取已排序的列表并计算“运行”的大小，或许可以将
转换为[a，a，b，b，c，d]
（其中[3-a，2-b，1-c，1-d]
/2只是另一个术语）。例如，考虑下面的代码：-
- 执行类似的操作，按照关键字的值对术语进行排序（即，作为计数的数字，将
转换为[3-a，2-b，1-c，1-d]
）。然后，列表中出现最多的元素是列表末尾具有相同键值的值（即，这里是最后一项[1-c，1-d，2-b，3-a]
中的3-a
）。通常，它们可能是出现最多的一个以上元素（与另一个相同）a
mostcommonitem_in(E,Xs) :-
list_counts(Xs,Cs), % tag items with multiplicity
maplist(\ (X-N)^(M-X)^(M is -N),Cs,Ps), % prepare keysorting
keysort(Ps,[Max-_|_]), % sort ascending by negated count
member(Max-E,Ps). % pick most common ones
?- mostcommonitem_in(X,[a,b,c,d,a,b,c,a,b]).
X = a ;
X = b ;
false. % OK
?- mostcommonitem_in(X,[A,B,C,D,A,B,C,A,B]), A=a,B=b,C=c,D=d.
X = A, A = a, B = b, C = c, D = d ;
X = B, B = b, A = a, C = c, D = d ;
false. % OK: monotone
最常见（[a，a，b，f，f，d，f，s，d，d，s，d，s，d，s，d，s，d，s]，E）。E=f。这是完整代码的一部分：最常见（[X | Y]，C）：-count|u运行（[X | Y]，K），last（K，C）。%我们对列表K进行了排序，并使用Last（）找到字母Last（[N-Y]，Y）。last（[[u124; Tail]，Y）：-last（Tail，Y）。但假设我们有这样一个列表：最常见的（[a，a，b，f，f，d，f，s，d，s，s，d，s，d，d，d，s，d，s，d，d，s]，E）。->最后（[1-b，1-f，1-s，1-f，1-s，1-f，1-s，…-…，a），最常见的项目是a，但不是f，因此我们有一个小问题：对整个问题的一个小优化是定义
count_runs/2E[-E |]计数翻转/2映射列表mostcommonitem_in(E,Xs) :-
list_counts(Xs,Cs), % tag items with multiplicity
maplist(\ (X-N)^(M-X)^(M is -N),Cs,Ps), % prepare keysorting
keysort(Ps,[Max-_|_]), % sort ascending by negated count
member(Max-E,Ps). % pick most common ones
?- mostcommonitem_in(X,[a,b,c,d,a,b,c,a,b]).
X = a ;
X = b ;
false. % OK
?- mostcommonitem_in(X,[A,B,C,D,A,B,C,A,B]), A=a,B=b,C=c,D=d.
X = A, A = a, B = b, C = c, D = d ;
X = B, B = b, A = a, C = c, D = d ;
false. % OK: monotone