|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:' Y# G2 B2 D& _* ^/ l# K
(number : integer)- h- l2 ~* A/ X* Q; q& U2 g
is- }+ p, N: f: s
do6 f ?% f7 y& L# {# q% q
inspect number
3 X% ]* u/ c; |: z) i( N when 1 then . s8 ^- m3 O* F' T1 d$ W* e
print "not a prime number"
, O* h3 r1 I* r7 f6 n+ p9 [& V! d when 2,5,7,3 then * w. n0 O$ X7 |* X) @! T) b
print "prime number"& r3 v9 F( Q* H: b: u0 [1 H
when 9,4 then
/ t1 i1 k1 C3 s2 E$ @6 k print "square number"7 }& l2 x& n5 Q
else7 Q8 u% k8 y; L" D4 ]: }$ k0 F
print "no special number";# {. b4 i; D5 P2 p5 }; F
print "or number greater than 9";
3 d" R/ \; T6 l/ p0 u# ~, J, [ end;, F6 F( ~5 f8 q/ y0 f
end; |
|