prolog中两个名字及其年龄的比较

% 定义谓词，比较两个名字及其年龄
compare_names_age(Name1, Age1, Name2, Age2) :-
    (Age1 > Age2 ->
        format('~w 的年龄比 ~w 大~n', [Name1, Name2])
    ;
        (Age1 < Age2 ->
            format('~w 的年龄比 ~w 小~n', [Name1, Name2])
        ;
            format('~w 的年龄和 ~w 相同~n', [Name1, Name2])
        )
    ).

% 示例查询
?- compare_names_age('Alice', 25, 'Bob', 30).