home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / CUTBKTK.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  588 b   |  24 lines
  1. %====================== cutbacktrack/1         ===============================
  2. /*
  3.    This program will display the first friend of anyone
  4.    that has at least one friend.
  5. */   
  6. DATABASE
  7.    person(string)
  8.    friends(string,string)
  9.    
  10. GOAL 
  11.    person(P),
  12.    getbacktrack(Btop),
  13.    friends(P,Friend),
  14.    write(Friend),nl,
  15.    cutbacktrack(Btop).
  16.  
  17. CLAUSES
  18.    person("Henry Huggins").
  19.    person("Jerome Jones").
  20.    person("Betty Brown").
  21.    friends("Betty Brown","Kathy Williams").
  22.    friends("Jerome Jones","Vibeke Victors").
  23.    friends("Jerome Jones","Donald Smith").
  24.