|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
+ j! }( _0 t7 W6 i6 o2 P(number : integer)
$ N9 [8 u' R @, S: C- d: \is
5 v+ _9 \' a" s: t# D# y4 }8 jdo9 ` G; J+ t: i2 Y* b9 `! v
inspect number
6 E Q# P k$ Z# q) r) } when 1 then
: I# z0 E& L$ K9 K' Y" h0 Q' H print "not a prime number"
6 L+ S; S, q# Y2 z) U# M; Q- i& _" _ when 2,5,7,3 then 2 R+ B/ a+ o F" R
print "prime number"5 r6 h! w) I, N" b& p/ F
when 9,4 then ; R! q$ b0 D1 {5 j7 w; |
print "square number"6 t& |( U" {/ z, A& d4 h
else
; k6 c* f) }7 ~0 d9 e# m! k print "no special number";
+ X3 n# S0 X6 ^ print "or number greater than 9";% ^+ x; c2 X# ~& G: H
end;
# L1 `' s( ?- a4 J& v2 `end; |
|