Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
divide([], [], []). divide([H], [H], []). divide([H1, H2 | T], [H1 | R1], [H2 | R2]) :- divide(T, R1, R2). divide2(L, L1, L2) :- length(L, N), N2 is N // 2, length(L2, N2), append(L1, L2, L). /** <examples> ?- divide([1,5,3,8,7], L1, L2). ?- divide2([1,5,3,8,7], L1, L2). */