inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:. C- w& ]1 S" F
(number : integer)( m/ s4 u& @) T, W0 a3 P1 m
is" D7 c8 M' E a4 |! P ]
do + ]' w% i4 q9 ]; w/ j inspect number' }! T7 E* |0 J8 U5 k8 j
when 1 then ) }& T6 p9 p/ u% K5 O9 u7 F
print "not a prime number"5 k' H0 d6 o; r" B& V
when 2,5,7,3 then ' T; a9 |( S9 a- u! |4 y
print "prime number" 6 Y2 [; u6 ]3 j! p when 9,4 then 5 N# I: q' d6 k- n- u2 `2 P. e print "square number" " n. o, @" d! ?; n* ?# N b else 5 `1 U4 t6 w8 G, J% j1 {5 G0 k print "no special number"; : a1 Y5 c) N$ ~# D* [" \" }3 D print "or number greater than 9"; 1 s: z+ K( m/ I" ?) U4 a end;) X& V2 k: M, w+ C' Z. ]( c% v6 ]
end;