>>776 (>>771)　訂正
% Prolog tan(pi/2) は除外が適切か。

'角度0から90°,10°刻みのsin,cos,tanの表を作成する' :-
　　　　member(F,[sin,cos,tan]),
　　　　functor(_式,F,1),
　　　　arg(1,_式,R),
　　　　for(0,N,9),
　　　　\((N=9,F=tan)),
　　　　N2 is N * 10,
　　　　R is pi * N2 / 180,
　　　　X is _式,
　　　　assertz('角度0から90°,10°刻みのsin,cos,tanの表'(F,N2,X)),
　　　　N = 9,
　　　　fail.
'角度0から90°,10°刻みのsin,cos,tanの表を作成する'.