09/12/24 09:07:33
>>40 間違い。これは辺の二乗だったね。
% Prolog
辺の和が3以上1000以下の直角三角形のうち、最も面積の大きい直角三角形の３辺の長さを求める(_辺1,_辺2,_辺3) :-
Max1 is truncate(sqrt(1000)),
findall(N2,(for(1,N,Max1),N2 is truncate(N*N)),L1),
findmax([C,A,B],(組み合わせ(L1,3,[A,B,C]),C is A+B,C>=3,C=<1000),[A,B,C]),
_辺1 is truncate(sqrt(A)),
_辺2 is truncate(sqrt(B)),
_辺3 is truncate(sqrt(C)),!.