/*
Napisati Prolog predikat koji za datu listu izdvaja neozna?ene brojeve iz te 
liste, ofomljuje i na izlazu prikazuje pregledno ispisano ure?eno drvo u kom 
svaki ?vor (?vor sadrži pro?itani neozna?eni broj i broj njegovih pojava) 
ima maksimalno tri potomka – potomak x ?vora y treba da se na?e u levom 
podrvetu ako je 0<x<=y/3, u centralnom poddrvetu ako je y/3<=x<3y i u 
desnom poddrvetu za x>3y. 
Izvršenjem predikata treba da se, po prikazu drveta, na izlazu prikažu i svi 
neozna?eni brojevi iz liste i to sortirani u rastu?i poredak ako je argument 
predikata koji sledi i iza liste unifikabilan sa atomom rast, a sortirani u 
opadaju?i poredak ako se taj argument može unificirati sa atomom opad. 
Pri rešavanju zadatka se za smeštaj neozna?enih brojeva iz liste isklju?ivo 
treba koristiti drvoidna struktura.
*/

/*Ispituje da li je broj neoznacen double.*/
neoznacen(N):- (double(N);integer(N);float(N)),
               N >= 0.

izdvojiizliste([],[]):-!.
izdvojiizliste([H|T],[H|G]):- neoznacen(H), izdvojiizliste(T,G),!.
izdvojiizliste([H|T],R):- izdvojiizliste(T,R).

/*cvor(X,Y).*/

razliciti([],[]):-!.
razliciti([H|T],[cvor(H,1)|R]):- not(clan2(H,T)), razliciti(T,R),!.
razliciti([H|T],[cvor(H,B1)|R]):- prebroj(H,T,B), B1 is B+1, izbacisve(H,T,T1), razliciti(T1,R).

clan2(H,[H|T]):-!.
clan2(X,[H|T]):- clan2(X,T).

prebroj(_,[],0):-!.
prebroj(H,[H|T],B):- prebroj(H,T,B1), B is B1+1,!.
prebroj(X,[H|T],B):- prebroj(X,T,B).

izbacisve(_,[],[]):-!.
izbacisve(H,[H|T],R):- izbacisve(H,T,R),!.
izbacisve(X,[H|T],[H|R]):- izbacisve(X,T,R).

razdvojilistu([],_,[],[],[]):-!.
razdvojilistu([H|T],X,[H|R1],R2,R3):- arg(1,H,V), arg(1,X,VX), V=<VX/3, razdvojilistu(T,X,R1,R2,R3),!.
razdvojilistu([H|T],X,R1,[H|R2],R3):- arg(1,H,V), arg(1,X,VX), V=<3*VX, razdvojilistu(T,X,R1,R2,R3),!.
razdvojilistu([H|T],X,R1,R2,[H|R3]):- razdvojilistu(T,X,R1,R2,R3).

napravistablo([],[]):-!.
napravistablo([H|T],t(L,C,H,D)):- razdvojilistu(T,H,R1,R2,R3),
										  				napravistablo(R1,L),
										  				napravistablo(R2,C),
										  				napravistablo(R3,D).

stampa1([],_):-!.
stampa1(t(L,C,S,D),X):- X1 is X+1,
							stampa1(L,X1),pisi(X),write(S),nl,stampa1(C,X1),stampa1(D,X1).
stampa2([],_):-!.
stampa2(t(L,C,S,D),X):- X1 is X+1,
							stampa2(D,X1),pisi(X),write(S),nl,stampa2(C,X1),stampa2(L,X1).
/*stampa(t(L2,L1,S,D1,D2),X):- X1 is X+1,
							stampa(D2,X1),pisi(X),write(S),nl,stampa(D1,X1),stampa(L1,X1),stampa(L2,X1).*/

pisi(1):-tab(5),!.
pisi(N):-tab(5), S is N-1,pisi(S).

prog(L,Atom):-atom(Atom), (Atom = rast; Atom = 'rast'), stampa1(L,1).
prog(L,Atom):-atom(Atom), (Atom = opad; Atom = 'opad'), stampa2(L,1).
prog(L,Atom):-!.

pj2005112:- write('Unesite listu elemenata! :'), read(L),
			write('Unesite rast ili opad u zavisnosti kako hocete da elementi budu sortirani! :'), read(Atom),
			izdvojiizliste(L,L1), razliciti(L1,LC), napravistablo(LC,Stablo), prog(Stablo,Atom).
/*, nl,nl,nl,stampa(Stablo,1).*/