home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH22EX07.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  307 b   |  18 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 22, Example Program 7
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. project "mycnvrt"
  9.  
  10. global domains
  11.    list = integer*
  12.  
  13. global predicates
  14.   inclist(list, list) - (i,o) language c
  15.  
  16. goal
  17.   inclist([1, 2, 3, 4, 5, 6, 7], L), write(L).
  18.