DNA序列项目的序言

Question

如果我有一个列表C，我如何找出每个元素重复的次数？

这是我用来获取列表的规则：

dna([X, Y]) :-
   aminotodna(X, A),
   aminotodna(Y, B),
   append(A, B, C),
   print(C),
   nl,
   fail.