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

forcal

    字典（dict）是一个可直接存取的双向链表，可以存放若干任意的Lu数据。字典元素由“键－值”对组成，键只能是字符串，但值可以是任何Lu数据类型。
9 N5 p4 @' b* _0 A: P7 V1 @
    （1）新建字典

2. !!!using("sys");$ |& [; I' H1 H  a\\" q
   
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

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

2. !!!using("sys");
   
3. ( i! @5 ~: H# ]2 q( y
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">( i! @5 ~: H# ]2 q( y</span> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");
   
3. 3 t3 ?. Z- t+ u8 g
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<br /> <span style=\\"display:none\\">3 t3 ?. Z- t+ u8 g</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");
   
3. , t1 l2 I) c0 G  `6 K
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<br /> <span style=\\"display:none\\">, t1 l2 I) c0 G  `6 K</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。
+ L0 |- Q1 d  R+ G: \4 B7 Z
8 J4 a: g0 B+ q* x, `: C    （4）删除字典

8 A& I9 b/ ^6 }! g    删除指定键－值对：a.dict_del["aa","abc"];
5 u! U- d: |" v. M. k
    清空字典：a.dict_clear();
3 E5 _* k" ?$ W' t% E4 e# x
# O. r% L2 P- U. X- p    删除字典对象，但暂存在缓冲区：del[a];

2 ]. S. o1 ?7 b5 ]. M* K    立即彻底删除字典对象：delete[a];

    （5）字典反序

2. !!!using("sys");5 E, X\\" Q2 D' r7 h+ ?; S! |4 h
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<font class=\\"jammer\\">5 E, X\\" Q2 D' r7 h+ ?; S! |4 h</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");- ?5 s. X2 c4 C5 D% Q! k8 ]
   
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,' z0 f) O: g7 H3 ]
   
6.   i=0, while{++i<=100, str[1]=i,7 G. `# p* o/ g\\" A( f\\" |1 ~
   
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}! E$ p( w# H' w/ J6 R: K
   
10.   },3 l- n) v2 b, q7 {, w' g  C' [
    
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},
    
13. , N# p7 [  M/ N; [; r( D6 I0 }4 W( ^
14.   t0=clock(), sum=0,
    
15. , A1 x8 ?# Q6 J
16.   i=0, while{++i<=100, str[1]=i,2 w& s/ t% W7 M
    
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}
    
19. \\" Y5 f& q9 v2 V
20.   },3 \8 M0 n. s1 K* M: q
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">- ?5 s. X2 c4 C5 D% Q! k8 ]</font><br /> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<font class=\\"jammer\\">' z0 f) O: g7 H3 ]</font><br />   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">7 G. `# p* o/ g\\" A( f\\" |1 ~</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<font class=\\"jammer\\">! E$ p( w# H' w/ J6 R: K</font><br />   },<font class=\\"jammer\\">3 l- n) v2 b, q7 {, w' g  C' [</font><br />   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<br /> <span style=\\"display:none\\">, N# p7 [  M/ N; [; r( D6 I0 }4 W( ^</span>   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">, A1 x8 ?# Q6 J</span>   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">2 w& s/ t% W7 M</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<br /> <span style=\\"display:none\\">\\" Y5 f& q9 v2 V</span>   },<font class=\\"jammer\\">3 \8 M0 n. s1 K* M: q</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000
     O& X& x7 h) O
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码