|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:) ^- u& a5 G6 ?% P8 e# |
(number : integer)* l8 b2 u& R. A: z( V; q
is3 ] E/ A/ m% y, {
do
* I% I0 l, n! y" n, `$ W inspect number
1 i( x% S% [' T& X3 J% \ when 1 then
7 D- | P/ k' b( B+ |$ @ print "not a prime number"
3 F8 D, R) c' O when 2,5,7,3 then
. I7 v: c5 G9 p4 G print "prime number"
7 O7 F7 ~- u) d- _6 ?$ }3 v when 9,4 then
* F% T: j6 _& j2 D. k: [ print "square number"
9 I% F) {) U8 l0 X. |; L else
% b; H1 x4 R$ M" U1 O print "no special number";( c! ^/ O4 A! x5 B$ N$ Z7 d$ {
print "or number greater than 9";
( O3 P" ?: _8 G2 b* \3 b, j end;! c4 ]. f; @9 |- H* U* D; Y6 h
end; |
|