在Prolog中计算连续出现的数字

在Prolog中计算连续出现的数字