10/02/09 07:04:31
>>644
% Prolog こんな述語定義が必要。日付連鎖は未定義かも知れない。後で。
'日付からデータを表示する。存在しない日はデータをNULLとして表示'(_日付下限,_日付上限) :-
日付からデータを表示する。存在しない日はデータをNULLとして表示(_日付下限),
日付連鎖(_日付下限,_日付),
日付からデータを表示する。存在しない日はデータをNULLとして表示(_日付),
_日付=_日付上限.
'日付からデータを表示する。存在しない日はデータをNULLとして表示'(_日付) :-
_日付 = (_年/_月/_日),
table(_日付,Data),
write_formatted('%2d%2d%2d %t\n',[_年,_月,_日,Data]),!.
'日付からデータを表示する。存在しない日はデータをNULLとして表示'(_日付) :-
_日付 = ( _年/_月/_日),
\+(table(_日付,Data)),
write_formatted('%2d%2d%2d NULL\n',[_年,_月,_日]),!.