このディレクトリの索引
http://toro.2ch.net/test/read.cgi/db/1316769778/770
#  すまん、763です。具体的に言うと 
#  株価Tab(時刻、株価) 
#  為替Tab(時刻、ドル・円為替レート) 
#  を株価のテーブルをメインにして 
#  SELECT時刻、株価、ドル・円為替レート 
#  にしたいんだけど株価と為替の時刻は当然一致していないけど、 
#  株価の時刻からみて最新の為替レートを表示したいんです。 
#  よろしくおねがいします。 
# 
# 

'時刻、株価、ドル・円為替レート'(_時刻,_株価_円,_ドル円為替レート) :-
        株価(_時刻,_株価_ドル),
        株価(_時刻,_株価_ドル,_株価_円,_ドル円為替レート).

株価(_時刻,_株価_ドル,_株価_円,_ドル円為替レート) :-
        findmax([_時刻_1,_ドル円為替レート],(
                    為替(_時刻_1,_ドル円為替レート),
                    _時刻_1 @=< _時刻),
                [_,_ドル円為替レート]),
        _株価_円 is _ドル円為替レート * _株価_ドル.