Prolog Program to delete an element from the list.
Program:
domains
list=symbol*
predicates
del(symbol,list,list)
clauses
del(X,[X|Tail],Tail).
del(X,[Y|Tail],[Y|Tail1]) :- del(X,Tail,Tail1).
list=symbol*
predicates
del(symbol,list,list)
clauses
del(X,[X|Tail],Tail).
del(X,[Y|Tail],[Y|Tail1]) :- del(X,Tail,Tail1).
goal with output
goal: del(b,[a,b,c,a,b],X)
output: X=["a","c","a","b"]
X=["a","b","c","a"]
X=["a","b","c","a"]
No comments:
Post a Comment