IsNthBinRoot ( Number ; Factor )

Calculates whether a number is a binary positional number, i.e., 001 is the first binary position, 010 (2) is the second binary position, 100 (4) is the third binary position, etc..

Average rating: 4.6 (23 votes) Log in to vote

Tim Griffith - Show more from this author

Sample input:

IsNthBinRoot ( 256 ; "" )
IsNthBinRoot ( 11 ; "" )

Sample output:

9,
0

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

// IsNthBinRoot ( Number ; Factor ) Factor is initially an empty set ""
// Calculates whether a number is a binary positional number,
// i.e., 001 is the first binary position, 010 (2) is the second binary position,
// 100 (4) is the third binary position, etc..
// All numbers that do not represent a binary position return zero ('0').
//
// DEPENDENCY FUNCTION: 'IsNthRootNumToBin (decNumber ; binary )'
// This dependent function is comment included at the end of this function
// for your convenience.




Let ( [ 
	~flag = 
		Case ( PatternCount ( IsNthBinRootNumToBin ( Number ; "" ) ; "1" ) > 1 ; 1 ;
				PatternCount ( IsNthBinRootNumToBin ( Number ; "" ) ; "1" ) = 1 ; 0 ; 1 ) ;
	~n = Case ( not IsEmpty ( Factor ) ; Factor ; 1 ) ] ;
	If ( Number = 1 ; 1 ; If ( ~flag ≠ 1  and Number ≠ 1; If ( 2^~n = Number ; ~n + 1 ; IsNthBinRoot ( Number ; ~n + 1 ) ) ; ~n = "NA" ) )
)


/* Dependant Function…

// IsNthBinRootNumToBin ( decNumber ; binary ) (start 'binary' as an empty set, "" )
// Converts a number to binary number

Case ( 

decNumber = 0 and IsEmpty( binary ) ; 0 ; 

decNumber = 0 ; binary ;

Let ( 
	[
		~result = Mod ( decNumber ; 2 ) & binary ;
		decNumber = Int ( decNumber / 2 ) 
	] ;

IsNthBinRootNumToBin (decNumber; ~result ) )

)

*/

IsNthBinRoot ( Number ; Factor ) Factor is initially an empty set "". Calculates whether a number is a binary positional number, i.e., 001 is the first binary position, 010 (2) is the second binary position, 100 (4) is the third binary position, etc.. All numbers that do not represent a binary position return zero ('0'). DEPENDENCY FUNCTION: 'IsNthRootNumToBin (decNumber ; binary )' This dependent function is comment included at the end of this function for your convenience.

Comments

		Erich, Germany Aug 15, 2012
What about: let( [ lb=if(Number;lg(Number);1,3) ]; if(lb = int(lb);1+lb;0) ) It's much shorter.

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

IsNthBinRoot ( Number ; Factor )

Comments

Support this website.

Support this website.