Lu系统扩展动态库LuSystem之字典

forcal

    字典（dict）是一个可直接存取的双向链表，可以存放若干任意的Lu数据。字典元素由“键－值”对组成，键只能是字符串，但值可以是任何Lu数据类型。
) v5 \4 v) E; T7 y  Y7 z2 u
    （1）新建字典

2. !!!using("sys");
   
3. : p  C& T$ u* h/ E- }. r9 u
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">: p  C& T$ u* h/ E- }. r9 u</span> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

用函数dict生成字典更为方便：

2. !!!using("sys");  u& |/ d6 q! R( |2 @: g
   
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">  u& |/ d6 q! R( |2 @: g</font><br /> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");& y* K  d0 f9 H% y3 W; [; G3 B$ g1 s# t
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<font class=\\"jammer\\">& y* K  d0 f9 H% y3 W; [; G3 B$ g1 s# t</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");7 z9 t2 A1 Z- M& ?
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<font class=\\"jammer\\">7 z9 t2 A1 Z- M& ?</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。

$ }. c' W& A' a, ~* f    （4）删除字典

( t, O% P: T2 m5 u8 Z: x! Y4 p    删除指定键－值对：a.dict_del["aa","abc"];

4 {3 g" X2 V+ K& T" I    清空字典：a.dict_clear();
. D9 W) Y* K' b5 O- U# x
    删除字典对象，但暂存在缓冲区：del[a];

7 w' t, T9 A: c5 ?' @/ I, z3 c0 X. |    立即彻底删除字典对象：delete[a];

    （5）字典反序

2. !!!using("sys");: x+ l5 L; ^4 M% P4 f
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<font class=\\"jammer\\">: x+ l5 L; ^4 M% P4 f</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

结果：

1. dict{aa : 1.2 , abc : luu}dict{abc : luu , aa : 1.2}

复制代码

（6）字典存取效率测试：在字典a中添加若干元素，元素的键通过变换字符串str的值得到，sum用于求所有元素的值的和。

2. !!!using("sys");
   
3. . @, _( V/ n& A* G0 v
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,
   
5. * K2 _# @4 y7 T! @$ z7 [9 P& m
6.   i=0, while{++i<=100, str[1]=i,$ O1 `) x, c# J5 m) Y  B
   
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}7 U' N2 U1 u. l, O3 ?* h; y6 ]
   
10.   },
    
11. 9 K0 A0 K; y) x8 K: l; M& }/ H
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},' B% l\\" y2 g. Q- X2 F* ?
    
14.   t0=clock(), sum=0,
    
15.   A5 A  ~# x- m* d0 r
16.   i=0, while{++i<=100, str[1]=i,7 `* F: Q/ m% M
    
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}
    
19. , f* V& L2 ^1 z' z
20.   },3 s% M5 n6 K( [9 B# T% a9 l
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\">. @, _( V/ n& A* G0 v</span> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<br /> <span style=\\"display:none\\">* K2 _# @4 y7 T! @$ z7 [9 P& m</span>   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">$ O1 `) x, c# J5 m) Y  B</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<font class=\\"jammer\\">7 U' N2 U1 u. l, O3 ?* h; y6 ]</font><br />   },<br /> <span style=\\"display:none\\">9 K0 A0 K; y) x8 K: l; M& }/ H</span>   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<font class=\\"jammer\\">' B% l\\" y2 g. Q- X2 F* ?</font><br />   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">  A5 A  ~# x- m* d0 r</span>   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">7 `* F: Q/ m% M</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<br /> <span style=\\"display:none\\">, f* V& L2 ^1 z' z</span>   },<font class=\\"jammer\\">3 s% M5 n6 K( [9 B# T% a9 l</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000
   . Y  j- u/ F% ]! w+ ]. ?- g2 c
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码