Números contenidos en otros

Si habéis trabajado con las APIs u otros lenguajes de programación conoceréis que determinados parámetros de muchas funciones están compuestos por la suma de más de un número, de tal modo que dicho número posteriormente permite conocer cuales son los que le componen. Para empezar, los números utilizados para conseguir la suma deben ser el doble que el anterior o si se representan en binario solo los que tengan el primer bit a uno:

  1          1
  2         10
  4        100
  8       1000
 16      10000
 32     100000
 64    1000000
128   10000000

Según lo anterior, un parámetro que contenga el número 145 estará compuesto por los números 128 + 16 + 1, otros entornos tienen su propia función para determinar si un número esta contenido en otro (por decirlo de algún modo), y no es el caso de PowerBuilder, por lo que tendremos que crearnos nuestra propia función para determinar esto, y así poder utilizar este tipo de números para trabajar con Apis o para nuestro uso directo. Según el ejemplo anterior el 145 en binario sería 10010001, de tal modo que es fácil determinar si el número decimal 16 (en binario 10000) esta dentro del 145, pasando ambos a binario y comprobando si la posición (de derecha a izquierda) del bit a 1 del número buscado, también es 1 en el número en el que se busca:

10010001 número en el que se busca
00010000 número buscado

Con la lógica seguida hasta este punto ya solo queda pasar ambos número a binario, por lo que, de modo elegante, sería una función para la operación de conversión y otra para la comparación del bit:

Convertir en binario - string xx_aBinario(ulong aul_numero):

// Tras las comprobaciones correspondientes del parámetro proporcionado, quedaría algo así. string ls_binario int li_resto Do Until aul_nummero = 0 li_resto = mod(aul_nummero ; 2) aul_number = aul_nummero / 2 // Se monta el binario de derecha a izquierda. ls_binario = string(li_resto) + ls_binario Loop Return ls_binario

Comparación del bit - contieneNumero(ulong aul_numeroContenedor,ulong aul_numeroContenido):

// Esta función se le llamaría del siguiente modo xx_contieneNumero(145, 16). // Si lo contiene retorna True, en caso contrario False. // Tras las comprobaciones pertinentes de los parámetros quedaría así: string ls_cotenerdor, ls_contenido ls_contenedor = string(aul_numeroContenedor) ls_contenido = string(aul_numeroContenido) If left(right(ls_contenedor,len(ls_conetido)),1)='1' Then Return True Else Return False End If

Este es un método como otro cualquiera, hay muchos otros, recuerdo que antes de conocer el tema de los bit en los binarios me dedicaba a montar un bucle donde obtenía el número mayor doble del anterior partiendo desde uno y que fuera inferior al numero contenedor, el resultado era el mayor contenido, después al restar al contenedor el número mayor contenido, repetía la operación y obtenía así cada uno de los contenidos en la suma, claro esta que en cuanto aparecía el que buscaba salia, en caso contrario indicaba que no estaba contenido... y esto sigue, si os dais una vuelta por las PFCs encontrareis otro método.

Como siempre, espero que os sirva.