bittest( ) 函数示例

下例使用 bittest( ) 函数来确定一系列整数是否为偶数。如果是偶数，函数 iseven 返回“真”(.t.)；否则返回“假”(.f.)。

clear
? '2 even? '
?? iseven(2) && 偶数，返回 .t.
? '3 even? '
?? iseven(3) && 非偶数，返回 .f.
? '0 even? '
?? iseven(0) && 偶数，返回 .t.
? '-13 even? '
?? iseven(-13) && 非偶数，返回 .f.

function iseven
parameter ninteger
return not bittest(ninteger, 0)