1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
| -module(division).
-define(DEFAULT_SEED_LIST, [1, 2, 3, 4]).
-define(DEFAULT_DIVISION_LIST, [1, 2, 3, 4]).
-define(GROUP_DIVISION_LIST, [
[1, 2, 3, 4],
[2, 3, 4, 1],
[3, 4, 1, 2],
[4, 1, 2, 3]
]).
-define(GROUP_SEED_LIST, [
[5, 6, 7, 8],
[6, 7, 8, 5],
[7, 8, 5, 6],
[8, 5, 6, 7]
]).
-record(group, {
group_id = 1 % 分组id
, player_id1 = 0 % 选手1
, player_id2 = 0 % 选手2
}).
-define(DEBUG(F), io:format("##[~w~w:~w] " ++ F ++ "~n", [self(), ?MODULE, ?LINE])).
-define(DEBUG(F, A), io:format("##[~w~w:~w] " ++ F ++ "~n", [self(), ?MODULE, ?LINE | A])).
-compile(export_all).
test_data() ->
[
%% 亚洲赛区前8名 第三位是选手id
{4, 8, 4810022},
{4, 7, 4710009},
{4, 6, 4610025},
{4, 5, 4510033},
{4, 4, 4410004},
{4, 3, 4310018},
{4, 2, 4210032},
{4, 1, 4110026},
%% 北美赛区前8名 第三位是选手id
{3, 8, 3810022},
{3, 7, 3710009},
{3, 6, 3610025},
{3, 5, 3510033},
{3, 4, 3410004},
{3, 3, 3310018},
{3, 2, 3210032},
{3, 1, 3110026},
%% 韩国赛区前8名 第三位是选手id
{2, 8, 2810022},
{2, 7, 2710009},
{2, 6, 2610025},
{2, 5, 2510033},
{2, 4, 2410004},
{2, 3, 2310018},
{2, 2, 2210032},
{2, 1, 2110026},
%% 越南赛区前8名 第三位是选手id
{1, 8, 1820017},
{1, 7, 1720008},
{1, 6, 1620001},
{1, 5, 1520007},
{1, 4, 1420018},
{1, 3, 1320019},
{1, 2, 1220011},
{1, 1, 1120009}
].
%% lists:zip([a,b,c],[1,2,3]). -> [{a,1},{b,2},{c,3}]
init_player_list() ->
List = test_data(),
%% key为赛区的数据格式转成key为名次的数据格式
Fun =
fun({Div, Seed, Id}, Acc) ->
SeedMap = maps:get(Seed, Acc, #{}),
Acc#{Seed => SeedMap#{Div => Id}}
end,
Map = lists:foldl(Fun, #{}, List),
?DEBUG("Map:~p end",[Map]),
L1 = lists:zip(shuffle(?GROUP_DIVISION_LIST), shuffle(?GROUP_SEED_LIST)),
?DEBUG("L1:~p end",[L1]),
make_group_list(#group{}, init_player_list(Map, L1, []), []).
init_player_list(_Map, [], List) ->
List;
init_player_list(Map, [{DivList, SeedList} | Rest], List) ->
SeedDivList1 = lists:sort(lists:zip(DivList, ?DEFAULT_SEED_LIST)),
?DEBUG("SeedDivList1:~p end",[SeedDivList1]),
SeedDivList2 = lists:sort(lists:zip(?DEFAULT_DIVISION_LIST, SeedList)),
?DEBUG("SeedDivList2:~p end",[SeedDivList2]),
%% 取1-4名 Id1是赛区1 Id2是赛区2 Id3是赛区3 Id4是赛区4
[Id1, Id2, Id3, Id4] = [maps:get(Div, maps:get(Seed, Map)) || {Div, Seed} <- SeedDivList1],
%% 取5-8名 Id5是赛区1 Id6是赛区2 Id6是赛区3 Id8是赛区4
[Id5, Id6, Id7, Id8] = [maps:get(Div, maps:get(Seed, Map)) || {Div, Seed} <- SeedDivList2],
%% 赛区规避原则
[Id11, Id33] = shuffle([Id1, Id3]),
[Id66, Id88] = shuffle([Id6, Id8]),
[Id22, Id44] = shuffle([Id2, Id4]),
[Id55, Id77] = shuffle([Id5, Id7]),
%%前4名和后4名打 赛区1 3 和赛区2 4打 赛区2 4 和赛区1 3打
init_player_list(Map, Rest, [Id11, Id66, Id33, Id88, Id22, Id77, Id44, Id55 | List]).
make_group_list(_, [], GroupList) ->
lists:reverse(GroupList);
make_group_list(_, [_], _GroupList) ->
[];
make_group_list(#group{group_id = GId} = Base, [Id1, Id2 | Rest], List) ->
Group = Base#group{player_id1 = Id1, player_id2 = Id2},
make_group_list(Base#group{group_id = GId + 1}, Rest, [Group | List]).
%%=======================================================================
%% @doc 打乱list的顺序
shuffle(L) when is_list(L) ->
List1 = [{rand:uniform(), X} || X <- L],
List2 = lists:keysort(1, List1),
[E || {_, E} <- List2];
shuffle(L) ->
?DEBUG("err Args:~w", [L]),
[].
|
