检查一个数是否是一个正整数

Question

是否有预定义的函数来检查一个数是否是一个正整数？

如

2.17 -> NO

3 -> YES

目前我在做这个：if number - int(number) = 0 then 'YES' else 'NO'

Answer 1

我不认为这是为一个直接function，你会写逻辑表达式。

您可以使用下面的任何两个人，都采取相同的时间内，一个使用mod功能其他用途int功能

data _NULL_; 
x=236893953323.1235433; 
if mod(x,1) = 0 then /**If you want to check the number is "positive" integer or not then use if mod(x,1) = 0 and x > 0 **/ 
put "Integer"; 
else put "Not Integer"; 
run; 

OR

data _null_ ; 
x=236893953323.1235433; 
    if x=int(x) then 
put "Integer"; 
else put "Not Integer"; 
run ; 

Answer 2

我喜欢我的功能：

如果（圆（数，0） ==数字然后'是'否''

Answer 3

可以使用int()功能比较：

data _null_ ; 
    do x=-5,1.4, 1.0, 2 ; 
    if x=abs(int(x)) then put "match" x= ; 
    else put "not match" x= ; 
    end ; 
run ; 

Answer 4

我建议以下改进柔韧的码。它检查整数以及符号是正数还是负数。我不知道有一个函数检查两者。

data _null_ ; 
    do x=-1.4, 1.0, 1.5, -2 ; 
    if x=int(x) and sign(x)=1 then put "Positive Integer: " x= ; 
    else put "NOT Positive Integer: " x= ; 
    end ; 
run ; 

结果：

NOT Positive Integer: x=-1.4 
Positive Integer: x=1 
NOT Positive Integer: x=1.5 
NOT Positive Integer: x=-2 

Answer 5

这里写你自己的实际功能的钙镁磷肥选项。您也可以在函数中使用其他任何解决方案。我喜欢添加'模糊'因素，因为这些是浮点数;所以如果你想让它成为一个模糊的整数（即0.1 + 0.1 + 0.1 + 0.1 + 0.1 + 0.1 + 0.1 + 0.1 + 0.1 + 0.1不会加起来为真实的1）否则使其为零。如果你不关心这一点，那就摆脱这个选择。

proc fcmp outlib=work.funcs.func; 
    function isInteger(numIn,fuzz); 
     isInt = (abs(numIn-int(numIn)) le fuzz) and numIn>0; 
     return(isInt); 
    endsub; 

quit; 

options cmplib=work.funcs; 
data have; 
    input x; 
    datalines; 
-1 
-2.17 
2.17 
3 
3.000000000000000000000000001 
;;;; 
run; 

data want; 
    set have; 
    isInt = isInteger(x,0); 
    isFuzzy = isInteger(x,1e-12); 
run;