kordista([], _, []).
kordista([X], 1, [X]):-!.
kordista([X], N, [X|Ln]) :-
    Nn is N - 1,
    Nn > 0,
    kordista([X], Nn, Ln),
    append([X], Ln, L).
kordista([Head|T], N, L) :-
    kordista(T, N, Ln),
    kordista([Head], N, Head2),!,
    append(Head2, Ln, L).

%Reegel paaris_arv või paaritu_arv

vordle_predikaadiga([], [Reegel], []):-!.
vordle_predikaadiga([], [Reegel], [X]).
vordle_predikaadiga([Head|T], [Reegel], [Head|Res]):-
    Term=.. [Reegel, Head],
    Term,
    vordle_predikaadiga(T, [Reegel], Res).
vordle_predikaadiga([Head|T], [Reegel], Res):-
    vordle_predikaadiga(T, [Reegel], Res).

%Reegel suurem_kui

vordle_predikaadiga([], [Reegel, Nr], []).
vordle_predikaadiga([], [Reegel, Nr], [X]).
vordle_predikaadiga([Head|T], [Reegel, Nr], [H|Res]):-
    Term=.. [Reegel, Head, Nr],
    Term,
    vordle_predikaadiga(T, [Reegel, Nr], Res).
vordle_predikaadiga([Head|T], [Reegel, Nr], Res):-
    vordle_predikaadiga(T, [Reegel, Nr], Res).

suurem_kui(X,Y) :-
    X > Y.

paaris_arv(X) :-
    0 is mod(X,2).

paaritu_arv(X) :-
    1 is mod(X,2).