遍历数组里，每几个元素一组的所有可能 (lua)

local arr={1,2,3,4,5,6,7,8,9,10}

local repcount =#arr

local arr_count = 4    --每几个元素一组

local rep_cardindex={}  --假如4个元素，1234个元素对应arr数组里的索引

local result_arr={}

for i=1 ,arr_count do

       rep_cardindex[i]=1   --[1]=1,[2]=2,[3]=3,[4]=4,第一个数组就是{1，2，3，4}

end

repeat

      local tmp_arr={}

      for i=1,arr_count do --将对应元素压入数组

              table.insert(tmp_arr,rep_cardindex[i])

       end

       table.insert(result_arr,tmp_arr)   --将组合压入总数组

      if arr_count >0 then
            if rep_cardindex[arr_count ] == repcount then --最后那个元素索引到了最后一个，要重新调整索引
                local out=true
                for i=arr_count ,2,-1 do  
                    out=false
                    if rep_cardindex[i-1] +1 ~= repcount then --最后一个元素的前一个索引是不是到了倒数第二个
                        rep_cardindex[i-1]=rep_cardindex[i-1]+1  --不是继续加
                        for m=i,arr_count do
                            rep_cardindex[m]=rep_cardindex[m-1] +1 --元素的索引移动致前面一个索引的前面
                        end
                        break  
                    end
                    out=true  --如果都在倒数的那个几个上结束
                end
                if out then
                    break
                end
            else
                rep_cardindex[arr_count ]=rep_cardindex[arr_count ]+1
            end
        else
            break
        end

until false