home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH11EX02.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  575 b   |  30 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 11, Example Program 2
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. predicates
  9.    person(integer, symbol)
  10.    rand_int_1_5(integer)
  11.    rand_person(integer)
  12.  
  13. goal
  14.    rand_person(3).
  15.  
  16. clauses
  17.    person(1, fred).
  18.    person(2, tom).
  19.    person(3, mary).
  20.    person(4, dick).
  21.    person(5, george).
  22.  
  23.    rand_int_1_5(X) :- random(Y), X=Y*4+1.
  24.  
  25.    rand_person(0) :- !.
  26.  
  27.    rand_person(Count) :-
  28.       rand_int_1_5(N), person(N, Name), write(Name), nl,
  29.       NewCount = Count-1, rand_person(NewCount).
  30.