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

forcal

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

    （1）新建字典

2. !!!using("sys");2 W& |6 N9 _$ X8 G
   
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">2 W& |6 N9 _$ X8 G</font><br /> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");
   
3. / y. `2 M, d2 I( ]2 L
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

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

（2）得到字典元素

2. !!!using("sys");. N0 j# @+ Z\\" R9 T/ ^4 y
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<font class=\\"jammer\\">. N0 j# @+ Z\\" R9 T/ ^4 y</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");1 s& ?, |( U# \: G+ [
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<font class=\\"jammer\\">1 s& ?, |( U# \: G+ [</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。
0 y7 d5 j  f! O
* W* M/ e# y9 m    （4）删除字典
0 \  b; R' E9 X! S% c6 |4 ]
8 L" a: c( |, [5 d0 J* w* U    删除指定键－值对：a.dict_del["aa","abc"];
' e! h  r& o! L" x6 }$ C
' ^: G" ?: K% l4 u0 b    清空字典：a.dict_clear();

1 g' `4 R& x2 K    删除字典对象，但暂存在缓冲区：del[a];
$ e# T0 n; X$ e( A8 ?- T3 }: C" M2 v
; A4 s" c" x3 t    立即彻底删除字典对象：delete[a];

& D: X2 R- I% _    （5）字典反序

2. !!!using("sys");
   
3. ) o- `$ W& ~! Y( C; [2 q5 G
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<br /> <span style=\\"display:none\\">) o- `$ W& ~! Y( C; [2 q5 G</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. - o, m5 E. T) s3 v( o2 t
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,% z9 H2 q  O- L- @. J& N
   
6.   i=0, while{++i<=100, str[1]=i,; G+ K8 a( _$ Q' I- A* u+ {* a
   
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}: w3 {( n; J\\" d. G
   
10.   },( a2 `& ]: n0 C/ x5 F
    
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},
    
13. ; F0 g! t- s8 d
14.   t0=clock(), sum=0,) g; q$ C* H2 H; H+ @% W
    
16.   i=0, while{++i<=100, str[1]=i,( C2 X2 {1 j# Q1 B& r: ?: f
    
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}* Z' v! V. x5 q( [1 j. h6 @
    
20.   },
    
21. 8 _% X: r9 Z* T2 d. n) b
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\">- o, m5 E. T) s3 v( o2 t</span> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<font class=\\"jammer\\">% z9 H2 q  O- L- @. J& N</font><br />   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">; G+ K8 a( _$ Q' I- A* u+ {* a</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<font class=\\"jammer\\">: w3 {( n; J\\" d. G</font><br />   },<font class=\\"jammer\\">( a2 `& ]: n0 C/ x5 F</font><br />   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<br /> <span style=\\"display:none\\">; F0 g! t- s8 d</span>   t0=clock(), sum=0,<font class=\\"jammer\\">) g; q$ C* H2 H; H+ @% W</font><br />   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">( C2 X2 {1 j# Q1 B& r: ?: f</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<font class=\\"jammer\\">* Z' v! V. x5 q( [1 j. h6 @</font><br />   },<br /> <span style=\\"display:none\\">8 _% X: r9 Z* T2 d. n) b</span>   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=1550000002 H8 `: F  s0 o1 m6 K  Q
   
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码