Question

我是初学者Prolog / SWI猫头鹰程序员，想通过计算单词的每个字母所具有的点来计算在SWI猫头鹰中输入的单词的分数 - 就像拼字游戏一样！

每个单词的要点将以事实的形式陈述，如：

letter_point(a, 1).
letter_point(b, 3).
letter_point(c, 3).
letter_point(d, 2).
%  etc.

这些事实的数字论证应使用谓词'scrabble_score / 2'计算，其中单词（list）和总得分（数字）作为参数，以获得以下结果：

?- letters_score([a, b, c, d], Score).
Score = 9.

我假设可以使用'is / 2'来计算列表中每个字母的数字参数，但我还不知道如何到达那里。任何有关如何做到这一点的帮助将非常感谢！

最佳，拉拉

Answer 1

简易解决方案

% foo(Arg1,Arg2)

foo(a,1).
foo(b,2). 
foo(c,3).

sum_foo_from_list([],0).
sum_foo_from_list([Arg1|Rest],Sum_Arg2) :-
        % ?Arg2
        foo(Arg1,Arg2), 
        % #= (clpfd library)
        Sum_Arg2 #= Arg2 + Sum_Arg2_,
        % Sum_Arg2 is diffrent to Sum_Arg2_ 
        sum_foo_from_list(Rest,Sum_Arg2_).

测试：

| ?- sum_foo_from_list([a,b],N).
N = 3

计算参数值

1 个答案: