home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 02a / pctj1186.zip / CENTERT.PRO < prev    next >
Text File  |  1986-09-19  |  197b  |  13 lines

  1. /* adapted for Turbo Prolog */
  2. predicates
  3.   f(integer)
  4.   test
  5. clauses  
  6.   f(X) :- write(X), nl, 
  7.           Y=X+1, 
  8.           f(Y), 
  9.           write(Y), nl.
  10.   test :- f(1).
  11. goal
  12.   test.
  13.