isPowerOfTwo
Posted: Wed Nov 09, 2005 10:48 pm
Code updated For 5.20+
Maybe someone finds any use in the following procedure (found somewhere
on the net).
The procedure returns TRUE if x.l is a power of 2 and FALSE if it
is not.
Maybe someone finds any use in the following procedure (found somewhere
on the net).
The procedure returns TRUE if x.l is a power of 2 and FALSE if it
is not.
Code: Select all
Procedure isPowerOfTwo(x)
If ((x & -x) = x)
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure
Debug isPowerOfTwo(64)
Debug isPowerOfTwo(6)