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

forcal

    字典（dict）是一个可直接存取的双向链表，可以存放若干任意的Lu数据。字典元素由“键－值”对组成，键只能是字符串，但值可以是任何Lu数据类型。

    （1）新建字典

2. !!!using("sys");5 V  Y3 e0 B  W6 m& s6 v
   
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">5 V  Y3 e0 B  W6 m& s6 v</font><br /> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");* H( }9 d& q8 S4 T  O9 o
   
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">* H( }9 d& q8 S4 T  O9 o</font><br /> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");
   
3. / |5 Y) z& M! [7 q9 I
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<br /> <span style=\\"display:none\\">/ |5 Y) z& M! [7 q9 I</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");# \- K' [: H, ^7 Y2 r
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<font class=\\"jammer\\"># \- K' [: H, ^7 Y2 r</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。
1 [2 ?, K# K' S- \! ~
    （4）删除字典

5 p$ k' K9 \% j, P) ~7 J9 m- p6 c    删除指定键－值对：a.dict_del["aa","abc"];
6 x4 F8 M+ r# ?$ y% }+ t
    清空字典：a.dict_clear();

    删除字典对象，但暂存在缓冲区：del[a];
& D5 c" O1 X# O) ~" Y
    立即彻底删除字典对象：delete[a];
# m2 s& D% o5 V, Z7 _* [
    （5）字典反序

2. !!!using("sys");, }! r' @$ {: d: w  _6 T
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<font class=\\"jammer\\">, }! r' @$ {: d: w  _6 T</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");\\" f5 u0 L! J1 ?' L7 h* A& [  G
   
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,
   
5. & O% @- @' c8 ], ^1 n8 L\\" L' A
6.   i=0, while{++i<=100, str[1]=i,
   
7. ) D! ]4 g& i/ Z  ~/ j3 e
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}
   
9. 0 H( O. W2 }1 X, I! w5 P1 J
10.   },. M1 a; q2 k% l/ g& B# P
    
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},% ~+ m9 _3 @0 I; v/ c+ a
    
14.   t0=clock(), sum=0,
    
15. . \3 w- f; G3 S/ H1 [
16.   i=0, while{++i<=100, str[1]=i,# h, g' [; U& {- ?
    
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}! K; r) ?) Q4 p- f
    
20.   },6 f+ o+ U3 g3 R\\" ~1 E
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">\\" f5 u0 L! J1 ?' L7 h* A& [  G</font><br /> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<br /> <span style=\\"display:none\\">& O% @- @' c8 ], ^1 n8 L\\" L' A</span>   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">) D! ]4 g& i/ Z  ~/ j3 e</span>     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<br /> <span style=\\"display:none\\">0 H( O. W2 }1 X, I! w5 P1 J</span>   },<font class=\\"jammer\\">. M1 a; q2 k% l/ g& B# P</font><br />   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<font class=\\"jammer\\">% ~+ m9 _3 @0 I; v/ c+ a</font><br />   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">. \3 w- f; G3 S/ H1 [</span>   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\"># h, g' [; U& {- ?</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<font class=\\"jammer\\">! K; r) ?) Q4 p- f</font><br />   },<font class=\\"jammer\\">6 f+ o+ U3 g3 R\\" ~1 E</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000, p' I$ T; ?) D8 M' P\" p2 c
   
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码