Różnice

Różnice między wybraną wersją a wersją aktualną.

Odnośnik do tego porównania

pl:prolog:pllib:palindrome [2019/06/27 15:50] (aktualna)
Linia 1: Linia 1:
 +====== Palindrome ======
 +{{tag>​lists}}
 +===== Description =====
 +A program accepting palindromes
 +
 +**Source**: ​ The Art of Prolog
 +===== Download =====
 +Program source code: {{palindrome.pl}}
 +===== Listing =====
 +<code prolog>
 +/*
 + 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
 +</​code>​
 +===== Comments =====
  
pl/prolog/pllib/palindrome.txt · ostatnio zmienione: 2019/06/27 15:50 (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