Turbo Prolog

* Program 55 */
domains
loc = right ; middle ; left
predicates
hanoi(integer)
move(integer,loc,loc,loc)
inform(loc,loc)
clauses
hanoi(N) :- move(N,left,middle,right).
move(1,A,_,C) :- inform(A,C),!.
move (N , A, B, C) :­
N1=N-1,move(N1,A,C,B),inform(A,C),move(N1,B,A,C).
inform(Loc1,Loc2):write("\nMove
a disk from I,Loc1," to ",Loc2).
To solve Towers Of Hanoi with three disks, we give the goal
hanoi(3).
The output is:
Move a disk from left to right
Move a disk from left to middle
Move a disk from right to middle
Move a disk from left to right
Move a disk from middle to left
Move a disk from middle to right
Move a disk from left to right
DIVISION OF WORDS INTO SYLLABLES
A computer program can decide how to divide words into syllables using a very simple
algorithm, which involves looking at the sequence of vowels and consonants each word
contains. For instance, consider the two sequences below:
I. vowel consonant vowel
In this case, the word is divided after the first vowel. For example, this rule can be
applied to the following words:
ruler
prolog
) ru-ler
) pro-log
2. vowel consonant consonant vowel
In this case, the word is divided between the two consonants. For example:
number
anger
) num-ber
) an-ger
These two rules work well for most words, but fail with words like handbook, which
conform to neither pattern. To divide such words, our program would have to use a
library containing all words.
118 Turbo Prolog Owner's Handbook