10/02/09 14:39:10
>>662
% Prolog 日付テーブルにそって常に全部表示するというのは現実味がない。
日付テーブルのt_dateに沿って出来高を表示する(_日付下限,_日付上限) :-
write('日付テーブル 出来高aテーブル 出来高bテーブル\n'),
日付テーブル(_西暦日付),
_西暦日付>=_日付下限,
_西暦日付=<_日付上限,
出来高aテーブルの取得(_西暦日付,_出来高a),
出来高bテーブルの取得(_西暦日付,_出来高b),
write_formatted('%t %10d %10d\n',[_西暦日付,_出来高a,_出来高b]),
fail.
日付テーブルのt_dateに沿って出来高を表示する(_,_).