Programiranje 14/02/2017

% Data je lista brojeva i dat je broj K, napraviti 2 liste,
% tako da se K elemenata stavlja u prvu listu, pa K u drugu

zad([], _, _, _, [], []).
zad(L, 0, A, 1, N1, N2):- !, zad(L, A, A, 2, N1, N2).
zad(L, 0, A, 2, N1, N2):- !, zad(L, A, A, 1, N1, N2).
zad([ G | R ], K, A, 1, [ G | R1 ], N):- K1 is K - 1,
    zad(R, K1, A, 1, R1, N), !.
zad([ G | R ], K, A, 2, N, [ G | R2 ]):- K1 is K - 1,
    zad(R, K1, A, 2, N, R2), !.