table，唯一数据结构，其他都是用table实现。

    1. a = {}        -- 数组，注意！下标最好从1开始，因为库都是1开始。
    2. for i = 1, 1000 do a[i] = 0 end
    4. ---------------表构造---------------
    5. polyline = { 
    6.   color="blue", --polyline.color或者polyline["polyline"]
    7.   thickness=2;    --可以用分号
    8.   npoints=4,
    9.     {x=0,   y=0},        --polyline[1]
    10.     {x=-10, y=0},        --polyline[2]
    11.     {x=-10, y=1},        --polyline[3]
    12.     {x=0,   y=1},        --polyline[4]    
    13.   ["+"] = "add",    --polyline["+"]
    14.   ["-"] = "sub",
    15.     ["*"] = "mul",
    16.   ["/"] = "div"
    17. }
    19. ---------------矩阵、多维数组---------------
    20. mt = {}            -- create the matrix
    21. for i=1,N do
    22.     mt[i] = {}        -- 注意别丢了这句，创建row
    23.     for j=1,M do
    24.         mt[i][j] = 0
    25.     end
    26. end
    29. ---------------链表---------------
    30. list = { next = list, value = v}
    31. local l = list
    32. while l do
    33.     print(l.value)
    34.     l = l.next
    35. end
    37. ---------------队列---------------
    38. List = {}
    39. function List.new ()
    40.     return {
    41.     first = 0,     --保存队首索引
    42.     last = -1,    --保存堆尾索引
    43.     ......            -- 队列元素以数组下标索引
    44.   }
    45. end
    47. function List.pushleft (list, value)    -- 队首插入
    48.     local first = list.first - 1
    49.     list.first = first
    50.     list[first] = value
    51. end
    53. function List.pushright (list, value)    --堆尾插入
    54.     local last = list.last + 1
    55.     list.last = last
    56.     list[last] = value
    57. end
    59. function List.popleft (list)    --队首删除
    60.     local first = list.first
    61.     if first > list.last then error("list is empty") end
    62.     local value = list[first]
    63.     list[first] = nil        -- to allow garbage collection
    64.     list.first = first + 1
    65.     return value
    66. end
    68. function List.popright (list)    -- 堆尾删除
    69.     local last = list.last
    70.     if list.first > last then error("list is empty") end
    71.     local value = list[last]
    72.     list[last] = nil        -- to allow garbage collection
    73.     list.last = last - 1
    74.     return value
    75. end
    77. ---------------集合和包---------------
    78. --以元素值为数组下标，完美实现
    79. local function Set (list)    --通过数组list构建集合Set
    80.     local set = {}
    81.     for _, l in ipairs(list) do set[l] = true end
    82.     return set
    83. end
    85. local reserved = Set{"while", "end", "function", "local", }
    86. for w in allwords() do
    87.     if reserved[w] then
    88.     -- `w' is a reserved word
    89. end
    91. ---------------字符串缓冲区---------------
    92. local buff = ""
    93. for line in io.lines() do
    94.     buff = buff .. line .. "\n"        --性能极低，每个连接符都要生成开辟一块新的内存
    95. end
    97. --如何解决上面的性能问题？
    98. function newStack ()
    99.     return { 
    100.       ""             --[0]空串，栈底
    101.     }
    102. end
    104. -- io.read("*all")就是类似这种原理
    105. function addString (stack, s)
    106.     table.insert(stack, s)        -- 压栈
    107.     for i = table.getn(stack) - 1, 1, -1 do
    108.       if string.len(stack[i]) > string.len(stack[i+1]) then    --栈顶是否下一层长？
    109.         --栈顶没有比下一层长，则不与下一层合并
    110.         break
    111.       end
    112.       -- 栈顶比下一层长，要把栈顶合并到下一层
    113.       --删除栈顶，栈顶和下一层合并层更大的串，此时下一层边栈顶
    114.       stack[i] = stack[i] .. table.remove(stack)
    115.       --合成了新的栈顶之后，要再往下检查是否有更长的串，不然继续重复上面的合并
    116.     end
    117. end
    119. local s = newStack()
    120. for line in io.lines() do
    121.     addString(s, line .. "\n")
    122. end
    123. s = toString(s)
    125. ---------------table.concat---------------
    126. --底层是C实现，所以性能优异
    127. local t = {}
    128. for line in io.lines() do
    129.     table.insert(t, line)
    130. end
    131. s = table.concat(t, "\n") .. "\n"    -- 将数组t的全部元素以\n作为连接符，连接起来。
    132.                                                                   -- 最后一个元素尾部不会有连接符，下面的技巧完美解决
    133. table.insert(t, "")        --解决最后一个元素尾部没有换行符的问题。
    134. s = table.concat(t, "\n")