home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH06EX01.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  624 b   |  22 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 6, Example Program 1
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. domains 
  9.    person                 = person(name,address)
  10.    name                   = name(first,last)
  11.    address                = addr(street,city,state)
  12.    street                 = street(number,street_name)
  13.    city,state,street_name = string
  14.    first,last             = string
  15.    number                 = integer
  16.  
  17. goal  
  18.    P1 = person(name(jim,mos),addr(street(5,"1st st"),igo,"CA")),
  19.    P1 = person(name(_,mos),Address),
  20.    P2 = person(name(jane,mos),Address),
  21.    write(P2).
  22.