PrologExpertSystem.rar_them

title('********* Loan Questionaire **********'). question('Are you single(s),married(m),widowed(w),divorced(d) or separated(p)?',1). question('What is your age?(a) for under 25,(b) for 25 to 29,(c) for 30 to 49,(d) for 50 to 59 and (e) for 60 and over',2). question('Would you describe the area where you live as run-down inner city(r), average(a) or high class(h)?',3). question('How many years have you been at your present address? (a)if six months or less,(b)if from 1 to 3,(c)form 4 to 7,(d)from 8 to 12 and (e)from over 12',4). question('Is your present address occuoied as owner(o), tenant(t), unfurnished or council tenant(u), with parents or relatives(r), free with job(f) or lodger(l)?',5). question('Is your job office worker(o), skilled manual(s), part-time(pt), unemployed(u), supervisor(s), manager or director(md), profecional(p), or self-emplyed(se) ?',6). question('Can you supply employers name and address? (y/n)',7). question('Credit Cards: none(n), Access(a), Visa(v), Amex(x), Dinners(d)',8). question('How many loans do you have outstanding? Enter 0, 1, 2 or 3(Indicating any number over 2)',9). question('Have you had previous credit with this bank?(n) for none,(one) for one succeesful loan,(two) for two or more succesfull loans,(term) for a loan that was terminated.',10). total_questions(10). scoring_of(1,s,2). scoring_of(1,m,5). scoring_of(1,w,3). scoring_of(1,d,1). scoring_of(1,p,1). scoring_of(2,a,1). scoring_of(2,b,5). scoring_of(2,c,3). scoring_of(2,d,5). scoring_of(2,e,3). scoring_of(3,r,2). scoring_of(3,a,5). scoring_of(3,h,9). scoring_of(4,a,1). scoring_of(4,b,3). scoring_of(4,c,4). scoring_of(4,d,6). scoring_of(4,e,7). scoring_of(5,o,9). scoring_of(5,t,4). scoring_of(5,u,7). scoring_of(5,r,1). scoring_of(5,f,3). scoring_of(5,l,2). scoring_of(6,o,3). scoring_of(6,s,3). scoring_of(6,pt,2). scoring_of(6,u,1). scoring_of(6,s,4). scoring_of(6,md,7). scoring_of(6,p,9). scoring_of(6,se,3). scoring_of(7,y,4). scoring_of(7,n,0). scoring_of(8,n,1). scoring_of(8,a,4). scoring_of(8,v,4). scoring_of(8,x,5). scoring_of(8,d,5). scoring_of(9,0,4). scoring_of(9,1,6). scoring_of(9,2,2). scoring_of(9,_,1). scoring_of(10,n,4). scoring_of(10,one,7). scoring_of(10,two,10). scoring_of(10,term,0). decision('you get the loan',Total_score):-Total_score > 35. decision('you might get the Loan',Total_score):-Total_score > 25,Total_score < 35. decision('we are sorry,no loan',Total_score):-Total_score <25.