我需要一个程序来计算列表中的所有数字，无论它们嵌套得有多深。我能够在数字不在另一个列表内的情况下对数字进行计数，但通过深度嵌套元素进行递归是行不通的。到目前为止我有这个：
count([],0).
count([H|Tail], N) :-
count(Tail, N1),
( number(H)
->N is N1 + 1
; is_list(H)
-> count(H,N)
; N = N1
).
所以，如果我打电话count([a,1,[2,b],3],N)，输出应该是N=3;但是，我只得到N=2。有人可以帮我添加到我的第二个案例测试吗？此处所有可用的解决方案不适用于深度嵌套的数字元素。
谢谢你！
您的代码不正确is_list(H)分支：在这种情况下，您忽略的值N1，这是不正确的，你想要N是N1与指望H.
完整代码：
:- use_module(library(clpfd)).
count([], 0).
count([H|T], N) :-
count(T, N1),
( number(H) ->
N #= N1 + 1
; is_list(H) ->
N #= N1 + N2,
count(H, N2)
; N1 = N
).
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
