10/07/06 08:28:59
>>248
% Prolog
'欲しい結果 id data a.cnt + b.cnt + c.cnt' :-
test(_id,_data),
findsum(U,(findsum(_value,hoge(_id,_value),U1),findsum(_val3,('100'(_id,_val1,_val2),_val3 is _val1 + _val2),U2),U is U1 + U2),S).
write('id data a.cnt + b.cnt + c.cnt\n'),
write_formatted('%t %t %t\n',[_id,_data,S]),!.