游戏竞技对抗赛排队分组问题

游戏中要排一个对抗赛, 可以是nVSn, 如3v3, 5v5, 20v20, 玩家可以以小队形式参加排队, 也可以个人参加排队.

用一个数据记录每种队的的个数, 没有这种类型的队, 用0表示, 下面是一个11v11的组合. 如下

local strData = "5,8,7,3,1,0,0,1,0,1,0";

表示1个人的队伍为5个, 2人的队伍为8个, ...11人的队伍为0个.

============================

function Split(szFullString, szSeparator)

local nFindStartIndex = 1

local nSplitIndex = 1

local nSplitArray = {}

while true do

local nFindLastIndex = string.find(szFullString, szSeparator, nFindStartIndex)

if not nFindLastIndex then

nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, string.len(szFullString))

break

end

nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, nFindLastIndex - 1)

nFindStartIndex = nFindLastIndex + string.len(szSeparator)

nSplitIndex = nSplitIndex + 1

end

return nSplitArray

end

function GetList(list)

local usedlist = {};

i = #list;

total = 0;

repeat

local num = tonumber(list[i]);

if num > 0 and total + i <= #list then

usedlist[#usedlist + 1] = i;

total = total + i;

list[i] = tostring(num - 1);

if(total == #list) then

return usedlist;

end

else

i = i - 1;

end

until i < 1

return nil;

end

function PrintTable(list)

for i = 1, #list

do

str = string.format("index %d: value = %s", i, list[i]);

print(str);

end

end

--1人队伍有5个, 2人队伍有8个,..11人队伍有0个.

local strData = "5,8,7,3,1,0,0,1,0,1,0";

local list = Split(strData, ",");

--GetList会修改list的值, 移除已经用过的值

local usedlist = GetList(list);

local usedlist2 = GetList(list);

PrintTable(usedlist);

PrintTable(usedlist2);
上面可以找出另几个队伍参加对抗赛, 一组为10人队与一个1人队合成一方, 另一组是一个8人队与另外一个3人队合成一方.

另外还要一个表格来记录, 1人队具体玩家的id, 2人队具体玩家的id, 3人队具体玩家的id...
...

===================

新版本:

--分隔字符串变为表格

function Split(szFullString, szSeparator)
local nFindStartIndex = 1
local nSplitIndex = 1
local nSplitArray = {}
while true do
local nFindLastIndex = string.find(szFullString, szSeparator, nFindStartIndex)
if not nFindLastIndex then
nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, string.len(szFullString))
break
end
nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, nFindLastIndex - 1)
nFindStartIndex = nFindLastIndex + string.len(szSeparator)
nSplitIndex = nSplitIndex + 1
end
return nSplitArray
end
--从队列中取得一种队伍分法
--list表如果长度为n, 就会尝试找出一种n人的方案
function GetList(list)
local usedlist = {};
i = #list;
total = 0;
repeat
local num = tonumber(list[i]);
if num > 0 and total + i <= #list then
usedlist[#usedlist + 1] = i;
total = total + i;
list[i] = tostring(num - 1);
if(total == #list) then
return usedlist;
end
else
i = i - 1;
end
until i < 1
return nil;
end
--打印表格中的数据
function PrintTable(list)
for i = 1, #list
do
str = string.format("index %d: value = %s", i, list[i]);
print(str);
end
end
--表格转成字符串, 用seperator相间隔
function List2Str(list, seperator)
local str = "";
for i = 1, #list do
str = str..tostring(list[i])..seperator
end
return TrimEnd(str, seperator);
end
--去除结尾指定一个字符
function TrimEnd(str, seperator)
if(string.sub(str, -1) == seperator) then
return string.sub(str, 0, -2);
end
return str;
end
--在players列表中增加players
function AddPalyers(strPlayers, players)
--修改strPlayers中的players
local list = Split(strPlayers, "|");
local count = table.getn(Split(players, ","));
if(list[count] == "") then
list[count] = players;
else
list[count] = list[count]..","..players;
end
--重组字符串
return List2Str(list, "|");
end
--移除players列表中的player count为位置, 也是移除的个数
function RemovePlayers(strPlayers, count)
local list = Split(strPlayers, "|");
local players = Split(list[count], ",");
if(#players <= count) then
list[count] = "";
else
local str = "";
for i = count + 1, #players do
str = str..tostring(players[i])..","
end
list[count] = TrimEnd(str, ",");
end
return List2Str(list, "|");
end
--得到队列中玩家总人数
function GetPlayerCount(strQueue)
local list = Split(strQueue, ",");
local total = 0;
for i = 1, #list do
total = total + tonumber(list[i]) * i;
end
return total;
end
--检查玩家是否在列表中
function PlayerIsInList(strPlayers, playerId)
local strPlayerId = tostring(playerId);
local list = Split(strPlayers, "|");
for i = 1, #list do
if list[i] ~= nil and list[i] ~= "" then
local players = Split(list[i], ",");
for j= 1, #players do
if players[j] == strPlayerId then
return true;
end
end
end
end
return false;
end

--1人队伍有5个, 2人队伍有8个,..11人队伍有0个.
local strQueue = "5,8,7,3,1,0,0,1,0,1,0";

local list = Split(strQueue, ",");
--GetList会修改list的值, 移除已经用过的值
local usedlist = GetList(list);
if(usedlist ~= nil) then
PrintTable(usedlist);
local usedlist2 = GetList(list);
if(usedlist2 ~= nil) then
PrintTable(usedlist2);
end
end

print(List2Str(list, ","));
--strPlayers各队类型之间用|相隔, 各player之间用, 相隔. 同一类型的队在一起, 用,相隔
local strPlayers = "123,123,213|213,213,123,213|||||||||";
local result = AddPalyers(strPlayers, "444,4444,444,4444");
print(result);
result = RemovePlayers(strPlayers, 2);
print(result);
print(tostring(GetPlayerCount(strQueue)));
print(PlayerIsInList(strPlayers, 723));