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

forcal

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

    （1）新建字典

2. !!!using("sys");
   
3. ( t* v( x* x5 h3 o
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

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

2. !!!using("sys");
   
3. 4 d3 q/ |9 r' l7 [1 \( Q- x3 p+ i  D1 {7 l
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">4 d3 q/ |9 r' l7 [1 \( Q- x3 p+ i  D1 {7 l</span> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");
   
3. : i2 f# A5 b+ ~: Y& S, @
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<br /> <span style=\\"display:none\\">: i2 f# A5 b+ ~: Y& S, @</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");
   
3. ; d; f, b9 G+ N$ z( Z
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<br /> <span style=\\"display:none\\">; d; f, b9 G+ N$ z( Z</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。
, s% l  o; \' g4 E% @
0 i/ l8 N: o. c/ u2 x' b8 w    （4）删除字典

2 `& q6 s1 r4 ^    删除指定键－值对：a.dict_del["aa","abc"];

    清空字典：a.dict_clear();

# m2 {- J* t. |  K' j6 w; N    删除字典对象，但暂存在缓冲区：del[a];
3 v6 a' `+ i) p6 m* f
- Q( R, E) ?0 `3 }' C    立即彻底删除字典对象：delete[a];

    （5）字典反序

2. !!!using("sys");
   
3. . g* a( k! w' o; b! N
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<br /> <span style=\\"display:none\\">. g* a( k! w' o; b! N</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");% {/ F- s; V$ ~& t4 g' i
   
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,
   
5. / |0 V) `0 W, j! X1 L2 z% Y
6.   i=0, while{++i<=100, str[1]=i,
   
7. , n& `5 D  e! a% A6 n) v# h, L
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}
   
9. 8 P1 L  ]0 \, w9 W% O
10.   },
    
11. 1 ~- Z' g\\" }0 Z: H; r+ l
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},
    
13. 1 R# i' n0 k# H0 i. }' l7 v
14.   t0=clock(), sum=0,
    
15. % O6 S' N* q0 S8 M
16.   i=0, while{++i<=100, str[1]=i,
    
17. & ^7 q& @, m' l- @' j6 e- Z6 Z
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}; u8 ]6 D) b8 }$ R
    
20.   },7 |) g0 Y, Y$ w# S6 [
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">% {/ F- s; V$ ~& t4 g' i</font><br /> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<br /> <span style=\\"display:none\\">/ |0 V) `0 W, j! X1 L2 z% Y</span>   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">, n& `5 D  e! a% A6 n) v# h, L</span>     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<br /> <span style=\\"display:none\\">8 P1 L  ]0 \, w9 W% O</span>   },<br /> <span style=\\"display:none\\">1 ~- Z' g\\" }0 Z: H; r+ l</span>   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<br /> <span style=\\"display:none\\">1 R# i' n0 k# H0 i. }' l7 v</span>   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">% O6 S' N* q0 S8 M</span>   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">& ^7 q& @, m' l- @' j6 e- Z6 Z</span>     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<font class=\\"jammer\\">; u8 ]6 D) b8 }$ R</font><br />   },<font class=\\"jammer\\">7 |) g0 Y, Y$ w# S6 [</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000. x1 `3 W\" ~7 A- h4 q
   
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码