用lua实现一个效果，输入一个字符串，输出该字符串中所有的字符组合

Question

如题，怎样用lua实现，递归或者别的都可以，最好附上说明

Answer 1

#!/usr/bin/env lua 
function th_table_dup(ori_tab)                      -- 复制table
    if (type(ori_tab) ~= "table") then
        return nil;
    end
    local new_tab = {};
    for i,v in pairs(ori_tab) do
        local vtyp = type(v);
        if (vtyp == "table") then
            new_tab[i] = th_table_dup(v);
        elseif (vtyp == "thread") then
            -- TODO: dup or just point to?
            new_tab[i] = v;
        elseif (vtyp == "userdata") then
            -- TODO: dup or just point to?
            new_tab[i] = v;
        else
            new_tab[i] = v;
        end
    end
    return new_tab;
end

function permutation(s1,p)
    if #s1 == 1 then                                -- 如果s1长度为1，意味着获得了一种新的排列
        p = p .. s1[1]                              -- 那么就打印它
        print(p)
    else                                            -- 否则，选定一种方案，继续递归
        local i
        for i = 1, #s1 do                           -- 4.3 Control Structure; Numeric for
            local p2, s2
            p2 = p .. s1[i]
            s2 = th_table_dup(s1)                   -- 把s1表的内容复制给s2表
            table.remove(s2,i)                      -- 20.1 Insert and Remove
            permutation(s2,p2)                      -- 用s2继续进行递归
        end
    end
end

-- 主程序
a = io.read()                                       -- 读入字符串，可含汉字
                                                    -- 22.1 The Simple I/O Model
len = #(string.gsub(a, "[\128-\191]", ""))          -- 计算字符数（不是字节数）

i=1                                                 -- 迭代出每一个字符，并保存在table中
s = {}                                              -- 21.1 Basic String Functions
for c in string.gmatch(a, ".[\128-\191]*") do       -- 21.2 Pattern-Matching Functions
    s[i]=c                                          -- 21.7 Unicode
    i=i+1
end

print("permutation output:")
p=""
permutation(s,p)                                    -- 递归打印出全排列

注释中英语部分对应《Programming in Lua》书中相应的章节。

测试结果：

moose@debian:~/Code/baidu_knowledge/lua_permutation$ ./lua_permutation.lua
你好a
permutation output:
你好a
你a好
好你a
好a你
a你好
a好你