From 445d41f5a136c4e61a2b89e6f4ae5243ac00e7f6 Mon Sep 17 00:00:00 2001 From: SisMaker <1713699517@qq.com> Date: Tue, 23 Mar 2021 01:13:57 +0800 Subject: [PATCH] =?UTF-8?q?rf:=20=E6=B5=8B=E8=AF=95=E4=BB=A3=E7=A0=81?= =?UTF-8?q?=E4=BF=AE=E6=94=B9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/testCase/DsTest/utCerlSetsDs.erl | 55 --------------------- src/testCase/DsTest/utTestDs.erl | 2 +- src/testCase/DsTestSimple/utSCerlSetsDs.erl | 52 ------------------- src/testCase/DsTestSimple/utSTestDs.erl | 2 +- 4 files changed, 2 insertions(+), 109 deletions(-) delete mode 100644 src/testCase/DsTest/utCerlSetsDs.erl delete mode 100644 src/testCase/DsTestSimple/utSCerlSetsDs.erl diff --git a/src/testCase/DsTest/utCerlSetsDs.erl b/src/testCase/DsTest/utCerlSetsDs.erl deleted file mode 100644 index 84e43dd..0000000 --- a/src/testCase/DsTest/utCerlSetsDs.erl +++ /dev/null @@ -1,55 +0,0 @@ --module(utCerlSetsDs). --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), - 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, not_support, Time5 - Time4, Time6 - Time5}), - exit(normal). - -init(_Num) -> - cerl_sets:new(). - -insert(0, Ds) -> - Ds; -insert(Num, Ds) -> - Key = utTestDs:makeK(Num), - NewDs = cerl_sets:add_element(Key, Ds), - insert(Num - 1, NewDs). - -read(0, Ds) -> - Ds; -read(Num, Ds) -> - Key = utTestDs:makeK(Num), - Value = cerl_sets:is_element(Key, Ds), - read(Num - 1, Ds). - -update(Num, Ds) -> - Ds. - -for(Num, Ds) -> - Fun = - fun(Value, Acc) -> - Value - end, - cerl_sets:fold(Fun, [], Ds), - Ds. - -delete(0, Ds) -> - ok; -delete(Num, Ds) -> - Key = utTestDs:makeK(Num), - NewDs = cerl_sets:del_element(Key, Ds), - delete(Num - 1, NewDs). \ No newline at end of file diff --git a/src/testCase/DsTest/utTestDs.erl b/src/testCase/DsTest/utTestDs.erl index d5da5ea..13bd80b 100644 --- a/src/testCase/DsTest/utTestDs.erl +++ b/src/testCase/DsTest/utTestDs.erl @@ -12,7 +12,7 @@ -define(V_NUM, [8, 16, 32, 64, 128, 256, 516, 1024, 2048, 4096, 8192, 16384]). %-define(DsList, [utPdDs, utArrayDs, utTupleDs, utListsDs, utMapsDs, utEtsSetDs, utEtsOrdDs, utDictDs, utGb_treesDs, utSetsDs, utGb_setsDs, utOrddictDs, utOrdsetsDs, utAtomicsDs, utPTermDs, utArrayDs1, utHashBblDs, utHashBblDs1]). %-define(DsList, [utPdDs, utArrayDs, utNifArrayDs, utTupleDs, utListsDs, utMapsDs, utEtsSetDs, utArrayDs1, utHashBblDs, utHashBblDs1, utKhashDs]). --define(DsList, [utPdDs, utArrayDs, utEtsSetDs, utTupleDs, utMapsDs, utSetsDs, utCerlSetsDs]). +-define(DsList, [utPdDs, utArrayDs, utEtsSetDs, utTupleDs, utMapsDs, utSetsDs]). -define(Cnt, 12). diff --git a/src/testCase/DsTestSimple/utSCerlSetsDs.erl b/src/testCase/DsTestSimple/utSCerlSetsDs.erl deleted file mode 100644 index e52f83b..0000000 --- a/src/testCase/DsTestSimple/utSCerlSetsDs.erl +++ /dev/null @@ -1,52 +0,0 @@ --module(utSCerlSetsDs). --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), - 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, not_support, Time5 - Time4, Time6 - Time5}), - exit(normal). - -init(_Num) -> - cerl_sets:new(). - -insert(0, Ds) -> - Ds; -insert(Num, Ds) -> - NewDs = cerl_sets:add_element(Num, Ds), - insert(Num - 1, NewDs). - -read(0, Ds) -> - Ds; -read(Num, Ds) -> - Value = cerl_sets:is_element(Num, Ds), - read(Num - 1, Ds). - -update(Num, Ds) -> - Ds. - -for(Num, Ds) -> - Fun = - fun(Value, Acc) -> - Value - end, - cerl_sets:fold(Fun, [], Ds), - Ds. - -delete(0, Ds) -> - ok; -delete(Num, Ds) -> - NewDs = cerl_sets:del_element(Num, Ds), - delete(Num - 1, NewDs). \ No newline at end of file diff --git a/src/testCase/DsTestSimple/utSTestDs.erl b/src/testCase/DsTestSimple/utSTestDs.erl index a00d4c4..d44c216 100644 --- a/src/testCase/DsTestSimple/utSTestDs.erl +++ b/src/testCase/DsTestSimple/utSTestDs.erl @@ -12,7 +12,7 @@ -define(V_NUM, [8, 16, 32, 64, 128, 256, 516, 1024, 2048, 4096, 8192, 16384]). %-define(DsList, [utPdDs, utArrayDs, utTupleDs, utListsDs, utMapsDs, utEtsSetDs, utEtsOrdDs, utDictDs, utGb_treesDs, utSetsDs, utGb_setsDs, utOrddictDs, utOrdsetsDs, utAtomicsDs, utPTermDs, utArrayDs1, utHashBblDs, utHashBblDs1]). %-define(DsList, [utPdDs, utArrayDs, utNifArrayDs, utTupleDs, utListsDs, utMapsDs, utEtsSetDs, utArrayDs1, utHashBblDs, utHashBblDs1, utKhashDs]). --define(DsList, [utSPdDs, utSTupleDs, utSMapsDs, utSArrayDs, utSEtsSetDs, utSSetsDs, utSCerlSetsDs]). +-define(DsList, [utSPdDs, utSTupleDs, utSMapsDs, utSArrayDs, utSEtsSetDs, utSSetsDs]). -define(Cnt, 12).