a. Define simple facts about relationships (e.g., family relations, food preferences) and write queries to test them.| Prolog Code

 

parent(rahim,babul).

parent(rahim,korim).

parent(chokina,babul).

parent(chokina,korim).

parent(jorim,rahim).

likes(rahim,vat).

likes(rahim,ruti).

likes(babul,vorta).

likes(chokina,ice_cream).

grand_parent(X,Y):-

            parent(X,Z),parent(Z,Y).

go:-

    parent(rahim,CHILD),nl,

    write(CHILD),nl,

    findall(X,parent(chokina,X),XY),

    write("chokinas Child"),nl,

    write(XY),

    write("jorim's Grandchindres : "),nl,

    findall(Gchild,grand_parent(jorim,Gchild),Agchild),

    write(Agchild),nl,

    likes(rahim,Food),

    write("Rahim Likes : "),write(Food),nl,

    write("Enter Any Name : "),nl,

    read(Name),

    findall(NN,parent(Name,NN),Alchild),

    (Alchild \=[]->

     write("Child Are : "),write(Alchild);

     write("Not found")

    ).