home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / PROGRAMS / VACATION.GNI < prev   
Encoding:
Text File  |  1990-03-26  |  821 b   |  29 lines
  1. cond(1,"it is warm")
  2. cond(2,"it is adventurous")
  3. cond(3,"it has beaches")
  4. cond(4,"it is warm in the winter")
  5. cond(5,"not it is inexpensive")
  6. cond(6,"it has outdoor sports")
  7. cond(7,"it has good food")
  8. cond(8,"it is inexpensive")
  9. cond(9,"it has gambling")
  10. cond(10,"not it is warm in the winter")
  11. cond(11,"it is dark in the winter")
  12. cond(12,"it has long summer days")
  13. cond(13,"not it is dark in the winter")
  14. data_file("vacation.gni")
  15. no(2)
  16. no(8)
  17. no(4)
  18. rule(1,"adventurous","Aspen, Colorado",[6,10,7,13])
  19. rule(2,"adventurous","Anchorage, Alaska",[10,6,11,5,12,3])
  20. rule(3,"warm","Las Vegas, Neveda",[8,9,4])
  21. rule(4,"warm","Mazatlan, Mexico",[3,7,4,8])
  22. rule(5,"warm","Maui, Hawaii",[3,4,5,6])
  23. rule(6,"vacation","adventurous",[2])
  24. rule(7,"vacation","warm",[1])
  25. topic("vacation")
  26. yes(1)
  27. yes(3)
  28. yes(7)
  29.