|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
; H7 Y5 [/ w- E& z3 d! j(number : integer)% H# T& I7 p: T
is; E( q4 _# U" J
do
3 l" F9 C6 ^: a- P L! N' A inspect number1 Z1 S9 }7 [# l' ^6 c, o: A7 b4 k
when 1 then
: T) }; k2 J' q* h) b: } print "not a prime number"; ^/ F4 g/ o' [/ A. G3 B
when 2,5,7,3 then * Z5 h! e9 u' q" G$ v
print "prime number"8 H7 g8 v8 L$ F% i, v& C
when 9,4 then
* q* D" _7 b7 V; k print "square number"# X; D; B! I; G4 ^' Y6 G& V F
else0 u* P- u/ Q) O
print "no special number";; ^' Y: L; P0 A @" C7 u
print "or number greater than 9";6 m5 u% S+ i& m7 z0 A4 q
end;
, J" ^: d( d5 U( u8 _- g8 send; |
|