このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1305867431/824
#  [1] 授業単元:Cプログラミング 
#  [2] 問題文(含コード&リンク): 
#  標準入力で 
#  8+5 と打ったら 13がでてくるような 
#  電卓を作れ、四則演算に対応していれば良い 
#   
#  

'標準入力で8+5と打ったら13がでてくるような電卓を作れ、四則演算に対応していれば良い' :-
        電卓.

電卓 :-
        readln(L),
        評価(L,_評価),
        表示(_評価),
        電卓.

評価([e],e) :- !.
評価([V1,+,V2],V) :-
        V is V1 + V2,!.
評価([V1,-,V2],V) :-
        V is V1 - V2,!.
評価([V1,*,V2],V) :-
        V is V1 * V2,!.
評価([V1,/,V2],V) :-
        V is V1 / V2,!.
        
表示(e) :- !.
表示(V) :-
        writef('%t\n',[V]),
        fail.