Nelze vybrat více než 25 témat
Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
67 řádky
1.4 KiB
67 řádky
1.4 KiB
-module(utKhashDs).
|
|
-compile([nowarn_unused_function, nowarn_unused_vars, nowarn_export_all]).
|
|
|
|
-export([start/2]).
|
|
|
|
start(Num, Pid) ->
|
|
Ds = init(Num),
|
|
Time1 = erlang:monotonic_time(),
|
|
NewDsI = insert(Num, Ds),
|
|
Time2 = erlang:monotonic_time(),
|
|
NewDsR = read(Num, NewDsI, undefined),
|
|
Time3 = erlang:monotonic_time(),
|
|
NewDsU = update(Num, NewDsR),
|
|
Time4 = erlang:monotonic_time(),
|
|
NewDsF = for(Num, NewDsU),
|
|
Time5 = erlang:monotonic_time(),
|
|
delete(Num, NewDsF),
|
|
Time6 = erlang:monotonic_time(),
|
|
erlang:send(Pid, {over, self(), Time2 - Time1, Time3 - Time2, Time4 - Time3, Time5 - Time4, Time6 - Time5}),
|
|
exit(normal).
|
|
|
|
init(Num) ->
|
|
{ok, Ds} = khash:new(),
|
|
Ds.
|
|
|
|
insert(0, Ds) ->
|
|
Ds;
|
|
insert(Num, Ds) ->
|
|
Key = utTestDs:makeK(Num),
|
|
Value = utTestDs:makeV(Num),
|
|
khash:put(Ds, Key, Value),
|
|
insert(Num - 1, Ds).
|
|
|
|
read(0, Ds, _V) ->
|
|
Ds;
|
|
read(Num, Ds, _V) ->
|
|
Key = utTestDs:makeK(Num),
|
|
Value = khash:get(Ds, Key, undefined),
|
|
read(Num - 1, Ds, Value).
|
|
|
|
update(0, Ds) ->
|
|
Ds;
|
|
update(Num, Ds) ->
|
|
Key = utTestDs:makeK(Num),
|
|
Value = utTestDs:makeV2(Num),
|
|
khash:put(Ds, Key, Value),
|
|
update(Num - 1, Ds).
|
|
|
|
for(Num, Ds) ->
|
|
Keylist = khash:to_list(Ds),
|
|
for1(Keylist, undefined),
|
|
Ds.
|
|
|
|
for1([], V) ->
|
|
ok;
|
|
for1([H | T], _V) ->
|
|
V = erlang:get(H),
|
|
for1(T, V).
|
|
|
|
delete(0, Ds) ->
|
|
ok;
|
|
delete(Num, Ds) ->
|
|
Key = utTestDs:makeK(Num),
|
|
khash:del(Ds, Key),
|
|
delete(Num - 1, Ds).
|
|
|
|
|