Существует ли структура HashTable в Wolfram Mathematica?

Я хочу использовать структуру, такую как HashTable. Есть ли подобная структура в Wolfram Mathematica?

17
data-structures hashtable wolfram-mathematica

5 ответов

обновление: Mathematica версия 10 представила Association структуры данных (учебник).

существует ряд возможностей. Самая простая возможность, которая хорошо работает, если вам не нужно добавлять или удалять ключи из таблицы или изменять связанные с ними значения, - это создать список правил с ключом слева и значением справа и использовать Dispatch на нем.

если у вас необходимо изменить записи в вашей таблице, вы можете использовать DownValues символа в виде хэш-таблицы. Это будет поддерживать все операции, которые обычно используются с хэш-таблицами. Вот самый простой способ сделать это:

(* Set some values in your table.*) 
In[1]:=  table[a] = foo; table[b] = bar; table[c] = baz;

(* Test whether some keys are present. *)
In[2]:=  {ValueQ[table[a]], ValueQ[table[d]]}
Out[2]:= {True, False}

(* Get a list of all keys and values, as delayed rules. *)
In[3]:=  DownValues[table]
Out[3]:= {HoldPattern[table[a]] :> foo, HoldPattern[table[b]] :> bar,
HoldPattern[table[c]] :> baz}

(* Remove a key from your table. *)
In[4]:=  Unset[table[b]]; ValueQ[table[b]]
Out[4]:= False
22

Я бы сказал, что наиболее похожая структура вы можете получить из окна are разреженные массивы.

7

Я согласен с Pillsy, но также см. Этот ответ:

Система Mathematica Downvalue Лхс

Он включает в себя удобную функцию для получения ключей хэш-таблицы.

5

Я сделал словарь.модуль m, который содержал:

DictHasKey = Function[
    {
        dict,
        key
    },
    ValueQ[dict[key]]
]

DictAddKey = Function[
    {
        dict,
        key,
        value
    },
    If[
        DictHasKey[dict,key],
        Print["Warning, Dictionary already has key " <> ToString[key]]
    ];
    dict[key] = value;
]

DictKeys = Function[
    {
        dict
    },
    res = {};
    ForEach[DownValues[dict], Function[{dictKeyDescr},
        res = Append[res, ((dictKeyDescr[[1]]) /. dict -> neverUsedSymbolWhatever)[[1, 1]]];
    ]];
    res
]

DictValues = Function[
    {
        dict
    },
    res = {};
    ForEach[DownValues[dict], Function[{dictKeyDescr},
        res = Append[res, dictKeyDescr[[2]]];
    ]];
    res
]

DictKeyValuePairs = Function[
    {
        dict
    },
    res = {};
    ForEach[DownValues[dict], Function[{dictKeyDescr},
        res = Append[res, {((dictKeyDescr[[1]]) /. dict -> neverUsedSymbolWhatever)[[1, 1]], dictKeyDescr[[2]]}];
    ]];
    res
]

ForEach = Function[
    {
        list, 
        func 
    }, 
    len = Length[list]; 
    For[i = 1, i <= len, i++, 
        func[
            list[[i]]
        ]; 
    ]; 
]
4

система Mathematica 10 вводит Ассоциацию, <| k -> v |>,

<|a -> x, b -> y, c -> z|>
%[b]
y

который в основном является оболочкой для списка правил: Преобразование списка правил в ассоциацию:

Association[{a -> x, b -> y, c -> z}]
<|a -> x, b -> y, c -> z|>

преобразование ассоциации в список правил:

Normal[<|a -> x, b -> y, c -> z|>]
{a -> x, b -> y, c -> z}
3