Palindrome in Prolog Gain Infiniti

08:51

Gain Infiniti

concate([],L,L).

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

reverse([],[]).

reverse([H|T],X):-reverse(T,Y),concate(Y,[H],X).

pal(X):-reverse(X,X).

OUTPUT

pal([b,a,c,a,b]).

Yes

Unknown said...: very good thank you good structure and management in prolog; 6 May 2013 at 12:21
Unknown said...: without using reverse we can make or not; 9 September 2015 at 07:37

Categories