09/07/06 16:54:54
>>369 (1)
% Prolog
線分の長さ(X1,Y1,X2,Y2,_線分の長さ) :-
_線分の長さ is sqrt((X2-X1)^2 + (Y2-Y1)^2).
09/07/06 16:54:54
>>369 (1)
% Prolog
線分の長さ(X1,Y1,X2,Y2,_線分の長さ) :-
_線分の長さ is sqrt((X2-X1)^2 + (Y2-Y1)^2).
09/07/06 16:54:54
>>369 (1)
% Prolog
線分の長さ(X1,Y1,X2,Y2,_線分の長さ) :-
_線分の長さ is sqrt((X2-X1)^2 + (Y2-Y1)^2).