Revisión de código

[danielmj]

Hola bucanero, estoy mirando tu codigo y hay un par de cosas que no consigo "llevar" a mis intereses, es decir, que no consigo implementarlo.

if not Combinacion1.load([1, 5, 8, 13, 33]) then begin

Se le pasa una combinación dada, pero cuando entre los corchetes como valor pongo "1, 45, 33, 14, 20, 22" salta el msg diciendo que la combinacion no es valida. Entonces mi duda es, teniendo en cuenta que esa combinación estaría formada por los numeros mas repetidos entre 50.000 combinaciones aleatorias (por ejemplo) y que sería comparada con cada una de esas combinaciones ¿por que da error?
Tu codigo hace 2 cosas, primero genera una serie de aleatorios y luego lo compara con una combinacion dada, pero lo que intento es por ejemplo generar x numero de combinaciones repetidas y metidas en un listview, de ella extraigo los numeros mas repetidos y sobre esa unica combinacion, hago las comparaciones. Pero no puedo por que en el momento en que "combinaicon.load es distitno, el programa se detiene.

[bucanero]

Hola Danielmj

El error te lo da por la pre-condición establecida donde estas debe tener siempre 5 elementos a la hora de leerla, puedes quitar esa condición, o añadirle otras que tu consideres.

Código Delphi [-]
const
  MaxCount: integer = 5;

  ...
  
function TCombinacionHelper.load(list: array of Byte): boolean;
var
  i: LongInt;
begin
  Result := False;
  clear;
  // if length(list) = MaxCount then begin   //<-- Quita esta linea 
    for i := 0 to High(list) do
      AddNumero(list[i]);
    Result := true;
  // end;    //<-- Quita esta linea
end;

Empezado por danielmj

...
lo que intento es por ejemplo generar x numero de combinaciones repetidas y metidas en un listview, de ella extraigo los numeros mas repetidos y sobre esa unica combinacion, hago las comparaciones.

Para operar olvídate del listview, (al fin y al cabo mostrar 5000 o 10000 combinaciones la mayoría inutiles no le es interesante al usuario) usalo solamente una vez que tengas los resultados esperados con las combinaciones ya filtradas. Ademas al ser un componente visual no obtendrás la velocidad adecuada. Haz las operaciones sobre array que es mucho mas rápido. aquí tienes un ejemplo:

Código Delphi [-]
var
  i:longint;
  combinacion1, comunes:Tcombinacion;
  cs1: string;
  lista:  array of TCombinacion;
begin
  try
    setLength(lista, 5000);
    //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([1, 45, 33, 14, 20, 22]) 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;

Un saludo

[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.