2013-05-05 28 views

回答

2

您可以尝试

substract(N, L1, L2) :- 
    maplist(sub(N), L1, L2). 

sub(N, V1, V2) :- 
    V2 is V1 - N. 
+1

工作正常...日Thnx – User111213 2013-05-06 01:18:46