|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:8 ]5 H, ~. O6 ~* O. w* a
(number : integer)+ p8 f3 J' r; a; S; d5 h
is5 p/ e7 `: z3 o& o
do9 W/ ?" L, ~5 `. u& ]& Q
inspect number
+ X; ?' ]' B- f8 W1 _ when 1 then + k3 E$ Y. @1 `$ l0 U7 l2 A
print "not a prime number": `3 D* P. t! W5 s3 {0 ?1 P
when 2,5,7,3 then
4 g ]1 B# U5 \$ {; ]' r print "prime number"# u7 c) ~% d+ s3 l: b1 s: G
when 9,4 then $ I2 Q+ E2 V: d+ }% l5 c& ?/ d
print "square number"' V- W' e7 s8 a: \" C
else5 G% i4 b+ H) S4 j6 W+ I
print "no special number";! N! t' `( B0 F7 d
print "or number greater than 9";9 P9 l5 W0 m0 Y( t) _
end;
# U1 v; x* a. ?0 Lend; |
|