CS计算机代考程序代写 /* tear rate related clauses */

/* tear rate related clauses */
normal_tear_rate(RATE) :- RATE >= 5.
low_tear_rate(RATE) :- RATE < 5. /* age-related clauses */ young(AGE) :- AGE < 45. diagnosis(Recommend, Age, Astigmatic, Tear_Rate) :- low_tear_rate(Tear_Rate), =(Recommend, no_lenses); young(Age), normal_tear_rate(Tear_Rate), =(Astigmatic, yes), =(Recommend, hard_lenses); young(Age), normal_tear_rate(Tear_Rate), =(Recommend, soft_lenses); =(Recommend, no_lenses). test_answer :- diagnosis(X, 19, no, 5), write(X), halt. test_answer :- write('Wrong answer!'), halt.