home *** CD-ROM | disk | FTP | other *** search
Prolog Source | 1990-03-26 | 332 b | 17 lines |
- /*
- Copyright (c) 1986, 90 by Prolog Development Center
- */
-
- domains
- brand, color = symbol
- age, price = integer
- mileage = real
-
- predicates
- car(brand, mileage, age, color, price)
-
- clauses
- car(chrysler, 130000, 3, red, 12000).
- car(ford, 90000, 4, gray, 25000).
- car(datsun, 8000, 1, red, 30000).