Reversing a List in Prolog Gain Infiniti

Reversing a List in Prolog



concatenation([],L,L).
concatenation([X|L1],L2,[X|L3]):-concatenation(L1,L2,L3).

rev([],[]).
rev([H|T],X):-rev(T,Y),concatenation(Y,[H],X).

OUTPUT:-

Go rev([b,d,x,a],P).
P=[“a”,”x”,”d”,”b”]

0 comments:

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 

Design By Manish and Ranjan