このディレクトリの索引
#  
#  1:数値a,b を入力し,a+b,a‐b,a*b,a/b を計算するプログラムを作成してください。
#  

'数値a,b を入力し,a+b,a‐b,a*b,a/b を計算する' :-
        数を得る(a,_a),
        数を得る(b,_b),
        '数値a,b を入力し,a+b,a‐b,a*b,a/b を計算する'(_a,_b).

'数値a,b を入力し,a+b,a‐b,a*b,a/b を計算する'(_a,_b) :-
        forall(
                'a+b,a‐b,a*b,a/b を計算する'(F,_a,_b,_値),
                 writef('a %t b = %t\n',[F,_値])).

'a+b,a‐b,a*b,a/b を計算する'(F,_a,_b,_値) :-
        member(F,[+,-,*,/]),
        _式 =.. [F,_a,_b],
        _値 is _式.