数学建模社区-数学中国

标题: Lu系统扩展动态库LuSystem之字典 [打印本页]

作者: forcal 时间: 2011-11-20 20:28
标题: Lu系统扩展动态库LuSystem之字典
字典（dict）是一个可直接存取的双向链表，可以存放若干任意的Lu数据。字典元素由“键－值”对组成，键只能是字符串，但值可以是任何Lu数据类型。

（1）新建字典

!!!using("sys");
) }6 r5 E' [" @, T: J; `- F$ c
new[dict, "aa":1.2, "abc":"luuu"].o[]; //用函数new生成字典，有2组初始化数据。函数o用于输出字典。

复制代码

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

!!!using("sys");
% P, ]' ]. X. k5 ^% c0 q# h; C( r' @
dict["aa":1.2, "abc":"luuu"].o[]; //用函数dict生成字典，有2组初始化数据。函数o用于输出字典。

复制代码

（2）得到字典元素

!!!using("sys");4 c8 U9 q: g4 n# U2 B1 X0 F2 ^
main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];

复制代码

（3）增加字典元素

!!!using("sys");# H3 k8 }. k5 x$ \
main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];

复制代码

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

（4）删除字典

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

清空字典：a.dict_clear();

删除字典对象，但暂存在缓冲区：del[a];

立即彻底删除字典对象：delete[a];

（5）字典反序

!!!using("sys");
& K) m2 |3 _" `5 S* J
main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a], o[a.dict_reverse()];

复制代码

结果：

dict{aa : 1.2 , abc : luu}dict{abc : luu , aa : 1.2}

复制代码

（6）字典存取效率测试：在字典a中添加若干元素，元素的键通过变换字符串str的值得到，sum用于求所有元素的值的和。

!!!using("sys");8 e1 x! P e9 k: J6 |* P2 F0 K
main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0,) N+ F4 ~" ~# h* J. @
i=0, while{++i<=100, str[1]=i,
& b7 S; h/ D" I3 A6 l V
j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}
8 X4 Y r+ g& ]/ Z
},
; i$ e# m% t4 i# L% j) ?5 _
o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},
. ?3 k8 n5 Q' Y- P7 |% |4 Z
t0=clock(), sum=0,8 p9 Q" Y* B4 P8 B o) r
i=0, while{++i<=100, str[1]=i,
& Z+ }% r: p+ f. h
j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}4 x" r9 t* ~* E. O D
},3 y+ R! C. [& D1 P% S2 L' p2 \
o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};

复制代码

结果：

创建字典耗时0.89000000000000001秒。共100000个元素。sum=155000000
4 `: y2 t1 q+ |5 q* ]( x
查询字典耗时9.4e-002秒。共100000个元素。sum=155000000

复制代码

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)