10/01/29 22:06:58
>>519
% Prolog
'a_tbl と b_tbl のコードが一致した場合に a_tbl に、b_tblの名前をセットする' :-
a_tbl(_no,_name1),
b_tbl(_no,_name2),
update_a_tbl(_no,_name2),
fail.
'a_tbl と b_tbl のコードが一致した場合に a_tbl に、b_tblの名前をセットする'.
update_a_tbl(_no,_name2) :-
retract(a_tbl(_no,_)),
assertz(a_tbl(_no,_name2)),
fail.
update_a_tbl(_,_).