人工智能----用Prolog语言完成野人过河问题的程序(3)

river(L1,L2,L3,[H41,H42|T4],1):listlen(L1,Len1),listlen(L2,Len2),listlen(L3,Len3),listlen(T4,LenT4), Len2>0,Len1>=Len2+2,Len3>=LenT4+2, write("two nonman to left。。。。。44444。。。。。"),nl, write_a_list(L1),write("; "),write_a_list([H41,H42|L2]),write(";=========="),write_a_list(L3),w rite(";"),write_a_list(T4),nl, river(L1,[H41,H42|L2],L3,T4,0)。 river(L1,L2,[H31|T3],[H41|T4],1):listlen(L1,Len1),listlen(L2,Len2),Len1>0,Len2>0,Len1>=Len2, listlen(T3,LenT3),listlen(T4,LenT4),LenT3>=LenT4, write("one man and one nonman to left。。。。。22222。。。。。"),nl, write_a_list([H31|L1]),write("; "),write_a_list([H41|L2]),write(";=========="),write_a_list(T3),write

(";"),write_a_list(T4),nl, river([H31|L1],[H41|L2],T3,T4,0)。 提问： GOAL X3=[],X4=[], river([1,2,3,4,5,6,7,8,9],[1,2,3,4,5,6,7],X3,X4,0)。 结果： two man to right。。。。。11111----2。。。。。Start point 3 4 5 6 7 8 9; 1 2 3 4 5 6 7;======== 1 2; one man to left。。。。。44444。。。。。 1 3 4 5 6 7 8 9; 3 4 5 6 7 8 9; 1 3 4 5 6 7 8 9; 1 2 3 4 5 6 7;========== 2; 2 3 4 5 6 7;========== 1 2; 1 2 3 4 5 6 7;========== 2; 1 one man and one nonman to right。。。。。22222。。。。。 one man to left。。。。。55555。。。。。7611 two man to right。

。。。。55555-1。。。。。6611 4 5 6 7 8 9; 2 3 4 5 6 7;======== 1 3 2; 1 one man to left。。。。。55555。。。。。6621 1 4 5 6 7 8 9; 4 5 6 7 8 9; 1 4 5 6 7 8 9; 2 3 4 5 6 7;========== 3 2; 1 one man and one nonman to right。。。。。。33333。。。。。。。。 3 4 5 6 7;========== 1 3 2; 2 1 3 4 5 6 7;========== 3 2; 2 1 one man to left。。。。。55555。。。。。6522 two man to right。。。。。55555-1。。。。。5522 5 6 7 8 9; 3 4 5 6 7;======== 1 4 3 2; 2 1 one man to left。。。。。55555。。。。。5532 1 5 6 7 8 9; 5 6 7 8 9; 1 5 6 7 8 9; 3 4 5 6 7;========== 4 3 2; 2 1 4 5 6 7;========== 1 4 3 2; 3 2 1 4 5 6 7;========== 4 3 2; 3 2 1 one man and one nonman to right。

。。。。。33333。。。。。。。。 one man to left。。。。。55555。。。。。5433 two man to right。。。。。55555-1。。。。。4433 6 7 8 9; 4 5 6 7;======== 1 5 4 3 2; 3 2 1 one man to left。。。。。55555。。。。。4443

1 6 7 8 9; 6 7 8 9; 1 6 7 8 9;

4 5 6 7;========== 5 4 3 2; 3 2 1 5 6 7;========== 1 5 4 3 2; 4 3 2 1 5 6 7;========== 5 4 3 2; 4 3 2 1

one man and one nonman to right。。。。。。33333。。。。。。。。 one man to left。。。。。55555。。。。。4344 two man to right。。。。。55555-1。。。。。3344 7 8 9; 5 6 7;======== 1 6 5 4 3 2; 4 3 2 1 one man to left。。。。。55555。。。。。3354 1 7 8 9; 7 8 9; 1 7 8 9; 5 6 7;========== 6 5 4 3 2; 4 3 2 1 6 7;========== 1 6 5 4 3 2; 5 4 3 2 1 6 7;========== 6 5 4 3 2; 5 4 3 2 1 one man and one nonman to right。。。。。。33333。。。。。。。。 one man to left。。。。。55555。。。。。3255 two man to right。。。。。55555-1。。。。。2255 8 9; 6 7;======== 1 7 6 5 4 3 2; 5 4 3 2 1 one man to left。

。。。。55555。。。。。2265 1 8 9; 8 9; 1 8 9; 6 7;========== 7 6 5 4 3 2; 5 4 3 2 1 7;========== 1 7 6 5 4 3 2; 6 5 4 3 2 1 7;========== 7 6 5 4 3 2; 6 5 4 3 2 1 one man and one nonman to right。。。。。。33333。。。。。。。。 one man to left。。。。。55555。。。。。2166 two man to right。。。。。55555-1。。。。。1166 9; 7;======== 1 8 7 6 5 4 3 2; 6 5 4 3 2 1 one man to left。。。。。55555。。。。。1176 1 9; 7;========== 8 7 6 5 4 3 2; 6 5 4 3 2 1 two man to right。。。。。55555-2。。。。。0176 ; 7;======== 1 9 8 7 6 5 4 3 2; 6 5 4 3 2 1 one noman to left。

。。。。22222。。。。。 ; 6 7;========== 1 9 8 7 6 5 4 3 2; 5 4 3 2 1 two noman to right。。。。。22222。。。。。 ; ;========== 1 9 8 7 6 5 4 3 2; 6 7 5 4 3 2 1 。。。。。To be end!!!!。。。。。 。。。。。OK。。。。。

1 9 8 7 6 5 4 3 2 6 7 5 4 3 2 1 X3=[], X4=[] 1 Solution (2) 编写野人过河的程序代码； (3) 输入并跟踪安装程序； (4) 书写实验报告（附调试结果及预测） 。

实验结果：

(1) 给出程序调试的结果，并记录调试中发生的主要现象或难题； (2) 根据各试验方法中的实验内容，结合上机之前的设计和探讨，编写实验 报告结果prolog实验报告 周俊雯，并做相应的试验探讨（包含实验过程中发生的一些疑问描述等） 。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-120399-3.html