Пролог: подсчет значений в списке

Question

У меня есть факты с числовыми атрибутами (буквы с присвоенными числовыми значениями).

point(a, 1). 

point(b, 3). 

point(c, 3). 

%etc for the rest of the alphabet 

Мне нужно написать программу в Прологе, которая будет считать эти атрибуты в списке. Вместо этого теперь мне удалось только подсчитать элементы в списке, а не их атрибуты. Не могли бы вы дать мне какие-нибудь советы? Это мне очень помогло!

count_points([ ], 0). 

count_points([H|T], Count) :- 
    count_points(T, Number), 
    Count is Number + 1. 

Ответ должен воспроизвести следующий пример ввода/вывода:

?- count_points([h,e,l,p], Score). 

    Score = 14. 

я написал 14, но это зависит от установленного числа к письму.

Answer 1

Я бы с (см here онлайн):

point(u, 1). 
point(r, 2). 
point(i, 3). 
point(e, 4). 
point(l, 5). 

count_points([], 0). 
count_points([H|T], Count) :- count_points(T, N), point(H, P), Count is N + P. 

% count_points([u, r, i, e, l], X). 
% X = 15