Hvala!
On 8/20/07, Lovro <[EMAIL PROTECTED]> wrote: > > 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). >
