Combine ( decimal ; ObjList )

Get a substring under mask

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

Erich Schmidt - Show more from this author

Sample input:

Combine(35;"ABCDEF")
Combine(2^3+2^2;"76543210")

Sample output:

AEF
32

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

// Name: Combine(decimal;ObjList) 
// 02.09.2015 Version 1.0
// Author: Erich Schmidt, erich.schmidt@t-online.de 

// The function returns a substring of "ObjList". The binary form of "decimal" is considered as a mask that overlies the string "ObjList". 
// A character of "Obj List" is selected, if the coresponding character in the mask is 1.

// Examples:  Combine(7;"ABCDEF") returns  "DEF", Combine(26;"ABCDEF") returns "BCE"
//                   Combine(2^3+2^2+2^0;"654321")  returns  "431".


Let(
[
   nObj = Length(ObjList);
   decimal = Mod(decimal;2^nObj)

];
If ( decimal;    Combine( Int(  decimal/2 )  ; Left ( ObjList ; nObj-1 ) ) &  Right ( ObjList ; Mod(decimal;2)   ) )
)

The function returns a substring of "ObjList". The binary form of "decimal" is considered as a mask that overlies the string "ObjList".
A character of "Obj List" is selected, if the coresponding character in the mask is 1.

The function call

CustomList ( 1 ; 2^4-1 ; "Combine ( [n] ; \"ABCD\" ) " ) returns a list with all subsets of "ABCD":

D
C
CD
B
BD
BC
BCD
A
AD
AC
ACD
AB
ABD
ABC
ABCD

For TEXT="TELEPHONE" returns

Let ( [ $N= Length ( TEXT ) ]; CustomList ( 1 ; $N ; "Combine ( 2^$N - 2^($N-[n]) ; TEXT )" ) ) ;

the list

T
TE
TEL
TELE
TELEP
TELEPH
TELEPHO
TELEPHON
TELEPHONE

For TEXT="AaBbCcDdEeFfGg" with

Let( [ $MyList= CustomList ( 1 ; Div ( Length ( TEXT ) ; 2 ) ; "2^(2*[n]-1)" ); S= Evaluate ( Substitute ( $MyList ; ¶ ; "+" ) ) ]; Combine ( S ; TEXT ));

you get "ABCDEFG"

Comments

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

Combine ( decimal ; ObjList )

Comments

Support this website.

Support this website.