Prolog列表算术平均值

Question

我必须编写一个具有以下内容的程序：

”使用内置的Prolog谓词，定义一个谓词 操作（L1，L2） 当列表L2从列表L1派生时，通过添加算术平均值的最后一个元素满足 L1列表中最大和最小的元素。我们假设L是一个数字列表，并且至少有一个 元素（无需检查）。”

现在我有：

%ex 3
%=============================================================

operation(L1,L2):-
    msort(L1,X), 
    [H|T]=X, 
    last(X,Z), 
    Y is ((H+Z)/2),
        append(L1, [Y], L2) 


%=============================================================

现在我要做：

“检查程序是否有2组参数。将结果作为注释放入程序中”

我的最后一个代码如下所示： operation([1, 2, 3], [1, 2, 3, 2])

有人知道它的外观吗？