, . name, ASCII.
name [ A, L)
, L ASCII
. ,
name(zx232, [122,120,50,51, 50]]
. name.
1. , .
2. , .
, , . , : orderl, order 2, driver l, driver 2, taxial, taxilux
taxi! X! , X :
taxi{ X):-
name (, xlist},
name! taxi, Tlist),
cone! Tlist, _, Xlist!. % 'taxi' X7
order driver . .
getsenter.ee (Mordlist)
Wordlist . , , : Prolog, . , Mary was pleased to see the robot fail.
getsentence [Sentence) : Sentence = [ 'Mary1, was, pleased, to, see, the, robot, fail]
, .
6.1. getsentence Char, getrest . getrest .
144 I. Prolog
1. Cher . . ■ 2. Char . get sentence .
3. Char . Word, Char, getsentence Wordlist. [Word | Wordlist].
6.1.
I*
getsentence . ,
getsentence (Wordlist)
|
|
Wordlist = [ -', was, pleased, to, see, the, robot, fail]
Mary was pleased to see the robot fail.
V
getsentence! Wordlist):-getOt Char], getrestt Char, Wordlist).
getrestf 46, []):-!. % ; 46 - ASCII '.'
getrest! 32, Wordlist);-!, % 32 - ASCII
getsentence; Wordlist). %
getrestf Letter, (Word | wordlist)):-getletterst Letter, Letters, Nextchar), %
getletterst 46, [], 46):-!. % ; 46 -
getletterst 32, [], 32):-!. % ; 32 -
getletterst Let, [Let | Letters], Nextchar):-getO (Char), getletterst Char, Letters, Nextchar).
, , : getletters! Letter, Letters, Haxtchar)
.
1. Letter - ( ) .
2. Letters - ( Letter) .
3. Next char , . Next char .
, getsentence. . , , , Prolog.
6.
. , , , . 2\.
6.4.
starts Atom, Character)
, Atom Character.
6.5. plural,
, ,
:
7- plural(table, X) X - tables
.6.
search Keyword, Sentence)
, Keyword. Sentence , .. ( getsentence , ).