subject(i).
subject(ujjal).
subject(john).
verb(love).
verb(eat).
verb(run).
obj(apple).
obj(banana).
obj(field).
sentence(Subb,Verb,Obj):-
subject(Subb),
verb(Verb),
obj(Obj).
get_sentence([Sub,Verb,Obj]):-
sentence(Sub,Verb,Obj),
write("Valid sentence").
go:-
write("Enter A Sentece : "),
read(Sentece),
(
get_sentence(Sentece)->write(" Ok "); write("this is not valid sentece or may not in my knowledge")
).
0 Comments