10/01/14 16:10:07
>>243
% Prolog 一営業日後の定義に祝日と曜日の定義が必要になる。
一営業日後(_今日,_一営業日後) :-
曜日(_今日,_曜日),
\+(member(_曜日,[土曜,日曜])),
\+(祝日(_今日)),
翌日(_今日,_翌日),
次の営業日(_翌日,_一営業日後),!.
一営業日後(_今日,_一営業日後) :-
翌日(_今日,_翌日),
一営業日後(_翌日,_一営業日後),!.
三営業日後(_今日,_三営業日後) :-
一営業日後(_今日,_一営業日後),
一営業日後(_一営業日後,_二営業日後),
一営業日後(_二営業日後,_三営業日後),!.
次の営業日(_基準日,_次の営業日) :-
曜日(_基準日,_曜日),
member(_曜日,[土曜,日曜]),
翌日(_基準日,_翌日),
次の営業日(_翌日,_次の営業日),!.
次の営業日(_基準日,_次の営業日) :-
祝日(_基準日),
翌日(_基準日,_翌日),
次の営業日(_翌日,_次の営業日),!.
次の営業日(_次の営業日,_次の営業日).