2021-01-30

-module(ets_test).
-export([start/0]).

start()->
lists:foreach(fun test_ets/1,
[set,ordered_set,bag,duplicate_bag]).

test_ets(Mode)->
TableId=ets:new(test,[Mode]),
ets:insert(TableId,{a,1}),
ets:insert(TableId,{b,2}),
ets:insert(TableId,{a,1}),
ets:insert(TableId,{a,3}),
ets:insert(TableId,{a,4}),
ets:insert(TableId,{a,2}),
List=ets:tab2list(TableId),
io:format("~-13w =>_pn",[Mode,List]),
ets:delete(TableId).

Erlang程序设计（第2版）【瑞典】Joe Armstrong 著 牛化成译 【M】北京：中国工信出版社和人民邮电出版社