稀疏表、双端队列、格式化输出、表和循环表的格式化输出

[php]view plaincopyprint? 
   
 a={}  
 for i=1,10 do  
     a[i]={}  
     for j=0,10 do  
         if(i%2==0) then  
             a[i][j]=0  
         end  
     end  
 end  
   
 print(a[9][10])  
 print(a[10][10])  
 print()  
   
 --双端队列  
   
 List={}  
   
 function List.new()  
     return {first = 0,last = -1}  
 end  
   
 function List.pushleft(list,value)  
     local first= list.first-1  
     list[first] = value  
     list.first= first  
 end  
   
 function List.pushright(list,value)  
     local last = list.last+1  
     list[last]= value  
     list.last=last  
 end  
   
 function 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 res  
 end  
   
 function 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 res  
 end  
   
 function 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])  
     end  
 end  
   
 mylist=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 {""}  
 end  
   
   
 function 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")  
     end  
 end  
   
 serialize(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)  
   end  
 end  
   
 function 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))  
     end  
 end  
   
 a = {x=1, y=2; {3,4,5}}  
 a[2] = a   -- 循环表  
 a.z = a[1]    -- 共享子表  
   
 save('a',a)  

运行结果：

[php]view plaincopyprint? 
   
 nil  
 0  
   
 00  
 12  
 34  
 56  
   
 123  
 "112233"  
 {  
     a = 11,  
     c = 333,  
     haha = "www",  
 }  
 a = {}  
 a[1] = {}  
 a[1][1] = 3  
 a[1][2] = 4  
 a[1][3] = 5  
 a[2] = a    circle  
 a["y"] = 2  
 a["x"] = 1  
 a["z"] = a[1]   circle  