このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301553333/104
#  [1] 授業単元:プログラムA 
#  [2] 問題文(含コード&リンク):演習問題です。 
#   
#  2.float 型の変数a、およびb を引数とし、a がb よりも大きければ整数1 を、小さければ整数‐1 を、同じであれ 
#  ば整数0 を返す関数を作りなさい。 
#  

'float 型の変数a、およびb を引数とし、a がb よりも大きければ整数1 を、小さければ整数‐1 を、同じであれば整数0 を返す'(_a,_b,1) :- _a > _b.
'float 型の変数a、およびb を引数とし、a がb よりも大きければ整数1 を、小さければ整数‐1 を、同じであれば整数0 を返す'(_a,_b,-1) :- _a < _b.
'float 型の変数a、およびb を引数とし、a がb よりも大きければ整数1 を、小さければ整数‐1 を、同じであれば整数0 を返す'(_a,_b,0) :- _a == _b.