Prolog-列表清单

Question

有myMultiply/3

myMultiply([],X,[]) :- !.
myMultiply([H|T],X,Result) :-
    myMultiply(T,X,NewRest),
    Elem is H*X,
    Result = [Elem|NewRest].

哪个将左边列表中的每个元素与第二个arg处的nun相乘并返回Result 。

例如 -

myMultiply([1,4,5],4,R).
R = [4,16,20].

和tlm/3

tlm(List1,[],_) :- !.
tlm(List1,[H2,Rest2],Result):-
    myMultiply(List1,H2, Elem),
    tlm(List1,Rest2,NewResult),
    Result = [Elem|NewResult].

我在那里尝试将myMultiply/3放置在右侧列表的每个元素上的左侧列表中，并重新调整Result 。

例如 -

?- tlm([3,4,2],[4,7,8],R).
R = [[12,16,8],[21,28,14],[24,32,16]].

通常，此想法是获取Elem列表并将其连接到NewResult 。

我的问题是， tlm/3的回报false -

 ?- tlm([3,4,2],[4,7,8],R).
false. 

代替上面的例子。

我在这里做错了什么？

Answer 1

您的代码有2个问题。

在这里，我做了一个基本的更正，并评论了无用的削减。

myMultiply([],X,[]) :- !. % the cut is useless here
myMultiply([H|T],X,Result) :-
    myMultiply(T,X,NewRest),
    Elem is H*X,
    Result = [Elem|NewRest].

tlm(List1,[],[]) :- !. % the cut is useless here
tlm(List1,[H2|Rest2],Result):-
    myMultiply(List1,H2, Elem),
    tlm(List1,Rest2,NewResult),
    Result = [Elem|NewResult].

结果是...

?- tlm([3,4,2],[4,7,8],R).
R = [[12, 16, 8], [21, 28, 14], [24, 32, 16]].

您能找出为什么削减无效吗？