Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Palind - palind.pl

palind.pl

Caricato da:
Scarica il programma completo

  1. % PROCEDURA PER DETERMINARE SE UNA LISTA E' PALINDROME
  2.  
  3. % palind(L)  "L è una lista palindrome"
  4.  
  5. palind(L) :- reverse(L,L1), L =:= L1.
  6.  
  7. reverse(L, L1) :- reverse(L, [], L1).
  8. reverse([], ACC, ACC).
  9. reverse([HEAD|TAIL], ACC, Y) :- reverse(T, [HEAD|ACC], Y).