我有一个数字列表，我必须计算偶数的总和和同一列表的奇数的乘积。我是prolog的新手，到目前为止这是我的代码：
l_odd_even([],0).
l_odd_even([H|T], Odd, [H|Etail], Sum) :-
H rem 2 =:=0,
split(T, Odd, Etail),
Sum = H + Etail.
l_odd_even([H|T], [H|Otail], Even, Prod) :-
H rem 2 =:=1,
split(T, Otail, Even),
Prod = H * Otail.
有人可以帮我吗？我想要一些例子来测试代码是否有效。