Двусторонний хэш-стол в Эрланге - PullRequest
Новая
       16

Двусторонний хэш-стол в Эрланге

6 голосов
/ 28 октября 2010

Я пытаюсь придумать словарную структуру данных, которую я могу использовать в Erlang.Цель состоит в том, чтобы гарантировать, что все значения, а также ключи, являются уникальными.Я могу сделать это с явными проверками согласованности после каждой модификации, но я надеюсь, что есть неясный тип, который делает это для меня.Есть один?Если нет, то есть ли лучший способ, чем вставлять чек в каждую функцию, которая изменяет данные (или возвращает немного другую копию)?

Я ожидаю иметь как минимум 120 элементов и не более несколькихтысяч, в случае, если это имеет значение.

Ответы [ 3 ]

6 голосов
/ 28 октября 2010

Как насчет чего-то подобного: 

-module(unidict).

-export([
    new/0,
    find/2,
    store/3
    ]).


new() ->
    dict:new().


find(Key, Dict) ->
    dict:find({key, Key}, Dict).


store(K, V, Dict) ->
    Key = {key, K},
    case dict:is_key(Key, Dict) of
        true ->
            erlang:error(badarg);
        false ->
            Value = {value, V},
            case dict:is_key(Value, Dict) of
                true ->
                    erlang:error(badarg);
                false ->
                    dict:store(Value, K, dict:store(Key, V, Dict))
            end
    end.

Пример сеанса оболочки: 

1> c(unidict).
{ok,unidict}
2> D = unidict:new().
{dict,0,16,16,8,80,48,
      {[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[]},
      {{[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[]}}}
3> D1 = unidict:store(key, value, D).
{dict,2,16,16,8,80,48,
      {[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[]},
      {{[],[],[],[],[],[],[],[],[],[],[],[],[],[],
        [[{key,key}|value],[{value,...}|{...}]],
        []}}}
4> D2 = unidict:store(key, value, D1).
** exception error: bad argument
     in function  unidict:store/3
5> D2 = unidict:store(key2, value, D1).
** exception error: bad argument
     in function  unidict:store/3
6> D2 = unidict:store(key, value2, D1).
** exception error: bad argument
     in function  unidict:store/3
7> D2 = unidict:store(key2, value2, D1).
{dict,4,16,16,8,80,48,
      {[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[]},
      {{[],
        [[{key,key2}|value2]],
        [],[],[],[],[],[],[],[],[],[],[],
        [[{value,value2}|{key,key2}]],
        [[{key,key}|value],[{value,...}|{...}]],
        []}}}
8> unidict:find(key, D2).
{ok,value}
9> unidict:find(key2, D2).
{ok,value2}
1 голос
/ 29 октября 2010

Вы можете использовать простой список {ключ, значение} для пары сотен элементов: 

put(L, K, V) ->
  case lists:keyfind(K, 1, L) of
    {K, _} -> erlang:error(badarg);
    false ->
      case lists:keyfind(V, 2, L) of
        {_, V} -> erlang:error(badarg);
        false ->  [{K,V} | L]
      end
  end.

get(L, K) ->
  case lists:keyfind(K, 1, L) of
    {K, V} -> {'value', V};
    false ->  'undefined'
  end.
1 голос
/ 28 октября 2010

Есть ли один?

Не в стандартной библиотеке, я полагаю. Я бы использовал пару, состоящую из dict() и set() значений.

...