Lu系统扩展动态库LuSystem之结构

forcal

详细参考：http://www.forcal.net/sysm/lu1/luhtm/lusystem.htm

    结构（struct）是一个线性表，可以存放若干任意的Lu数据。结构成员必须以#开头。结构成员的存储顺序与其定义顺序不一定相同。

    （1）新建结构：相当于结构定义

2. !!!using("sys");
   
3. ) }9 j4 R0 l; F
4. new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

!!!using("sys");<br /> <span style=\\"display:none\\">) }9 j4 R0 l; F</span> new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

用函数struct生成结构更为方便：

2. !!!using("sys");( J+ }. w1 C. }1 _( p) h\\" x& X
   
4. struct[#num, #姓名 : "luuu", #年龄].o[];        //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

!!!using("sys");<font class=\\"jammer\\">( J+ }. w1 C. }1 _( p) h\\" x& X</font><br /> struct[#num, #姓名 : "luuu", #年龄].o[];        //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

（2）复制结构：相当于生成结构对象

2. !!!using("sys");
   
3. - x6 n. K+ c; |, x( A* T- k
4. main(:a)= a=struct[#num, #姓名 : "luuu", #年龄], o[a,"\r\n",copy(a),"\r\n",copy(a, #num:22, #年龄:33),"\r\n"];

!!!using("sys");<br /> <span style=\\"display:none\\">- x6 n. K+ c; |, x( A* T- k</span> main(:a)= a=struct[#num, #姓名 : "luuu", #年龄], o[a,"\r\n",copy(a),"\r\n",copy(a, #num:22, #年龄:33),"\r\n"];

结果：

1. struct{#num : nil , #姓名 : luuu , #年龄 : nil}9 {7 y4 ?/ v: ]& z' @% h
   
2. struct{#num : nil , #姓名 : luuu , #年龄 : nil}( H% Y! m5 y* v+ |9 K% B1 K
   
3. struct{#num : 22 , #姓名 : luuu , #年龄 : 33}

复制代码

（3）设置结构：批量对结构成员赋值，注意次序是任意的，并且可设置部分成员或全部成员

2. !!!using("sys");
   
3. ; [\\" b. ]3 ~8 F3 [) }$ e
4. main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

!!!using("sys");<br /> <span style=\\"display:none\\">; [\\" b. ]3 ~8 F3 [) }$ e</span> main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

结果：

1. struct{#num : nil , #姓名 : nil , #年龄 : nil}
   : N9 T# w' b' }7 ~$ t: Z
2. struct{#num : 22 , #姓名 : nil , #年龄 : 33}

复制代码

（4）结构成员单独赋值，获取结构成员的值

2. !!!using("sys");) E- [  ^% I9 I1 i/ j
   
4. main(:a)= a=struct[#num, #姓名, #年龄], a.#姓名="王强", a.#年龄=33, a.#num=22, o[a,"\r\n",a.#姓名,"\r\n",a.#年龄,"\r\n"];

!!!using("sys");<font class=\\"jammer\\">) E- [  ^% I9 I1 i/ j</font><br /> main(:a)= a=struct[#num, #姓名, #年龄], a.#姓名="王强", a.#年龄=33, a.#num=22, o[a,"\r\n",a.#姓名,"\r\n",a.#年龄,"\r\n"];

结果：

1. struct{#num : 22 , #姓名 : 王强 , #年龄 : 33}- s3 b, T: D( I- L& |
   
2. 王强3 V/ |. @/ k3 t7 z2 Y
   
3. 33

复制代码

（5）结构嵌套

2. !!!using("sys");
   
3. 4 Q4 q6 g2 ]* @: b4 h2 t- h& c6 J7 r5 b0 a
4. main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],
   
5. / y3 i2 J8 }0 n: Y
6.   a.#班级.#num=88,
   
7. \\" ~: [! g1 a2 J- ^
8.   a.#班级.#姓名="王强",9 f\\" }8 \) q8 @
   
10.   a.#班级.#年龄=33,5 ^0 K0 s2 }, U0 c
    
12.   o[a,"\r\n",a.#num,"\r\n",a.#班级,"\r\n",a.#班级.#num,"\r\n",a.#班级.#姓名,"\r\n",a.#班级.#年龄,"\r\n"];

!!!using("sys");<br /> <span style=\\"display:none\\">4 Q4 q6 g2 ]* @: b4 h2 t- h& c6 J7 r5 b0 a</span> main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],<br /> <span style=\\"display:none\\">/ y3 i2 J8 }0 n: Y</span>   a.#班级.#num=88,<br /> <span style=\\"display:none\\">\\" ~: [! g1 a2 J- ^</span>   a.#班级.#姓名="王强",<font class=\\"jammer\\">9 f\\" }8 \) q8 @</font><br />   a.#班级.#年龄=33,<font class=\\"jammer\\">5 ^0 K0 s2 }, U0 c</font><br />   o[a,"\r\n",a.#num,"\r\n",a.#班级,"\r\n",a.#班级.#num,"\r\n",a.#班级.#姓名,"\r\n",a.#班级.#年龄,"\r\n"];

结果：

1. struct{#num : 22 , #班级 : struct[...]}/ C( p6 j, `8 l' x* m
   
2. 22
   # x7 ^- l% S% p$ @\" ^9 A
3. struct{#num : 88 , #姓名 : 王强 , #年龄 : 33}
   2 X4 [# G% L. r5 m! n5 D
4. 88( m1 a) \7 d  J# B- [
   
5. 王强\" ^2 @. ?. s  g$ [9 X9 t+ E
   
6. 33

复制代码

（6）效率测试

2. !!!using("sys");* }. q/ y7 H& @- @1 q1 ^
   
4. main(:a,i,t0,sum)=! P5 y5 Z; y; R# h
   
6.   a=struct{8 J. C2 X! `0 n; {. \1 \! |
   
8.     #January,
   
9. 3 Z4 U4 Z: [' d  A
10.     #February,9 A. f- k+ b# Z1 c6 D- M\\" F
    
12.     #March,
    
13. 9 c; w  T7 m) E% z
14.     #April,
    
15. ( G- O1 O\\" K  n\\" D
16.     #May,( @& K- C* V9 o6 s4 F. W) R7 o
    
18.     #June,
    
19. 8 j( _9 e\\" i$ u% z7 j
20.     #July,2 X, v5 e! m; r$ u$ |
    
22.     #August,
    
23. ; h( Z% ~7 |! r; L
24.     #September,
    
25. 4 G6 q+ A( w\\" N
26.     #October,; f' U4 O$ }\\" }+ y: w, H
    
28.     #November,
    
29. + |0 s7 C( R' }4 c
30.     #December$ S/ p  Q8 c  {. T( c: f# v1 c  Z) J
    
32.   },' D$ S+ Z. s; H/ ~7 w
    
34.   t0=clock(), sum=0,
    
35. 8 _# O8 |$ G- r7 ^! U7 ^7 D0 N
36.   i=0, while{++i<=100000,
    
37. 5 b, N( ?\\" ^% }3 _% _- s4 w
38.     a.#January=1,: y0 x7 C/ |! P
    
40.     a.#February=2,
    
41. - n4 V! g: x% Z3 e- R6 ]' K
42.     a.#March=3,9 h+ [4 I\\" y1 ^7 C( _- G
    
44.     a.#April=4,
    
45. 7 U4 a, s1 }( O$ _$ i+ `4 e$ M- {& O
46.     a.#May=5,
    
47. . h* k% I  Y) N0 n' t' o! l. S+ i
48.     a.#June=6,
    
49. , R( `9 t* `% C% e9 N+ p/ b
50.     a.#July=7,
    
51. . h& b# H% p. K1 l. o4 J
52.     a.#August=8,- d; p! h; u7 o6 f3 I! X( _
    
54.     a.#September=9,
    
55. , r5 N# m  k- T( Q/ M3 ?( ]
56.     a.#October=10,8 M( [, e8 ^. G% K\\" h
    
58.     a.#November=11,/ ], K* \  a9 N+ D7 o! c
    
60.     a.#December=12,
    
61. ' s, X  W) H7 w9 a% u7 C( U, P
62.     sum=sum+a.#January+a.#February+a.#March+a.#April+a.#May+a.#June+a.#July+a.#August+a.#September+a.#October+a.#November+a.#December
    
63. / \\\" |% C3 A( ?
64.   },; d4 E\\" T  j/ Z7 R1 ^/ ?$ f: L% x
    
66.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">* }. q/ y7 H& @- @1 q1 ^</font><br /> main(:a,i,t0,sum)=<font class=\\"jammer\\">! P5 y5 Z; y; R# h</font><br />   a=struct{<font class=\\"jammer\\">8 J. C2 X! `0 n; {. \1 \! |</font><br />     #January,<br /> <span style=\\"display:none\\">3 Z4 U4 Z: [' d  A</span>     #February,<font class=\\"jammer\\">9 A. f- k+ b# Z1 c6 D- M\\" F</font><br />     #March,<br /> <span style=\\"display:none\\">9 c; w  T7 m) E% z</span>     #April,<br /> <span style=\\"display:none\\">( G- O1 O\\" K  n\\" D</span>     #May,<font class=\\"jammer\\">( @& K- C* V9 o6 s4 F. W) R7 o</font><br />     #June,<br /> <span style=\\"display:none\\">8 j( _9 e\\" i$ u% z7 j</span>     #July,<font class=\\"jammer\\">2 X, v5 e! m; r$ u$ |</font><br />     #August,<br /> <span style=\\"display:none\\">; h( Z% ~7 |! r; L</span>     #September,<br /> <span style=\\"display:none\\">4 G6 q+ A( w\\" N</span>     #October,<font class=\\"jammer\\">; f' U4 O$ }\\" }+ y: w, H</font><br />     #November,<br /> <span style=\\"display:none\\">+ |0 s7 C( R' }4 c</span>     #December<font class=\\"jammer\\">$ S/ p  Q8 c  {. T( c: f# v1 c  Z) J</font><br />   },<font class=\\"jammer\\">' D$ S+ Z. s; H/ ~7 w</font><br />   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">8 _# O8 |$ G- r7 ^! U7 ^7 D0 N</span>   i=0, while{++i<=100000,<br /> <span style=\\"display:none\\">5 b, N( ?\\" ^% }3 _% _- s4 w</span>     a.#January=1,<font class=\\"jammer\\">: y0 x7 C/ |! P</font><br />     a.#February=2,<br /> <span style=\\"display:none\\">- n4 V! g: x% Z3 e- R6 ]' K</span>     a.#March=3,<font class=\\"jammer\\">9 h+ [4 I\\" y1 ^7 C( _- G</font><br />     a.#April=4,<br /> <span style=\\"display:none\\">7 U4 a, s1 }( O$ _$ i+ `4 e$ M- {& O</span>     a.#May=5,<br /> <span style=\\"display:none\\">. h* k% I  Y) N0 n' t' o! l. S+ i</span>     a.#June=6,<br /> <span style=\\"display:none\\">, R( `9 t* `% C% e9 N+ p/ b</span>     a.#July=7,<br /> <span style=\\"display:none\\">. h& b# H% p. K1 l. o4 J</span>     a.#August=8,<font class=\\"jammer\\">- d; p! h; u7 o6 f3 I! X( _</font><br />     a.#September=9,<br /> <span style=\\"display:none\\">, r5 N# m  k- T( Q/ M3 ?( ]</span>     a.#October=10,<font class=\\"jammer\\">8 M( [, e8 ^. G% K\\" h</font><br />     a.#November=11,<font class=\\"jammer\\">/ ], K* \  a9 N+ D7 o! c</font><br />     a.#December=12,<br /> <span style=\\"display:none\\">' s, X  W) H7 w9 a% u7 C( U, P</span>     sum=sum+a.#January+a.#February+a.#March+a.#April+a.#May+a.#June+a.#July+a.#August+a.#September+a.#October+a.#November+a.#December<br /> <span style=\\"display:none\\">/ \\\" |% C3 A( ?</span>   },<font class=\\"jammer\\">; d4 E\\" T  j/ Z7 R1 ^/ ?$ f: L% x</font><br />   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.75秒。sum=7800000

复制代码

Matlab2009a代码：

1. a=struct('January',1,'Febrary',2,'March',3,'April',4,'May',5,'June',6,'July',7,'August',8,'September',9,'October',10,'November',11,'December',12);. Q- d+ m3 f* U- Q/ y$ g
   
2. tic; % w7 H3 t\" V9 t+ v  B
   
3. sum=0;
   * O0 q1 ?, f7 \3 D/ x9 a
4. for i=1:100000
   4 f. s$ F& L! f, I2 q+ ]5 j
5.     a.January=1;4 a2 ]% f6 ]! Y
   
6.     a.February=2;6 r' P4 Y0 |5 O7 C0 f! g9 J$ a
   
7.     a.March=3;3 Q, t! s! g& A0 o. I
   
8.     a.April=4;  Y% H+ j* y: T5 j) Y. D
   
9.     a.May=5;\" q* v  U) E8 _; @/ s- G
   
10.     a.June=6;
    # Q+ s1 M, ?( n* d\" W
11.     a.July=7;8 u8 }1 v. k% I/ Z( P
    
12.     a.August=8;* |! Y- w5 ?\" V% M- X) L
    
13.     a.September=9;8 o+ Z) {3 I4 L' t% Q6 X! x4 b- j
    
14.     a.October=10;\" `& R% K: Y/ b# m' K
    
15.     a.November=11;6 v5 l6 M9 L6 A! {- o6 R: N
    
16.     a.December=12;
    ; R7 O: \; j# v9 A\" E' I, M
17.     sum=sum+a.January+a.February+a.March+a.April+a.May+a.June+a.July+a.August+a.September+a.October+a.November+a.December;
    0 g( ^* j$ m. b) w: s
18. end% |2 m1 J9 \5 x! p' D# M
    
19. toc,6 }* x' G7 H/ n
    
20. sum

复制代码

结果：

1. Elapsed time is 3.275743 seconds.
   3 ^' b  ?! ~9 K# E6 o) v
2. 
   ! G4 P\" K\" r6 ]6 g. ~\" w0 m
3. sum =
   & Q2 x& D; w3 ]. `( n
4. . ?. ~9 S9 D# V
   
5. 7800000

复制代码

forcal

测试2：
+ ^. t0 p9 ^2 X# T5 T
Lu代码：

2. !!!using("sys");
   
3. ) E& N0 L) E. l/ i
4. main(:a,i,t0,sum)=  {* `. z( R; j- ?\\" _7 {: r  L  E
   
6.   t0=clock(), sum=0,4 x9 J; Q0 b( X
   
8.   i=0, while{++i<=100000,5 l5 l* V5 r6 X6 p
   
10.     a=struct{#January:1, #February:2, #March:3, #April:4, #May:5, #June:6, #July:7, #August:8, #September:9, #October:10, #November:11, #December:12},- @5 P- b0 b- ~5 l
    
12.     sum=sum+a.#January+a.#February+a.#March+a.#April+a.#May+a.#June+a.#July+a.#August+a.#September+a.#October+a.#November+a.#December
    
13. 3 M- F, }* Z+ B2 t( m9 x2 i( a9 p
14.   },
    
15. ( }2 l& L7 C0 g: H! D% O: Z
16.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\">) E& N0 L) E. l/ i</span> main(:a,i,t0,sum)=<font class=\\"jammer\\">  {* `. z( R; j- ?\\" _7 {: r  L  E</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">4 x9 J; Q0 b( X</font><br />   i=0, while{++i<=100000,<font class=\\"jammer\\">5 l5 l* V5 r6 X6 p</font><br />     a=struct{#January:1, #February:2, #March:3, #April:4, #May:5, #June:6, #July:7, #August:8, #September:9, #October:10, #November:11, #December:12},<font class=\\"jammer\\">- @5 P- b0 b- ~5 l</font><br />     sum=sum+a.#January+a.#February+a.#March+a.#April+a.#May+a.#June+a.#July+a.#August+a.#September+a.#October+a.#November+a.#December<br /> <span style=\\"display:none\\">3 M- F, }* Z+ B2 t( m9 x2 i( a9 p</span>   },<br /> <span style=\\"display:none\\">( }2 l& L7 C0 g: H! D% O: Z</span>   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.53100000000000003秒。sum=7800000

复制代码

Matlab2009a代码：

1. tic;
   ) }0 d2 V. N/ H+ P7 O5 J, U
2. sum=0;( o4 n2 g8 M2 k+ @4 C
   
3. for i=1:100000' v0 m/ f\" H3 _7 a' `, c: ]0 w
   
4.     a=struct('January',1,'February',2,'March',3,'April',4,'May',5,'June',6,'July',7,'August',8,'September',9,'October',10,'November',11,'December',12);
   0 p0 ]( f  |* o' o+ G9 d  }' ~
5.     sum=sum+a.January+a.February+a.March+a.April+a.May+a.June+a.July+a.August+a.September+a.October+a.November+a.December;' w' G, T4 j* b- U
   
6. end; ]) p/ \2 }, L8 V, B/ H, E\" `* z% E3 R; Q( n
   
7. toc,
   $ q4 @# e7 F$ S; c\" j1 V
8. sum

复制代码

结果：

1. Elapsed time is 6.390977 seconds.3 F& X; m* T+ O! u+ R( a6 H
   
2. 
   7 r4 j0 e\" |; n, C& |0 M. d6 v
3. sum =
   : h2 E4 v2 b2 t+ c4 n6 Y6 [7 d
4. $ R2 |9 M, [  X$ P1 K1 L, F/ z
   
5.      7800000

复制代码