微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

地穴算术拼图帮助:SANTA-CLAUS = XMAS

如何解决地穴算术拼图帮助:SANTA-CLAUS = XMAS

我正在尝试解决密码算法难题:ECLIPSE Prolog中的SANTA-CLAUS = XMAS。我正在使用拼图“ SEND + MORE = MONEY”作为指导。我的问题是我不确定如何实现减法的“借用”部分。此外,还有一个结转项可以在您继续添加添加到下一个条款中。但是在减法中,我们必须从您借用的数字中减去数十。下面是我用作指南的加法拼图的代码

solve([S,E,N,D,M,O,R,Y]) :-
    car(M),M > 0,car(C100),dig(S),S > 0,M is (S+M+C100) // 10,O is (S+M+C100) mod 10,dig(E),car(C10),N is (E+O+C10) mod 10,C100 is (E+O+C10) // 10,dig(R),car(C1),E is (N+R+C1) mod 10,C10 is (N+R+C1) // 10,dig(D),Y is (D+E) mod 10,C1 is (D+E) // 10,all_diff([S,Y]). 
    
car(0). car(1).

dig(0). dig(1). dig(2). dig(3). dig(4). 
dig(5). dig(6). dig(7). dig(8). dig(9).

all_diff([]).
all_diff([N|L]) :- not member(N,L),all_diff(L).

member(N,[N|L]). 
member(N,[M|L]) :- member(N,L).

我只需要帮助了解如何在减法中实现借用。

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。