Пролог объединяет правило - PullRequest
Новая
       15

Пролог объединяет правило

1 голос
/ 21 июля 2010

Мне нужно написать правило, которое состоит из подправила.

Есть идеи, как этого добиться?

isloanaccept(Name, LoanAmount, LoanTenure) 
:-  customer(Name, bank(_),customertype(_),
    citizen(malaysian),age(Age),credit(C),
    income(I),property(car|house)), 
    Age >= 18,
    C > 500, 
    I > (LoanAmount / LoanTenure) / 12.
lowerinterest(Senior) :- isseniorcitizen(Senior).

Например, мне нужно проверить тип клиента.Если тип клиента VIP, процент ниже.Если возраст старше 60, проценты ниже.

Пожалуйста, помогите.

Спасибо.

Ответы [ 2 ]

1 голос
/ 21 июля 2010

Добавление дополнительного аргумента к isloanaccept, вероятно, самый простой способ. 

isloanaccept(Name, LoanAmount, LoanTenure, Interest) :-
    customer(Name, bank(_), customertype(Type), citizen(malaysian), age(Age),
             credit(C), income(I), property(car|house)), 
    Age >= 18,
    C > 500,
    I > (LoanAmount / LoanTenure) / 12,
    interest(Age, Interest).

% Interest depending on age and customertype; add parameters, or pass in a list,
% to have interest determined by other factors
interest(Age,Type,Interest) :-
    (senior_citizen(Age) ->
        Interest = 0.05
    ; Type = vip ->
        Interest = 0.07
    ;
        Interest = 0.10
    ).

PS .: Пожалуйста, попробуйте отформатировать код Prolog таким образом, чтобы его было легче читать.

0 голосов
/ 21 июля 2010

Вот что я бы сделал: 

% usage: isInterestOk(+CustomerType, +Interest)
isInterestOk('VIP', Interest) :-
    Interest =< 1000.
isInterestOk('normal', Interest) :-
    Interest =< 500.
...