home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH03EX05.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  482 b   |  18 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 3, Example Program 5
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.  
  8. predicates
  9.    car(symbol,real,integer,symbol,integer)
  10.    truck(symbol,real,integer,symbol,integer)
  11.  
  12. clauses
  13.    car(chrysler, 130000, 3, red, 12000).
  14.    car(ford, 90000, 4, gray, 25000).
  15.    car(datsun, 8000, 1, red, 30000).
  16.    truck(ford, 80000, 6, blue, 8000).
  17.    truck(datsun, 50000, 5, orange, 20000).
  18.    truck(toyota, 25000, 2, black, 25000).