Palindrome

Description

A program accepting palindromes

Source: The Art of Prolog

Download

Program source code: palindrome.pl

Listing

/*
	palindrome(Xs) :-
		The string represented by the list Xs is a palindrome.
*/
 
	palindrome(Xs) :- palindrome(Xs,push,[]).
 
	palindrome([X|Xs],push,S) :- palindrome(Xs,push,[X|S]).
	palindrome([X|Xs],push,S) :- palindrome(Xs,pop,[X|S]).
	palindrome([X|Xs],push,S) :- palindrome(Xs,pop,S).
	palindrome([X|Xs],pop,[X|S]) :- palindrome(Xs,pop,S).
	palindrome([],pop,[]).
 
%  Program 18.1 : A program accepting palindromes

Comments

pl/prolog/pllib/palindrome.txt · ostatnio zmienione: 2017/07/17 08:08 (edycja zewnętrzna)
www.chimeric.de Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0