home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH11EX02.PRO < prev    next >
Encoding:
Prolog Source  |  1990-03-26  |  514 b   |  27 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. predicates
  6.    person(integer, symbol)
  7.    rand_int_1_5(integer)
  8.    rand_person(integer)
  9.  
  10. goal
  11.    rand_person(3).
  12.  
  13. clauses
  14.    person(1, fred).
  15.    person(2, tom).
  16.    person(3, mary).
  17.    person(4, dick).
  18.    person(5, george).
  19.  
  20.    rand_int_1_5(X) :- random(Y), X=Y*4+1.
  21.  
  22.    rand_person(0) :- !.
  23.  
  24.    rand_person(Count) :-
  25.       rand_int_1_5(N), person(N, Name), write(Name), nl,
  26.       NewCount = Count-1, rand_person(NewCount).
  27.