>>662
% Prolog

日付テーブルのt_dateに沿って出来高を表示する :-
　　write('日付テーブル 出来高aテーブル 出来高bテーブル\n'),
　　日付テーブル(_西暦日付),
　　出来高aテーブルの取得(_西暦日付,_出来高a),
　　出来高bテーブルの取得(_西暦日付,_出来高b),
　　write_formatted('%t　　 %10d　　 %10d\n',[_西暦日付,_出来高a,_出来高b]),
　　fail.
日付テーブルのt_dateに沿って出来高を表示する.

出来高aテーブルの取得(_西暦日付,_出来高a) :- 出来高aテーブル(_西暦日付,_出来高a),!.
出来高aテーブルの取得(_,0).

出来高bテーブルの取得(_西暦日付,_出来高b) :- 出来高bテーブル(_西暦日付,_出来高b),!.
出来高bテーブルの取得(_,0).