|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
! {, @ E+ B( K$ o7 t. W(number : integer)
9 V- p/ h" I' s( o k2 Z3 Kis8 q4 m1 F9 Y0 Y: @0 ~, u2 C5 ^% k/ T
do
$ g- M5 N' Y8 t" q" p6 C1 x inspect number
, a7 r, U, Q6 ~! i9 B when 1 then % T5 [$ @# e0 o: i
print "not a prime number"
9 V' p8 Q8 H; y1 j7 |& d" | when 2,5,7,3 then 1 b. H. X! q) X. l
print "prime number"' e2 s# W7 i7 L+ m0 d8 r
when 9,4 then
0 L& h& _* r) t5 w: Q print "square number"
& J2 h0 Y4 x k( n. K else
9 D: h5 y* p0 X print "no special number";, {# s/ E/ u5 X6 o; Y* e
print "or number greater than 9";" \9 K0 S3 m7 B7 h. L' F
end;3 [5 k5 m# R# B( X, e
end; |
|