Lua编程示例（三）：稀疏表、双端队列、格式化输出、表和循环表的格式化输出

技术  /  管理员 发布于 5年前   209

a={}for i=1,10 do a[i]={} for j=0,10 do if(i%2==0) then  a[i][j]=0 end endendprint(a[9][10])print(a[10][10])print()--双端队列List={}function List.new() return {first = 0,last = -1}endfunction List.pushleft(list,value) local first= list.first-1 list[first] = value list.first= firstendfunction List.pushright(list,value) local last = list.last+1 list[last]= value list.last=lastendfunction List.popleft(list) local first=list.first if(first>list.last) then error("list is empty") end local res= list[first] list[first]=nil list.first=list.first+1 return resendfunction List.popright(list) local last = list.last if last<first then error("the list is empty") end local res = list[last] list[last]= nil list.last= list.last-1 return resendfunction List.display(list) if(list.first>list.last) then error("the list is empty",2) end for i=list.first ,list.last do print(list[i]) endendmylist=List.new()List.pushleft(mylist,12)List.pushleft(mylist,"00")List.pushright(mylist,34)List.pushright(mylist,56)List.display(mylist)print()function newStack () return {""}endfunction serialize(o) if type(o) == "number" then io.write(o) elseif type(o) == "string" then  --不要手动加入引号，否则会有边际效应 io.write(string.format("%q",o)) elseif type(o) == "table" then io.write("{\n") for i,v in pairs(o) do  io.write("  "..i.." = ")  serialize(v)  io.write(",\n") end io.write("}\n") endendserialize(123)print()serialize("112233")print()tab = { a=11,haha="www" ,c=333}serialize(tab)function basicSerialize (o) if type(o) == "number" then  return tostring(o) else  return string.format("%q", o) endendfunction save (name, value, saved) saved = saved or {}  -- 参数未传入的初始化 io.write(name, " = ") if type(value) == "number" or type(value) == "string" then io.write(basicSerialize(value), "\n") elseif type(value) == "table" then if saved[value] then  io.write(saved[value], "\tcircle\n") else  saved[value] = name  io.write("{}\n")  for k,v in pairs(value) do   local fieldname = string.format("%s[%s]", name,    basicSerialize(k))   save(fieldname, v, saved)  end end else error("cannot save a " .. type(value)) endenda = {x=1, y=2; {3,4,5}}a[2] = a  -- 循环表a.z = a[1]  -- 共享子表save('a',a)

运行结果：

nil000123456123"112233"{  a = 11,  c = 333,  haha = "www",}a = {}a[1] = {}a[1][1] = 3a[1][2] = 4a[1][3] = 5a[2] = a circlea["y"] = 2a["x"] = 1a["z"] = a[1] circle