dobr da si reku... sm pogledu se enkrat, in sm najdu se tole :)
zdej pa res nej bi ble vse... ni pa 100%, mogoce kksna manjka...
lp L
Gregor Mostar wrote:
Hvala Lovro!
A so to vse funkcije iz vaj ali kaj manjka?
lp
:- [aritmetika].
% union(A,B,Uni) - A u B = Uni
union([],B,B).
union([H|T],B,[H|Uni]):-
union(T,B,Uni),
\+member(H,Uni).
union([H|T],B,Uni):-
union(T,B,Uni),
member(H,Uni).
%presek(A,B,Pre) - A n B = Pre
presek([],B,[]).
presek([H|T],B,Uni):-
presek(T,B,Uni),
\+member(H,B).
presek([H|T],B,[H|Uni]):-
presek(T,B,Uni),
member(H,B).
%razlika(A,B,Raz) - A \ B = Raz
razlika([],B,[]).
razlika([H|T],B,Uni):-
razlika(T,B,Uni),
member(H,B).
razlika([H|T],B,[H|Uni]):-
razlika(T,B,Uni),
\+member(H,B).
%subset(A,B) - ce je A podmnozica Bja, potem vrne YES
subset([],B).
subset([H|T],B):-
member(H,B),
subset(T,B).
%powereset(A,B) - B = potencna mnozica mnozice A - povedal asistent
powerset([],[]).
powerset([H|T],[H|T1]):-
powerset(T,T1).
powerset([_|T],T1):-
powerset(T,T1).
