2012-03-18 80 views

回答

1

這是你想要的嗎?

1 ?- p(X). 

|: a. 

|: b. 

|: c. 

|: d. 

|: end. 

代碼: -

X = [a, b, c, d]. 

這是一個如何實現這一行爲:

p(X) :- read(A), q(A,X-[]). 

q(end,X-X) :- !. 

q(A,[A|X]-Y) :- read(B), q(B,X-Y). 
+0

沒有工作????? – xsari3x 2012-03-19 00:10:16

+0

適合我... – gusbro 2012-03-19 15:05:48

+0

我使用VIP6? – xsari3x 2012-03-19 23:15:10