home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL37.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-23  |  189 b   |  10 lines
  1.               /* Program 37 */
  2. predicates
  3.     inspiral(integer)
  4. goal
  5.     graphics(2,1,0),inspiral(70).
  6. clauses
  7.     inspiral(X):-
  8.         forward(5000),right(X),Y=X+1,inspiral(Y).
  9.  
  10.