|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
2 K6 m3 F3 Q! O- R7 F1 E(number : integer). r( I/ ]) B$ ]5 t
is
" ~, T' q- Q* w( D2 @do9 Z: u9 R# m8 v. c" `" O
inspect number/ U. J) {$ q" a4 j4 B. ^+ A. O5 x
when 1 then 5 `% a7 L6 x5 A, I5 D
print "not a prime number"
4 O9 U# J7 Y6 P when 2,5,7,3 then
$ _( V% I/ Y/ l+ a print "prime number"
8 U; t0 ]2 P: E# ~% D+ \ when 9,4 then 7 z/ G- Z! `, [( o! ^/ Y" p
print "square number"( r: b) Q% r. W# v( F2 {
else
# J. R9 ^+ w# G9 G; d+ V print "no special number";
8 ` c' d# a% o9 C- A print "or number greater than 9";
; T& G$ ]: x' x$ N) p8 u end;
, f4 c; Y. `( s& E+ [end; |
|