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

forcal

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

    （1）新建字典

2. !!!using("sys");
   
3.   j9 C- a7 z1 e. W; V# l6 o
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">  j9 C- a7 z1 e. W; V# l6 o</span> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");
   
3. 4 z4 o8 ^' e' U6 s+ {0 l. h
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">4 z4 o8 ^' e' U6 s+ {0 l. h</span> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");3 `# a( P# \% u9 {\\" ~( Q
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<font class=\\"jammer\\">3 `# a( P# \% u9 {\\" ~( Q</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");3 N6 I& y& d; n9 n% a+ @
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<font class=\\"jammer\\">3 N6 I& y& d; n9 n% a+ @</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。
3 ]( D" p& H& S1 a/ {
    （4）删除字典
+ g% [" \' P# q
    删除指定键－值对：a.dict_del["aa","abc"];
8 |$ {! r6 I0 v
    清空字典：a.dict_clear();
7 {5 E# V8 k) K2 \$ n$ F
/ I) m7 n' t( G, I/ d: Q% D    删除字典对象，但暂存在缓冲区：del[a];

; s4 U) H( G3 Y+ o+ ]7 y    立即彻底删除字典对象：delete[a];

: O: U, c5 D6 x6 K3 e: g    （5）字典反序

2. !!!using("sys");' S& h+ c- l4 n6 f/ T
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<font class=\\"jammer\\">' S& h+ c- l4 n6 f/ T</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");2 h( x; k: \- w0 x! A+ _& ^9 \
   
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,\\" G) }! i% D+ r5 k5 l# A
   
6.   i=0, while{++i<=100, str[1]=i,- g4 d( t0 l$ [0 x. P6 O
   
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}
   
9. ) O8 X4 U  \* ?3 {! c
10.   },
    
11. ( ]9 {6 L: t  y! `9 }+ N( I: i, ^! A
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},4 n5 @* D+ ]: H
    
14.   t0=clock(), sum=0,
    
15. & ]/ K2 X$ b1 }8 a% h% |0 u* |
16.   i=0, while{++i<=100, str[1]=i,
    
17. 0 v' s7 t' i2 B
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}3 s+ x6 M3 \: w! J/ M. {
    
20.   },9 X6 f\\" ~\\" ?  ?- M' ]1 m* i6 X
    
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">2 h( x; k: \- w0 x! A+ _& ^9 \</font><br /> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<font class=\\"jammer\\">\\" G) }! i% D+ r5 k5 l# A</font><br />   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">- g4 d( t0 l$ [0 x. P6 O</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<br /> <span style=\\"display:none\\">) O8 X4 U  \* ?3 {! c</span>   },<br /> <span style=\\"display:none\\">( ]9 {6 L: t  y! `9 }+ N( I: i, ^! A</span>   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<font class=\\"jammer\\">4 n5 @* D+ ]: H</font><br />   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">& ]/ K2 X$ b1 }8 a% h% |0 u* |</span>   i=0, while{++i<=100, str[1]=i,<br /> <span style=\\"display:none\\">0 v' s7 t' i2 B</span>     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<font class=\\"jammer\\">3 s+ x6 M3 \: w! J/ M. {</font><br />   },<font class=\\"jammer\\">9 X6 f\\" ~\\" ?  ?- M' ]1 m* i6 X</font><br />   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000
   2 ~' Y; l& b/ `) N4 n# R8 `9 C
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码