NextBinPattern

The next binary pattern

Average rating: 4.2 (25 votes) Log in to vote

Erich Schmidt - Show more from this author

Sample input:

NextBinPattern(44)
NextBinPattern(48)
NextBinPattern(63)

Sample output:

49
65
95

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

//
// Name: NextBinPattern(decimal)
// 31.08.2015 Version 1.0
// Author: Erich Schmidt, erich.schmidt@t-online.de 

// The function returns the next higher number whose binary form contains as many 1 as the binary form of the parameter  "decimal"
// Examples:  
// ------------
// NextBinPattern(7) returns 11, NextBinPattern(11) returns 13  and so on.

// The Parameter must be an integer  >= 0, in case of 0 the function returns 0.

// Requires other CF: ConvertNumber()


Let (
[
   bin = "0"&ConvertNumber ( "" ; decimal ; 0 ; "01" );
   len = Length(bin) -1;
   p = Position ( bin ; "01" ; 1 ; PatternCount ( bin ; "01" ) );
   tail = Position( bin ; "1" ; 1 ; PatternCount( bin; "1"));  

   decimal =  2^(len-p)*Int( decimal / 2^ (len-p) ) + Int(  Mod(  decimal  ; 2^(len-p) )/ 2^  (len-tail+1)  );
   xterm = 0  // last line
 
];
 If( decimal ; decimal+2^(len- p) ;0)
)

The function returns the next higher number whose binary form contains as many 1 as the binary form of the parameter "decimal"

Comments

		Crispin, UK Sep 2, 2015
I'd love to know why anyone would want this?

		Erich, Rostock/Germany Sep 2, 2015
This allows the solution of any choice problem in an easy way. For a mask-controlled choice you need every binary pattern with the same number of binary digits 1. See also: description of GetPatternList()

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

NextBinPattern

Comments

Support this website.

Support this website.