如何在不使用Prolog中的findall或assert/retract的情况下将元素添加到列表或从知识库中计算它们？
如何在不使用Prolog中的findall或assert/retract的情况下将元素添加到列表或从知识库中计算它们？
提问于 2013-02-19 11:51:18
我有一个知识库，其中包含一个'students.pl‘文件中的学生数据库，如下所示：
% student(Name,Percent,List_of_Marks_in_3_subjects).
student('abc',83,[80,80,90]).
student('pqr',70,[70,60,80]).
student('xyz',76,[80,70,80]).我想从知识库中访问每个学生的谓词，并计算每个科目的平均分数或平均百分比，而不使用'findall‘或assert/retract。我可能想要像这样使用回溯：
find_score_all(X) :- student(Name,Percent,L),
write(Percent),nl,
fail.
find_score_all(_).使用这种方法，我可以访问每个元素并编写它，但是如果我想将每个“百分比”值作为元素添加到列表中，或者只是使用“Percent1 is Total + percent”这样的谓词来计算百分比值的总和，然后找出它的平均值，我该怎么做呢？请注意，我不想使用findall或retract/assert，最好通过知识库一遍找到平均值，因为知识库非常大。
任何帮助都是非常感谢的。
回答 2
Stack Overflow用户
发布于 2013-02-19 23:17:16
%solution for sum of percents, you can replace with any other calculation sum_percent predicate.
listing(student/3, convert_to_list/2, sum_percent, sum_percent/2).
% student(Name,Percent,List_of_Marks_in_3_subjects).
student('abc',83,[80,80,90]).
student('pqr',70,[70,60,80]).
student('xyz',76,[80,70,80]).
convert_to_list(X, R):-
student(N, P, LM),
not(member(st(N, P, LM), X)),
convert_to_list([st(N, P, LM)|X], R).
convert_to_list(X, X).
sum_percent:-
convert_to_list([], X),
sum_percent(X, S),
write(S).
sum_percent([], 0).
sum_percent([st(_,E,_)|T], S):-
sum_percent(T, S2),
S is E+S2.Stack Overflow用户
发布于 2013-02-19 12:23:21
如果你想添加到一个列表中，那么你应该使用findall，或者更好的库(aggregate)。但是如果你担心效率，你可以使用下面这样的东西
integrate(ave, Goal, Ave) :-
State = state(0, 0, _),
repeat,
( call(Goal, V),
arg(1, State, C), U is C+1, nb_setarg(1, State, U),
arg(2, State, S), T is S+V, nb_setarg(2, State, T),
fail
; arg(1, State, C), arg(2, State, S), Ave is S/C
).
:- meta_predicate integrate(+, :, ?).测试：
members(X) :- member(X, [1,2,3,4]).
?- integrate(ave, members, R).
R = 2.5 .当然，您需要添加错误处理(至少在计数器C == 0时)。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/14949537
复制相关文章
相似问题
腾讯云开发者
