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

forcal

    字典（dict）是一个可直接存取的双向链表，可以存放若干任意的Lu数据。字典元素由“键－值”对组成，键只能是字符串，但值可以是任何Lu数据类型。
( S0 v. J9 o+ u5 c& o9 w& B
    （1）新建字典

2. !!!using("sys");
   
3. : h% j9 _5 u3 R- c. B9 \3 u* V$ Q
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">: h% j9 _5 u3 R- c. B9 \3 u* V$ Q</span> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");/ V6 j2 W2 ]8 ?9 E
   
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">/ V6 j2 W2 ]8 ?9 E</font><br /> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");3 v6 B0 @6 a( \* V. L
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<font class=\\"jammer\\">3 v6 B0 @6 a( \* V. L</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");$ c9 y  E% C9 ^0 `
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<font class=\\"jammer\\">$ c9 y  E% C9 ^0 `</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。
0 H8 K# D- N5 V# f1 l
: x% `9 w) \( Q; p) k8 |3 }  o    （4）删除字典
# q3 G1 z  ^1 |% V; ^) A
- X  `: C. n6 U# G' D0 V$ c    删除指定键－值对：a.dict_del["aa","abc"];
0 w- C& F  z8 @8 A6 g
    清空字典：a.dict_clear();
- N; b) O: L8 R1 d' n' g% V
+ z0 Q3 U% c: b    删除字典对象，但暂存在缓冲区：del[a];

/ x3 g; T0 W, ]  A    立即彻底删除字典对象：delete[a];

7 i3 Y* k+ k/ p0 r  q0 o9 Z    （5）字典反序

2. !!!using("sys");
   
3. % ]9 n; F# o/ Y% Z7 n1 B' ]
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<br /> <span style=\\"display:none\\">% ]9 n; F# o/ Y% Z7 n1 B' ]</span> 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");! `; i* O0 H( X( ~* _( p
   
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,
   
5. ( f. o8 {4 H/ c& @! w. d! U
6.   i=0, while{++i<=100, str[1]=i,5 e1 _/ b$ J* ~
   
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}
   
9. 8 X/ X. {& A# R0 N* I
10.   },. u* B( B% z, o, _, ~# M
    
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},' M1 r! p# O+ v1 Q# V
    
14.   t0=clock(), sum=0,) ^% m4 ?# z! ?9 K# A
    
16.   i=0, while{++i<=100, str[1]=i,$ \# I1 p3 [3 F1 H. a9 @( \% D
    
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}
    
19. ' g* k. b2 j. ?0 {$ I3 ]) v' W\\" U9 C
20.   },. y5 P) ]/ _$ y' p& A
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">! `; i* O0 H( X( ~* _( p</font><br /> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<br /> <span style=\\"display:none\\">( f. o8 {4 H/ c& @! w. d! U</span>   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">5 e1 _/ b$ J* ~</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<br /> <span style=\\"display:none\\">8 X/ X. {& A# R0 N* I</span>   },<font class=\\"jammer\\">. u* B( B% z, o, _, ~# M</font><br />   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<font class=\\"jammer\\">' M1 r! p# O+ v1 Q# V</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">) ^% m4 ?# z! ?9 K# A</font><br />   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">$ \# I1 p3 [3 F1 H. a9 @( \% D</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<br /> <span style=\\"display:none\\">' g* k. b2 j. ?0 {$ I3 ]) v' W\\" U9 C</span>   },<font class=\\"jammer\\">. y5 P) ]/ _$ y' p& A</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000
   ) f  }- r, v4 I* z9 M
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码