删除列表 L 的最后 3 个元素以在 Prolog 中创建列表 L1

在 Prolog 中，删除列表 L 的最后 3 个元素并创建新列表 L1，可以使用以下方法：

delete_last_three([], []).
delete_last_three([_], []).
delete_last_three([_, _], []).
delete_last_three([X, Y, Z|Tail], [X|L1]) :- delete_last_three([Y, Z|Tail], L1).

这个方法使用递归来删除列表的最后 3 个元素。当列表为空、只有一个元素或只有两个元素时，返回空列表。当列表有三个或更多元素时，将第一个元素添加到新列表中，并递归地调用 delete_last_three 函数来处理剩余的元素。

例如，如果我们有以下列表：

L = [1, 2, 3, 4, 5, 6, 7, 8, 9].

我们可以调用 delete_last_three(L, L1) 来删除最后 3 个元素并创建新列表 L1：

L1 = [1, 2, 3, 4, 5].

这个方法可以在任何 Prolog 解释器中使用，并且不需要任何特定的云计算产品。