10/02/03 06:42:17
>>227 訂正
% Prolog 除数検査の中で _実数2 とするべきところを _実数 としていたものがある。
program :-
user_parameters([A,B]),
atom_to_term(A,_実数1,_),
atom_to_term(B,_実数2,_),
sasho(_実数1,_実数2,_差,_商,_診断),
program_1(_差,_商,_診断),!.
sasho(_実数1,_実数2,_差,_商,0) :-
(_実数2 = 0.0;_実数2=0),
_差 is _実数1 - _実数2,!.
sasho(_実数1,_実数2,_差,_商,1) :-
\+(_実数2 = 0.0),
\+(_実数2=0),
_差 is _実数1 - _実数2,
_商 is _実数1 / _実数2,!.
program_1(_差,_商,0) :- write_formatted('%t',[_差]),!.
program_1(_差,_商,1) :- write_formatted('%t,%t',[_差,_商]),!.