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

forcal

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

4 Y. D2 E2 F+ i2 b. A    （1）新建字典

2. !!!using("sys");
   
3. 8 r6 ~5 J4 `; e7 B8 W& ^. I4 J
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">8 r6 ~5 J4 `; e7 B8 W& ^. I4 J</span> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");2 W0 V6 _+ Z  @, g: Y0 n
   
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">2 W0 V6 _+ Z  @, g: Y0 n</font><br /> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");4 b2 K4 c9 \; D' I+ j
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<font class=\\"jammer\\">4 b2 K4 c9 \; D' I+ j</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");. `/ o) |) T3 V* K7 Y  S4 r$ L1 [
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<font class=\\"jammer\\">. `/ o) |) T3 V* K7 Y  S4 r$ L1 [</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。
6 g" c. ^/ a/ f. D# {
6 m, a! w. C& U: ~; K" d. O0 |: t    （4）删除字典

    删除指定键－值对：a.dict_del["aa","abc"];

6 N9 J+ T$ v  P5 k, G+ \9 E    清空字典：a.dict_clear();

& E- u- P" n7 P! k3 q' W/ `    删除字典对象，但暂存在缓冲区：del[a];

: [( S5 |( o  x" K    立即彻底删除字典对象：delete[a];
  W$ v3 }( g: m9 r. B
% R& U! u+ ^, A1 J( ]    （5）字典反序

2. !!!using("sys");% C& v2 Z  L* x( [0 K
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<font class=\\"jammer\\">% C& v2 Z  L* x( [0 K</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");1 F1 C8 Y0 |# z# G5 b
   
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,& Q+ R% h8 R' o
   
6.   i=0, while{++i<=100, str[1]=i,. P! q, v0 c) E$ S
   
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}7 N4 O' Q! Y5 u5 a; V
   
10.   },
    
11. 8 O$ j6 u; {7 T
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},* }( e, h3 C- V/ L* ?
    
14.   t0=clock(), sum=0,' R/ |# n( A& Z! W) h( c
    
16.   i=0, while{++i<=100, str[1]=i,& k: B7 n8 I, g# C# ?' ]
    
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}
    
19. , U8 A5 P7 b' r4 N/ _2 V' L/ @$ w
20.   },. N. U0 s' S( b: v9 j2 |. o3 o9 F
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">1 F1 C8 Y0 |# z# G5 b</font><br /> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<font class=\\"jammer\\">& Q+ R% h8 R' o</font><br />   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">. P! q, v0 c) E$ S</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<font class=\\"jammer\\">7 N4 O' Q! Y5 u5 a; V</font><br />   },<br /> <span style=\\"display:none\\">8 O$ j6 u; {7 T</span>   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<font class=\\"jammer\\">* }( e, h3 C- V/ L* ?</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">' R/ |# n( A& Z! W) h( c</font><br />   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">& k: B7 n8 I, g# C# ?' ]</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<br /> <span style=\\"display:none\\">, U8 A5 P7 b' r4 N/ _2 V' L/ @$ w</span>   },<font class=\\"jammer\\">. N. U0 s' S( b: v9 j2 |. o3 o9 F</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000
   2 u2 G\" |1 p3 ]/ m\" L0 U
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码