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

forcal

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

    （1）新建字典

2. !!!using("sys");
   
3. \\" u\\" o, u0 J+ n4 c\\" K! g! c' h
4. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<br /> <span style=\\"display:none\\">\\" u\\" o, u0 J+ n4 c\\" K! g! c' h</span> new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

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

2. !!!using("sys");* j1 r0 M\\" n9 e% G2 f
   
4. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

!!!using("sys");<font class=\\"jammer\\">* j1 r0 M\\" n9 e% G2 f</font><br /> dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

（2）得到字典元素

2. !!!using("sys");
   
3. 0 t- Z4 w- K9 z6 T8 y$ P) C$ C2 @
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

!!!using("sys");<br /> <span style=\\"display:none\\">0 t- Z4 w- K9 z6 T8 y$ P) C$ C2 @</span> main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

（3）增加字典元素

2. !!!using("sys");) U5 n9 q\\" l: {3 f4 V) {: U. j2 h
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

!!!using("sys");<font class=\\"jammer\\">) U5 n9 q\\" l: {3 f4 V) {: U. j2 h</font><br /> main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

说明：当往字典中增加元素时，若已存在该键，则进行更新。
1 l) L3 U4 w" v( H9 ^: H
: H  h. h) g4 ]$ Q    （4）删除字典
7 Q% _3 u% r" M# T4 n
    删除指定键－值对：a.dict_del["aa","abc"];
, d# B" b. b- w$ U' u8 I
    清空字典：a.dict_clear();

    删除字典对象，但暂存在缓冲区：del[a];
6 {# f! l& c/ ~1 t/ m
    立即彻底删除字典对象：delete[a];

    （5）字典反序

2. !!!using("sys");1 S' `( p1 X\\" R' v
   
4. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

!!!using("sys");<font class=\\"jammer\\">1 S' `( p1 X\\" R' v</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");4 x2 ^) o9 X% s
   
4. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,
   
5. 7 v2 E! q# D& u/ {8 Y0 Q9 g( r3 E
6.   i=0, while{++i<=100, str[1]=i,& \& g2 V, p6 V- ^8 I9 `
   
8.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}* V, o) l# J. v, F# U8 ^- I' u! k
   
10.   },5 q6 n  G  S+ j% O1 d
    
12.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},9 s. A6 {, M1 f
    
14.   t0=clock(), sum=0,4 n, P4 F7 G4 _8 ^
    
16.   i=0, while{++i<=100, str[1]=i,' `6 r1 o8 y1 W; v\\" }8 z1 j
    
18.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}
    
19. 2 t1 }. a) J! y: |
20.   },
    
21. 6 M0 a9 Z. f* M' D2 y- W# E' Q$ K
22.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">4 x2 ^) o9 X% s</font><br /> main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,<br /> <span style=\\"display:none\\">7 v2 E! q# D& u/ {8 Y0 Q9 g( r3 E</span>   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">& \& g2 V, p6 V- ^8 I9 `</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}<font class=\\"jammer\\">* V, o) l# J. v, F# U8 ^- I' u! k</font><br />   },<font class=\\"jammer\\">5 q6 n  G  S+ j% O1 d</font><br />   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},<font class=\\"jammer\\">9 s. A6 {, M1 f</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">4 n, P4 F7 G4 _8 ^</font><br />   i=0, while{++i<=100, str[1]=i,<font class=\\"jammer\\">' `6 r1 o8 y1 W; v\\" }8 z1 j</font><br />     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}<br /> <span style=\\"display:none\\">2 t1 }. a) J! y: |</span>   },<br /> <span style=\\"display:none\\">6 M0 a9 Z. f* M' D2 y- W# E' Q$ K</span>   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

结果：

1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000
   # l- w+ O2 h5 L! k( [4 o3 ~
2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码