- 663 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 14:22:31 ]
- >>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).
