1

我需要测试这段代码的密码算术是否为二 + 二 = 四，但它给了我错误，这是错误的。我需要知道为什么会这样。它适用于 donald+robert=gerald 或 it+is=me。我知道递归是如何工作的，但由于我无法调试它，我不知道出了什么问题。

sum(N1,N2,N) :-
    sum1(N1,N2,N,0,0,[0,1,2,3,4,5,6,7,8,9], _).

sum1([], [], [], C,C,D,D).
sum1([D1|N1], [D2|N2], [D|N], CR, C, Digs1, Digs) :-
    sum1(N1,N2,N, CR, CLN, Digs1, Digs2),
    digsum(D1,D2, CLN, D, C, Digs2, Digs).

digsum(D1,D2, C1, D, C, Digs1, Digs) :-
    del_var(D1, Digs1, Digs2),   
    del_var(D2, Digs2, Digs3),   
    del_var(D,  Digs3, Digs),

    S is D1+D2+C1,
    D is S mod 10,               
    C is S // 10. 

del_var(A,L,L) :-
    nonvar(A), !.                
del_var(A, [A|L], L).
del_var(A, [B|L], [B|L1]) :-
   del_var(A,L,L1).
4

1 回答 1

1

您的代码没有任何问题，只是它仅适用于相同长度的列表。这就是为什么它适用于 IT + IS = ME（长度为 2 的列表）和 DONALD + ROBERT = GERALD（长度为 6 的列表）。实际上，很容易找到解决方法：例如，您可以用前导零填充较短的列表。因此，sum([T,W,O], [T,W,O], [F,O,U,R])您不必做类似的事情sum([0,T,W,O], [0,T,W,O], [F,O,U,R])，它就会起作用。

于 2014-05-10T12:19:04.617 回答