Palind - palind.pl - Piero Tofy.it


	% PROCEDURA PER DETERMINARE SE UNA LISTA E' PALINDROME % palind(L) "L è una lista palindrome" palind(L) :- reverse(L,L1), L =:= L1. reverse(L, L1) :- reverse(L, [], L1). reverse([], ACC, ACC). reverse([HEAD\|TAIL], ACC, Y) :- reverse(T, [HEAD\|ACC], Y).