Ronak Ahir

PRACTICAL NO :- 6 Aim : - Write  a  program  to  implement  Depth First Search. Program Code: domains path=symbol* predicates search(symbol,symbol,path) edge(symbol,symbol) member(symbol,path) clauses search(X,X,T). search(X,Y,T):- edge(X,Z), not(member(Z,T)), search(Z,Y,[Z|T]). member(X,[X|_]):-!. member(X,[_|Y]):- member(X,Y). edge(g,h). edge(g,d). edge(e,d). edge(h,f). edge(e,f). edge(a,e). edge(a,b). edge(b,f). edge(b,c). edge(f,c). Output:

PRACTICAL NO :- 1 Aim : Write a Prolog Program that list four address in a label form, each address should list a name, one-line address, city, state, and Pin Code. Program Code: predicates             reference(symbol,symbol,symbol,symbol,symbol)             goal             write("Please Enter Your Name : "),             readln(Name),             reference(Name,Address,City,State,PinCode),             write(">Name:",Name),nl,             write(">Address:",Address),nl,             write(">City:",City),nl, ...

Just installed Blogger on my IPhone :)