このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/143
#  [1] 授業単元: 
#  [2] 問題文(含コード&リンク): 
#  8 桁までの整数を表わす文字列(例: "-3246") を整数値(例: ?3246) に変換する関数を作りたい。各問いに答えよ。 
#  2. 変換したい文字列を引数とし、正負を判断して値が正または0 の時には1 を、負の時には-1 
#  を、整数として文字列にエラーがある場合には0 を返す関数sign() を作れ。 
#   

sign(_文字列,_返り値) :-
        '変換したい文字列を引数とし、正負を判断して値が正または0 の時には1 を、負の時には-1を、整数として文字列にエラーがある場合には0 を返す'(_文字列,_返り値).


'変換したい文字列を引数とし、正負を判断して値が正または0 の時には1 を、負の時には-1を、整数として文字列にエラーがある場合には0 を返す'(_文字列,0) :-
        '文字列を引数とし、これらの条件を同時に満たす時に整数値1を一つでも満たさない時には0戻す'(_文字列,0),!.
'変換したい文字列を引数とし、正負を判断して値が正または0 の時には1 を、負の時には-1を、整数として文字列にエラーがある場合には0 を返す'(_文字列,1) :-
        sub_atom(_文字列,0,1,_,'+'),!.
'変換したい文字列を引数とし、正負を判断して値が正または0 の時には1 を、負の時には-1を、整数として文字列にエラーがある場合には0 を返す'(_文字列,-1) :-
        sub_atom(_文字列,0,1,_,'-'),!.