10/01/15 08:11:05
>>250 変なところで折り返しが出たので書き直し。
% Prolog
欲しい結果(_荷受日下限,_荷受日上限) :-
write('荷物id 品物 重さ 作業者名1 作業内容1 作業状況 対応班2\n'),
荷物テーブル(_id,_中身id,_荷受け),
_荷受け @>= _荷受日下限,
_荷受け @=< _荷受日上限,
中身テーブル(_中身id,_品物,_重さ),
作業テーブル(_id,_作業項目id,_作業者名,_作業状況),
作業項目テーブル(_作業項目id,_作業内容),
作業班(_作業者名,_作業状況,_重さ,_対応班),
write_formatted('%t %t %t %t %t %t %t\n',[_id,_品物,_重さ,_作業者名,_作業内容,_作業状況,_対応班]),
fail.
欲しい結果(_,_).
作業班(_,_,_重さ,1) :- _重さ >= 1000,!.
作業班(_作業者名,_作業状況,_,2) :- _作業者名=鈴木,_作業状況='未',!.
作業班(田中,_,_,3) :- !.