prolog，divison list into two list

Question

我打算将列表分成两个列表 - 例如位置（奇数或偶数）（当然，这不是确切的例子，给出了工作方法）。

[1,2,3,4,5]
[1,3,5]
[2,4]



div([H1|[]], [H1], []).
div([H1,H12|T1], [H2|T2], [H3|T3]) :- div(T1, T2, T3). 

警告：

Singleton variables: [H1,H12,H2,H3]

我不知道如何实施它来避免这种警告 - 你有什么想法吗？