Prolog创建字典

:- use_module(library(dict)).

% 创建一个字典
create_dict(Dict) :-
    dict_create(Dict, my_dict, [key1-value1, key2-value2]).

% 获取字典中的值
get_value(Dict, Key, Value) :-
    dict_pairs(Dict, _, Pairs),
    member(Key-Value, Pairs).

% 更新字典中的值
update_value(Dict, Key, NewValue, NewDict) :-
    dict_pairs(Dict, Tag, Pairs),
    select(Key-_, Pairs, Key-NewValue, NewPairs),
    dict_pairs(NewDict, Tag, NewPairs).

% 删除字典中的键值对
delete_pair(Dict, Key, NewDict) :-
    dict_pairs(Dict, Tag, Pairs),
    exclude(key_value(Key,_), Pairs, NewPairs),
    dict_pairs(NewDict, Tag, NewPairs).