このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1274827528/329
#  文字と演算子を入力して四則計算するプログラムってどうやります? 
#  例えば 
#  3←入力 
#  +←入力 
#  4←入力 
#  −←入力 
#  ・←入力 
#  ・ 
#  ・ 
#  = 
#  (計算結果) 
# 
# 

文字と演算子を入力して四則計算する :-
        get_line(Line),
        文字と演算子を入力して四則計算する(Line,0,_答え),
        write_formatted('%t\n',[_答え]).

文字と演算子を入力して四則計算する(=,_答え,_答え) :- !.
文字と演算子を入力して四則計算する(Line,S1,_答え) :-
        member(Line,[+,-,*,/]),
        数値項を得る(V),
        F =.. [Line,S1,V],
        S2 is F,
        get_line(Line2),
        文字と演算子を入力して四則計算する(Line2,S2,_答え),!.
文字と演算子を入力して四則計算する(A,_,_答え) :-
        atom_to_term(A,V,_),
        write_formatted('入力が %t に初期化されました。演算子から入力してください\n',[V]),
        get_line(Line),
        文字と演算子を入力して四則計算する(Line,V,_答え).

数値項を得る(V) :- get_line(Line),atom_to_term(Line,V,_),number(V),!.
数値項を得る(V) :- write('数値を入力してください\n'),数値項を得る(V).