如何在prolog中将列表的最后一个元素与另一个列表的最后一个元素进行比较？

% 定义一个规则，比较两个列表的最后一个元素
compare_last_elements(List1, List2) :-
    % 递归基，当列表1和列表2都只有一个元素时，比较它们
    length(List1, 1),
    length(List2, 1),
    last(List1, Last1),
    last(List2, Last2),
    compare(Result, Last1, Last2),
    % 根据比较结果输出相应的信息
    (
        Result = (=),
        write('最后一个元素相等')
    ;
        Result = (<),
        write('列表1的最后一个元素小于列表2的最后一个元素')
    ;
        Result = (>),
        write('列表1的最后一个元素大于列表2的最后一个元素')
    ).

% 递归步骤，将列表1和列表2的头部元素去除后，继续比较剩余部分
compare_last_elements([_|Tail1], [_|Tail2]) :-
    compare_last_elements(Tail1, Tail2).

?- compare_last_elements([1, 2, 3], [4, 5, 6]).
列表1的最后一个元素小于列表2的最后一个元素
true.

?- compare_last_elements([1, 2, 3], [4, 5, 3]).
最后一个元素相等
true.

?- compare_last_elements([1, 2, 3], [4, 5, 2]).
列表1的最后一个元素大于列表2的最后一个元素
true.