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

forcal

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

, x9 G2 D) b0 e& P5 x1 D8 W    （1）新建字典

2. !!!using("sys");
   
3. % _6 o# q. d  a; Q7 @- A
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">% _6 o# q. d  a; Q7 @- A</span> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");3 P* _  ]; s0 |7 ~6 J
   
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">3 P* _  ]; s0 |7 ~6 J</font><br /> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");
   
3. 0 i1 a. ^! R* w7 `! d' L\\" m( N
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<br /> <span style=\\"display:none\\">0 i1 a. ^! R* w7 `! d' L\\" m( N</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");
   
3. 5 f% j- w7 i) u) V7 q
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<br /> <span style=\\"display:none\\">5 f% j- w7 i) u) V7 q</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

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

$ @1 j) P4 G3 g- s) y    （4）删除字典
5 @3 H5 k$ E3 P) V  j0 j3 n8 ]
4 }4 U4 e. s. h1 g  P7 W    删除指定键－值对：a.dict_del["aa","abc"];
1 Z9 E' ?1 c  A7 E7 b% c
    清空字典：a.dict_clear();

    删除字典对象，但暂存在缓冲区：del[a];
9 K7 d+ E! n; N( Y8 U% h3 }
2 ?0 B: {7 J" C    立即彻底删除字典对象：delete[a];

    （5）字典反序

2. !!!using("sys");8 o, N, e! ~6 q\\" ~3 L
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<font class=\\"jammer\\">8 o, N, e! ~6 q\\" ~3 L</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");
   
3. 4 Z; G! [$ u( D# e  P
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,
   
5.   p8 u3 M2 z4 p' A6 J/ f9 r
6.   i=0, while{++i<=100, str[1]=i,
   
7. ; X4 ]0 D\\" R9 {/ L\\" p
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}- z; E  n. |# |+ o1 ^; o1 j% l
   
10.   },* N! v3 V/ k: Z0 B. q6 O/ z' O
    
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},$ B- f' D& `; p% j: G  b
    
14.   t0=clock(), sum=0,
    
15. ) W% a1 C' v, R+ d3 Z( o( u
16.   i=0, while{++i<=100, str[1]=i,. ^2 D( S) _' W
    
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}\\" N\\" }5 d# d( C/ A: w
    
20.   },6 u8 w6 `: b/ y- g, d8 Z
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\">4 Z; G! [$ u( D# e  P</span> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<br /> <span style=\\"display:none\\">  p8 u3 M2 z4 p' A6 J/ f9 r</span>   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">; X4 ]0 D\\" R9 {/ L\\" p</span>     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<font class=\\"jammer\\">- z; E  n. |# |+ o1 ^; o1 j% l</font><br />   },<font class=\\"jammer\\">* N! v3 V/ k: Z0 B. q6 O/ z' O</font><br />   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<font class=\\"jammer\\">$ B- f' D& `; p% j: G  b</font><br />   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">) W% a1 C' v, R+ d3 Z( o( u</span>   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">. ^2 D( S) _' W</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<font class=\\"jammer\\">\\" N\\" }5 d# d( C/ A: w</font><br />   },<font class=\\"jammer\\">6 u8 w6 `: b/ y- g, d8 Z</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000! @( v& z0 U  K
   
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码