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

forcal

    字典（dict）是一个可直接存取的双向链表，可以存放若干任意的Lu数据。字典元素由“键－值”对组成，键只能是字符串，但值可以是任何Lu数据类型。
, Z. ^$ D5 G$ V( {+ ~$ X$ {
' ?6 k3 c- y: [0 Q& l    （1）新建字典

2. !!!using("sys");
   
3. / b& C7 I* w& d
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">/ b& C7 I* w& d</span> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");
   
3. # j1 U$ @+ {+ b& W
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\"># j1 U$ @+ {+ b& W</span> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");
   
3. % s3 K! {% M$ Y# C\\" A
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<br /> <span style=\\"display:none\\">% s3 K! {% M$ Y# C\\" A</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");
   
3. ; B  l: O  s6 Y) y7 x  R
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<br /> <span style=\\"display:none\\">; B  l: O  s6 Y) y7 x  R</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

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

    （4）删除字典
! l1 v) M$ S' J$ L, J( [! y
- S9 X; w! }3 u9 f1 `4 G1 c& N    删除指定键－值对：a.dict_del["aa","abc"];
0 i' C! ?$ l8 a% N4 `8 o' [3 ^
* k: a2 ?1 f% F    清空字典：a.dict_clear();
: ]. E+ s- G4 A" ~
4 M! ^) Y  E: Q  X2 D, `$ F. o    删除字典对象，但暂存在缓冲区：del[a];
% b9 G7 e, X% y4 B
    立即彻底删除字典对象：delete[a];

+ D) D/ ^5 ]! E    （5）字典反序

2. !!!using("sys");
   
3. + E2 W, Z% i4 v$ e+ z+ S+ s% }
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<br /> <span style=\\"display:none\\">+ E2 W, Z% i4 v$ e+ z+ S+ s% }</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");+ [5 K\\" R5 J4 R2 P5 T\\" o; h7 ^
   
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,& T0 }, G% c! ~4 f
   
6.   i=0, while{++i<=100, str[1]=i,
   
7. + o9 Z2 j\\" @  s, v: A* N
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}
   
9. ) S6 c( g, D\\" v/ N/ A
10.   },
    
11. 2 I1 @1 W8 J4 E6 v
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},
    
13. ' d( ^  A. O8 i1 Q& A1 A# T3 m
14.   t0=clock(), sum=0,$ b# k; C2 b' Z7 }. w7 L0 k) o
    
16.   i=0, while{++i<=100, str[1]=i,
    
17. & m! a# G\\" p! Z) g% t0 n
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}# l- g# _8 w( e5 a' x! f
    
20.   },6 p; l  G% K: g1 |
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">+ [5 K\\" R5 J4 R2 P5 T\\" o; h7 ^</font><br /> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<font class=\\"jammer\\">& T0 }, G% c! ~4 f</font><br />   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">+ o9 Z2 j\\" @  s, v: A* N</span>     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<br /> <span style=\\"display:none\\">) S6 c( g, D\\" v/ N/ A</span>   },<br /> <span style=\\"display:none\\">2 I1 @1 W8 J4 E6 v</span>   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<br /> <span style=\\"display:none\\">' d( ^  A. O8 i1 Q& A1 A# T3 m</span>   t0=clock(), sum=0,<font class=\\"jammer\\">$ b# k; C2 b' Z7 }. w7 L0 k) o</font><br />   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">& m! a# G\\" p! Z) g% t0 n</span>     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<font class=\\"jammer\\"># l- g# _8 w( e5 a' x! f</font><br />   },<font class=\\"jammer\\">6 p; l  G% K: g1 |</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000/ @. b* U' `$ N! Y4 L! c\" ?; s
   
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码