najtrudniejsze zadanie jakie zrobilem

powt([], _, []):-!.
powt([H|T], L, C) :- not(member(H, L)),!, powt(T, L, C).
powt([H|T], L, [H|C]) :- member(H, L),!, powt(T, L, C).

del(X,[X|Tail],Tail):-!.
del(X,[H|Tail],[H|Tail1]):- !, del(X,Tail,Tail1).

usunLzL([], X, X):-!.
usunLzL([H|T], L, X) :- member(H, L),!, del(H, L, Y), usunLzL(T, Y, X).
usunLzL([H|T], L, X) :- not(member(H, L)),!, usunLzL(T, L, X).

porZreszta(X, [], X) :- !.
porZreszta(X, [H|T], L2) :- !,powt(X, H, Y),  porZreszta(X, T, L), usunLzL(Y, L, L2).

klucz(X, Pelna, K) :- del(X, Pelna, Y), porZreszta(X, Y, Z), length(Z, K).

koduj([], _, []).
koduj([H|T], P, [K-H|T2]) :- klucz(H, P, K), koduj(T, P, T2).

dekoduj([], []).
dekoduj([_-H|T], [H|T2]) :- dekoduj(T, T2).

wstaw(X,[],[X]):-!.
wstaw(K-X,[K2-H|T], [K-X|[K2-H|T]]) :- K<K2,!.
wstaw(K-X,[K2-H|T], [K2-H|T2]) :- wstaw(K-X, T, T2).

wstawSort([], []):-!.
wstawSort([H|T], X) :- wstawSort(T, Y), wstaw(H, Y, X).

zadanie(X, Y) :- koduj(X, X, Z), wstawSort(Z, A), dekoduj(A, Y).