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

forcal

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

2. !!!using("sys");
   
3. & x( t8 Q! y. b. C# @( ~; U) ^  }- E\\" r
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">& x( t8 Q! y. b. C# @( ~; U) ^  }- E\\" r</span> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");1 U- Y\\" K7 U5 x1 o
   
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">1 U- Y\\" K7 U5 x1 o</font><br /> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");  V\\" L, r! O0 c6 ~7 Z$ v
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<font class=\\"jammer\\">  V\\" L, r! O0 c6 ~7 Z$ v</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");3 b( |/ p, u  d+ |
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<font class=\\"jammer\\">3 b( |/ p, u  d+ |</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。
. T/ v, m& \) g
    （4）删除字典

8 W+ W% B4 I5 Q. D! H* ?$ G    删除指定键－值对：a.dict_del["aa","abc"];

; F6 K1 [9 N( L5 T' ], d3 d6 ]$ b    清空字典：a.dict_clear();

    删除字典对象，但暂存在缓冲区：del[a];
6 a& b4 n! r) U, K, a
) `$ ?5 `: [$ ]) H/ b; F; B    立即彻底删除字典对象：delete[a];
+ d% T$ j8 E' g+ Q" V
; c+ ~  W1 f4 @8 y) n5 X) {    （5）字典反序

2. !!!using("sys");& H0 P2 f' `5 e
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<font class=\\"jammer\\">& H0 P2 f' `5 e</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");' F+ d& K& N* M9 x4 D7 e
   
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,9 b$ x9 I/ Y* O\\" W6 n+ z: y8 U
   
6.   i=0, while{++i<=100, str[1]=i,
   
7. $ B6 a2 x$ ~- s/ i, T
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}
   
9. 0 e; d: j+ _+ Q) n# B
10.   },, r' a: M% ]$ k$ V& f1 l. u
    
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},3 v6 n% U9 O& S$ }; F9 @
    
14.   t0=clock(), sum=0,
    
15. 1 t2 {: D, r9 I9 W
16.   i=0, while{++i<=100, str[1]=i,
    
17. ; m  O, U- E* D4 p& c0 X& E1 `
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}: b' [3 x. Q6 l/ S
    
20.   },4 B\\" l; n, _, `% U
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">' F+ d& K& N* M9 x4 D7 e</font><br /> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<font class=\\"jammer\\">9 b$ x9 I/ Y* O\\" W6 n+ z: y8 U</font><br />   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">$ B6 a2 x$ ~- s/ i, T</span>     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<br /> <span style=\\"display:none\\">0 e; d: j+ _+ Q) n# B</span>   },<font class=\\"jammer\\">, r' a: M% ]$ k$ V& f1 l. u</font><br />   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<font class=\\"jammer\\">3 v6 n% U9 O& S$ }; F9 @</font><br />   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">1 t2 {: D, r9 I9 W</span>   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">; m  O, U- E* D4 p& c0 X& E1 `</span>     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<font class=\\"jammer\\">: b' [3 x. Q6 l/ S</font><br />   },<font class=\\"jammer\\">4 B\\" l; n, _, `% U</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000
   \" ]) h1 Z! _9 ~& ?3 S/ `0 C: w3 h
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码