Prolog中列表的奇偶数之和

% 定义一个谓词，用于计算列表的奇偶数之和
sum_odd_even([], 0, 0). % 空列表的奇数和偶数之和都为0
sum_odd_even([X|Rest], OddSum, EvenSum) :-
    X mod 2 =:= 0, % 如果X是偶数
    sum_odd_even(Rest, OddSum, RestEvenSum), % 递归计算剩余列表的奇数和偶数之和
    EvenSum is RestEvenSum + X. % 当前偶数加上剩余列表的偶数之和
sum_odd_even([X|Rest], OddSum, EvenSum) :-
    X mod 2 =:= 1, % 如果X是奇数
    sum_odd_even(Rest, RestOddSum, EvenSum), % 递归计算剩余列表的奇数和偶数之和
    OddSum is RestOddSum + X. % 当前奇数加上剩余列表的奇数之和