数学建模社区-数学中国

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

作者: forcal    时间: 2011-11-20 20:28
标题: Lu系统扩展动态库LuSystem之字典
    字典(dict)是一个可直接存取的双向链表,可以存放若干任意的Lu数据。字典元素由“键-值”对组成,键只能是字符串,但值可以是任何Lu数据类型。
# b  h& x8 Q" S7 R, X" r
  g  e4 V2 x& E! O' k% f    (1)新建字典
  1. !!!using("sys");
    ) `$ Y1 i7 s& L! Y# g$ ?. {% P8 j
  2. new[dict, "aa":1.2, "abc":"luuu"].o[];    //用函数new生成字典,有2组初始化数据。函数o用于输出字典。
复制代码
用函数dict生成字典更为方便:
  1. !!!using("sys");: O* e( u9 H! O
  2. dict["aa":1.2, "abc":"luuu"].o[];         //用函数dict生成字典,有2组初始化数据。函数o用于输出字典。
复制代码
(2)得到字典元素
  1. !!!using("sys");
    6 L9 q8 P' i& y3 P
  2. main(:a)= a=dict["aa":1.2, "abc":"luu"], o[a."aa", a."abc"];
复制代码
(3)增加字典元素
  1. !!!using("sys");
    7 K+ I6 E2 a& N
  2. main(:a)= a=dict["aa":1.2, "abc":"luu"], a."cc"=a."abc"+"88", o[a];
复制代码
说明:当往字典中增加元素时,若已存在该键,则进行更新。
) }( P0 {- d1 n. W0 ?$ c, o2 L$ G9 |. U. ]
    (4)删除字典
: S, I  Y0 T" _4 t
" F# A0 t1 }1 F7 K: C, h    删除指定键-值对:a.dict_del["aa","abc"];
% d" W; f( Q+ E. H0 ]
" `6 A! Y1 O, R" j+ f8 F    清空字典:a.dict_clear();
; r4 l% t: H. l- c" {9 v
" C! z  n- i! H& V1 O    删除字典对象,但暂存在缓冲区:del[a];; }/ d, T/ i+ \3 i+ }

5 Q9 f5 n- \4 W$ H    立即彻底删除字典对象:delete[a];
- j% g: V5 S8 e8 t: I& r9 t# P/ A( }: \/ l1 @& }
    (5)字典反序
  1. !!!using("sys");
    + N0 {) K' O$ X! C
  2. 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用于求所有元素的值的和。
  1. !!!using("sys");* c' T! z: z& E3 F  a# ?8 z
  2. main(:a,i,j,str,t0,sum)= t0=clock(), a=dict[], str="aaaa", sum=0," e9 l# _  Q  |4 I  B( @6 Y7 O
  3.   i=0, while{++i<=100, str[1]=i,5 c" F* o5 ?/ F/ M% u
  4.     j=1000, while{j<2000, str[2]=j, sum=sum+i+j, a.str=i+j, j++}
    0 B0 W1 D9 k  o) B
  5.   },
    ! x* {( K- j3 U7 n0 y7 {
  6.   o{"\r\n创建字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum},
    * ?7 D" W: @; O! a4 M& U$ X$ `+ Z
  7.   t0=clock(), sum=0,
    / O5 ~" L1 p+ J+ O
  8.   i=0, while{++i<=100, str[1]=i,
    % z) p6 p8 W6 N. ~# F! r$ v
  9.     j=1000, while{j<2000, str[2]=j, sum=sum+a.str, j++}+ t0 D" ~" B$ O$ n2 O* \! ]
  10.   },
    2 L- C% }4 {! }  B6 u
  11.   o{"\r\n查询字典耗时", [clock()-t0]/1000., "秒。共", len(a), "个元素。sum=", sum, "\r\n"};
复制代码
结果:
  1. 创建字典耗时0.89000000000000001秒。共100000个元素。sum=1550000001 c% g6 |; U: _3 b" q5 f
  2. 查询字典耗时9.4e-002秒。共100000个元素。sum=155000000
复制代码





欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5