home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL22.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-25  |  709 b   |  21 lines
  1.                   /* Program 22 */
  2. domains
  3.     sentence   = sentence(nounphrase,verbphrase)
  4.     nounphrase = nounp(article,noun) ; name(name)
  5.     verbphrase = verb(verb) ; verbphrase(verb,nounphrase)
  6.     article,noun,name,verb = symbol
  7. predicates
  8.     write_sentence(sentence)
  9.     write_nounphrase(nounphrase)
  10.     write_verbphrase(verbphrase)
  11. clauses
  12.     write_sentence(sentence(S,V)) if
  13.              write_nounphrase(S) and write_verbphrase(V).
  14.  
  15.     write_nounphrase(nounp(A,N)) if write(A,' ',N,' ').
  16.     write_nounphrase(name(N)) if write(N,' ').
  17.  
  18.     write_verbphrase(verb(V)) if write(V,' ').
  19.       write_verbphrase(verbphrase(V,N)) if
  20.            write(V,' ') and write_nounphrase(N).
  21.