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

forcal

    字典（dict）是一个可直接存取的双向链表，可以存放若干任意的Lu数据。字典元素由“键－值”对组成，键只能是字符串，但值可以是任何Lu数据类型。
8 m0 Y: }6 ^& j  j! O" q
5 R' L0 ]+ p, B1 |    （1）新建字典

2. !!!using("sys");* `9 n: |. c0 \2 V6 ~) T
   
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">* `9 n: |. c0 \2 V6 ~) T</font><br /> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");- p9 Z$ }8 x' V
   
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">- p9 Z$ }8 x' V</font><br /> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");0 i# m' U4 O# @+ u9 V
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<font class=\\"jammer\\">0 i# m' U4 O# @+ u9 V</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");
   
3. ; E' i6 a1 N, _& L# 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\\">; E' i6 a1 N, _& L# K</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

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

    （4）删除字典

- e+ D% @2 q: M8 e$ P  T+ ^    删除指定键－值对：a.dict_del["aa","abc"];
9 ]: {% Q) I/ q5 a3 v
    清空字典：a.dict_clear();

& W% B% _9 a/ Q4 y5 c' `    删除字典对象，但暂存在缓冲区：del[a];
3 B) @1 ~9 h, l9 P; w
3 N  W# u) i% ~3 p/ r    立即彻底删除字典对象：delete[a];
1 I8 k- @1 U7 n4 n: J) A+ D
    （5）字典反序

2. !!!using("sys");
   
3. / r! O6 y/ |0 b4 A- U& ^+ E
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<br /> <span style=\\"display:none\\">/ r! O6 y/ |0 b4 A- U& ^+ E</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");
   
3. 1 l2 H! H4 K( [( {6 ~/ {& r
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,
   
5. 7 ]9 m% j: l( J5 c. A
6.   i=0, while{++i<=100, str[1]=i,' @+ Q7 K: X  f/ @- [
   
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}2 Q% n7 i6 c# M6 [4 S0 T; \/ ~8 ~
   
10.   },+ Q4 }7 W9 |1 `0 n9 }$ U! ~
    
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},7 y' I% B% S. [% u& A/ J
    
14.   t0=clock(), sum=0,1 w+ q5 [: S8 u1 b* y. v$ V
    
16.   i=0, while{++i<=100, str[1]=i,
    
17. 7 q) {# v/ U0 w, k
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}
    
19. ) Q( Z3 R8 k  K6 ]% K4 k
20.   },
    
21. 1 N# @; P3 }; _4 H: e
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\">1 l2 H! H4 K( [( {6 ~/ {& r</span> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<br /> <span style=\\"display:none\\">7 ]9 m% j: l( J5 c. A</span>   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">' @+ Q7 K: X  f/ @- [</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<font class=\\"jammer\\">2 Q% n7 i6 c# M6 [4 S0 T; \/ ~8 ~</font><br />   },<font class=\\"jammer\\">+ Q4 }7 W9 |1 `0 n9 }$ U! ~</font><br />   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<font class=\\"jammer\\">7 y' I% B% S. [% u& A/ J</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">1 w+ q5 [: S8 u1 b* y. v$ V</font><br />   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">7 q) {# v/ U0 w, k</span>     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<br /> <span style=\\"display:none\\">) Q( Z3 R8 k  K6 ]% K4 k</span>   },<br /> <span style=\\"display:none\\">1 N# @; P3 }; _4 H: e</span>   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000& V$ L7 E! Y. W8 y. Z8 Z) H/ w4 L
   
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码