Revisión de código

[danielmj]

Hola bucanero, gracias por tu tiempo. Mirando tu codigo y poniendolo en practica veo un resultado inesperado. Lo que hago es lo siguiente, en un edit he volcado el valor de 6 labels.caption con valores entereos y aleatorios del 1 al 49 con lo que se forma un longint en el edit.text Esta será la combinacion maestra a comparar, pero lo que veo que hace es que en todas y cada una de las 5000 combinaciones se repite el mismo numero y simpre siempre, se da un unico acierto.
Y el codigo modificado sería este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i:longint;
  combinacion1, comunes:Tcombinacion;
  cs1: string;
  lista:  array of TCombinacion;
begin
  try
    setLength(lista, 50000);
    //rellenar una lista de 5000 elementos con una combinación aleatoria
    for i:=0 to high(lista) do
      lista[i].aleatorio;

    //cargar la combinación maestra
    if not Combinacion1.load([StrToInt(edit1.Text)]) then begin
      MessageDlg('La combinacion no es valida!!!', mtError, [mbOK], 0);
      exit;
    end;

    // guarda la combinacion1 en un string,
    // esto es solamente por acelerar el proceso a la hora de mostrar la combinacion
    // como string y no repetirlo en cada ciclo del bucle
    cs1 := Combinacion1.AsString;
    //recorre el bucle para analizar todas las combinaciones con la combinacion principal
    for i := 0 to high(lista) do begin
      /// compara una combinacion con otra y obtine los comunes a ambas combinaciones
      comunes := lista[i].comparar(Combinacion1);
      /// si el valor es 0 entonces no hay numeros comunes
      if comunes <> 0 then
        memo1.Lines.Add(cs1 + #9 + lista[i].AsString + #9 + '(' + IntToStr(comunes.count) + ') ' + comunes.AsString);
    end;
  finally
    setLength(lista, 0);
  end;
end;

https://drive.google.com/open?id=1NG...XSeWz8qTKfoZL4

[bucanero]

La combinación maestra solo te esta cogiendo el numero 48.

Eso es porque el edit1 al convertirlo a un numero entero y pasarlo como un array of byte que es el parámetro esperado de la función load, y me extraña que no este dando ningún error de tipos, en realidad lo que esta haciendo es cortando y tomando solamente los 8 primeros bits del numero, omitiendo el resto. De hay que solo tome el valor 48.

Empezado por danielmj

Código Delphi [-]
Combinacion1.load([StrToInt(edit1.Text)])

Aunque no le veo mucha utilidad a que el usuario introduzca y/o maneje un numero de INT64 que es al fin y al cabo la forma interna en que maneja el programa una combinación determinada, pero si lo deseas así, puedes utilizar la carga de datos de la siguiente forma:
* añade una nueva función LOAD junto a la que ya tienes definida, utilizando la directiva overload, de la siguiente forma:

Código Delphi [-]
    ...
    // añadir tantos metodos load como sea necesarios
    function load(list: array of Byte): boolean; overload; // carga una combinacion determinada
    function load(value:int64):boolean; overload; //carga a partir de un Int64   

    ...

function TCombinacionHelper.load(value: int64): boolean;
begin
  self:=value;
  result:=true;
end;

y ahora ya puedes leer el numero de tu edit1 de esta forma (sin los corchetes), el compilador determinara que rutina LOAD utilizar en función de los parámetros que le suministres:

Código Delphi [-]
  if not Combinacion1.load(StrToInt(edit1.Text)) then begin
      MessageDlg('La combinacion no es valida!!!', mtError, [mbOK], 0);
      exit;
  end;

y en particular para el valor que tienes en la imagen (34324051248), yo obtengo la siguiente combinación:

4 5 8 10 12 13 14 16 17 18 19 20 22 23 24 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

Saludos

[bucanero]

Viendo tu vídeo, veo que lo que tienes en el edit1 son los mismos números que se ven en los label a la izquierda del edit1, dando la sensación que lo que estas haciendo es concatenando los valores de los labels, y guardándolos en el EDIT1. Eso no te va a dar la misma combinación que tienes en los labels cuando hagas el load del edit1.

Si pretendes obtener la misma combinación que muestras en los labels, entonces deberías hacer algo así:

Código Delphi [-]
var
   numeros:Array[1..6] of byte;
begin
  ...
  numeros[1]:=StrToInt(label1.caption);  
  numeros[2]:=StrToInt(label2.caption);
  ...
  numeros[6]:=StrToInt(label6.caption);

  combinacion1.load(numeros);
  ...
end;

[danielmj]

Hola bucanero, gracias ya va corriendo perfectamente, pero sigo con la misma idea ya sabes.. R que R... y es que no quisiera abandonar la idea de al menos usar un listview que muestre x numero de combinaciones aleatorias, pongamos por ejemplo 20.000 y de entre ellas, busca los 6 numeros que mas se repiten formando de este modo una combinación en si misma. Esa combinacion con los 6 numeros que mas salen, SI podría usarlo como combinación clave en tu codigo y a partir de ahí hacer el resto. Pero ahora mismo no lo tengo y es algo que siento que me falta. Ya tengo que irme a trabajar, mañana sigo. Un saludo.

[danielmj]

Buenas, estoy haciendo pruebas con tu codigo Bucanero, y si bien funciona perfectamente, hay algo que me choca.. a veces se dan hasta 6 combinaciones iguales donde solo cambia un numero y me pregunto, desde el punto de vista estadistico ¿cual es la posibilidad de que ocurra eso realmente?


https://drive.google.com/open?id=13k...Yu0opkIBvkB2DY


Un saludo.

[bucanero]

Empezado por danielmj

a veces se dan hasta 6 combinaciones iguales donde solo cambia un numero y me pregunto, desde el punto de vista estadistico ¿cual es la posibilidad de que ocurra eso realmente?

A eso ya no te puedo responder... tendría que hacerlo un matemátic@.
Por lo que veo si estas comparando una combinación (maestra) de 6 números con otras combinaciones de 5 números esperando encontrar coincidencias para todos los números, entonces tendrás 6 combinaciones que cumplan ese requisito...
La pregunta es ¿Que probabilidades hay de que en 20 o 30mil combinaciones aleatorias aparezcan esas 6 combinaciones? pues la lógica dice que no muchas, aunque ten en cuenta que la combinación maestra la has obtenido de los números mas repetidos de esas combinaciones aleatorias.

Una cosa curiosa de la estadística con respecto a lo que pretendes buscar, es que si coges toda la tanda de datos históricos de sorteos de lotería primitiva y haces un recuento de los números que mas salen con respecto a los que menos salen, veras que las diferencias son mínimas, aquí te dejo los enlaces a los historicos
primitiva-resultados-historicos-de-todos-los-sorteos/

[danielmj]

Hola por ahora ya lo dejo así, ire probando y dejaré para mas adelante implementar otras cosas como cargar un CSV con el registro de sorteos y comparar la clave maestra con ellos..

Un saludo y gracias