我需要帮助，我试图计算列表中的元素数量？

Question

帮助我正在尝试在Prolog中编写一个函数，该函数将显示一个人在我尝试某些方式时调用的次数，但在这个过程中它没有成功。 以下是事实：

customer('Johnsten',
     [['Arizona',1],
      ['Arkansas',1],
      ['California',1],
      ['Georgia',1],
      ['Idaho',1],
      ['Kentucky',1],
      ['Mississippi',1],
      ['New York',1],['Ohio',1],
      ['Utah',1],
      ['Canada',1],
     ['Local',1]
     ]).
customer('Jones',
     [['Local', 12],
      ['Canada',6],
     ['Local', 5],['Ohio', 8],]).

这就是我尝试实现它的方式：

calls(X):-
   Y is calls(X,[_,_]),
   write(X),
   write(' made '),
   write(Y),
   write('calls')nl.

它应该是电话（X） 输出“X使Y调用。”