prolog - PROLOG 中的填字游戏解算器

Question

天堂岛的克里奥尔语有14个字:“放弃”、“鲍鱼”、“字谜”、“船”、“船夫”、“ child ”、“连接”、“优雅”、“增强”、“岛”、“男人”、“沙子”、“太阳”和“女人”。

天堂时代有
发布了这个填字游戏:



填字游戏包含 14 个单词中的一些单词，但没有其他单词。

写
Prolog 程序 开始于

word(X) :-
member(X,
[
[a,b,a,n,d,o,n], [a,b,a,l,o,n,e], [a,n,a,g,r,a,m],
[b,o,a,t], [b,o,a,t,m,a,n], [c,h,i,l,d],
[c,o,n,n,e,c,t], [e,l,e,g,a,n,t], [e,n,h,a,n,c,e],
[i,s,l,a,n,d], [m, a, n], [s,a,n,d],
[s,u,n], [w, o, m, a, n]
]).

solution(H1,H2,H3,V1,V2,V3) :-

并定义谓词 solution以这样的方式

solution(H1,H2,H3,V1,V2,V3)

为真当且仅当 H1 , H2 , H3 , V1 , V2 , 和 V3是天堂的有效词
当写入上面给出的网格时，岛屿形成一个有效的填字游戏。
(例如， H1 的第二个字母应该与第二个字母重合
的 V1 .)

使用查询

?- solution(H1,H2,H3,V1,V2,V3).

来解决填字游戏。找到所有填字游戏的解决方案。

提示:您可能想从较小的填字游戏和较不丰富的
词典。

Answer 1

看图，字是用字母写的，图里什么都有，翻译成Prolog行(我的解决方案有12行，一个字2行)。

[编辑] 由于每个人都给出了自己的解决方案，这里是我的:

solution(H1,H2,H3,V1,V2,V3) :-
    H1 = [_,A2,_,A4,_,A6,_],
    H2 = [_,B2,_,B4,_,B6,_],
    H3 = [_,C2,_,C4,_,C6,_],
    V1 = [_,A2,_,B2,_,C2,_],
    V2 = [_,A4,_,B4,_,C4,_],
    V3 = [_,A6,_,B6,_,C6,_],
    maplist(word, [H1,H2,H3,V1,V2,V3]).

PS我原来
写字(H1),
字(H2) ...