home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH03EX05.PRO < prev    next >
Encoding:
Prolog Source  |  1990-03-26  |  422 b   |  15 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.  
  5. predicates
  6.    car(symbol,real,integer,symbol,integer)
  7.    truck(symbol,real,integer,symbol,integer)
  8.  
  9. clauses
  10.    car(chrysler, 130000, 3, red, 12000).
  11.    car(ford, 90000, 4, gray, 25000).
  12.    car(datsun, 8000, 1, red, 30000).
  13.    truck(ford, 80000, 6, blue, 8000).
  14.    truck(datsun, 50000, 5, orange, 20000).
  15.    truck(toyota, 25000, 2, black, 25000).