permutaciones

[danielmj]

Hola, sigo con la aplicacion de los numeros aleatorios, ya funciona como debe, solo que ahora necesito hayar las permutaciones en funcion de la combinación generada por los 6 numeros que mas se repiten.
Ejemplo:

Supongamos que el listview se llena con 10.000 filas de 6 columnas de numeros. De entre todos esos, busca los 6 que mas veces salen generando una combinacion tal que n (donde n puede ser 42 16 5 18 23 8). Pues bien, esos 6 numeros los meto de forma manual (de momento) en 6 componentes tedit. Y a partir de ahí genera las permutaciones, que para ser seis grupos de numeros, deben salir 720 formas de mostrar esa combinacion, eso si, sin repeticiones. Luego cada una de esas 720 posibles formas de mostrar la combinacion, se compara linea a linea con el listview y si en alguna de esas 10.000 lineas aparece, entonces será la combinacion que juegue! XD

Mirando por la web, encontre en la pagina de rosetta code, el siguiente codigo para Pascal o aplicacion de consola:

Código Delphi [-]
program TestPermutations;
 
{$APPTYPE CONSOLE}
 
type
  TItem = Integer;                // declare ordinal type for array item
  TArray = array[0..3] of TItem;
 
const
  Source: TArray = (1, 2, 3, 4);
 
procedure Permutation(K: Integer; var A: TArray);
var
  I, J: Integer;
  Tmp: TItem;
 
begin
  for I:= Low(A) + 1 to High(A) + 1 do begin
    J:= K mod I;
    Tmp:= A[J];
    A[J]:= A[I - 1];
    A[I - 1]:= Tmp;
    K:= K div I;
  end;
end;
 
var
  A: TArray;
  I, K, Count: Integer;
  S, S1, S2: ShortString;
 
begin
  Count:= 1;
  I:= Length(A);
  while I > 1 do begin
    Count:= Count * I;
    Dec(I);
  end;
 
  S:= '';
  for K:= 0 to Count - 1 do begin
    A:= Source;
    Permutation(K, A);
    S1:= '';
    for I:= Low(A) to High(A) do begin
      Str(A[i]:1, S2);
      S1:= S1 + S2;
    end;
    S:= S + '  ' + S1;
    if Length(S) > 40 then begin
      Writeln(S);
      S:= '';
    end;
  end;
 
  if Length(S) > 0 then Writeln(S);
  Readln;
end.

El problema es que yo parto del contenido de 6 tedit que de primeras son strings. Entonces, de que forma puedo generar las 720 posibles formas de mostrar la
combinacion antes indicada. No sé como hacer referencia al contenido de esos tedit. Alguna idea? no pido codigos que me lo den todo mascado, solo vuestras
ideas o consejos de como hacerlo.

Un saludo y gracias.

[ecfisa]

Hola.

Empezado por danielmj

...
De entre todos esos, busca los 6 que mas veces salen generando una combinacion tal que n (donde n puede ser 42 16 5 18 23 8).
...
Entonces, de que forma puedo generar las 720 posibles formas de mostrar la combinacion antes indicada.
...

Creo que podrías hacer:

Código Delphi [-]
procedure combinatoria(v: array of Integer; Serie: TStrings);
var
  a,b,c,d,e,f: Integer;
begin
  if Length(v) <> 6 then
    raise Exception.Create('Error: Deben ser 6 elementos');
  for a := Low(v) to High(v) do
    for b := Low(v) to High(v) do
      for c := Low(v) to High(v) do
        for d := Low(v) to High(v) do
         for e := Low(v) to High(v) do
           for f := Low(v) to High(v) do
              if not(
  (v[a]=v[b])or(v[a]=v[c])or(v[a]=v[d])or(v[a]=v[e])or(v[a]=v[f])or
  (v[b]=v[c])or(v[b]=v[d])or(v[b]=v[e])or(v[b]=v[f])or
  (v[c]=v[d])or(v[c]=v[e])or(v[c]=v[f])or
  (v[d]=v[e])or(v[d]=v[f])or
  (v[e]=v[f])) then
    Serie.Add(Format('%d %d %d %d %d %d',[v[a], v[b], v[c], v[d], v[e], v[f]]));
end;

Ejemplos de uso:

Código Delphi [-]
  ...
  Combinatoria([0, 1, 2, 3, 4, 5], Memo1.Lines);
  Combinatoria([42, 16, 5, 18, 23, 8], ListBox1.Items);
  ...

Saludos

[danielmj]

Hola ecfisa,

gracias por responder tan rapido, funciona perfectamente, ahora me estoy peleando para colocar cada cifra de 1 o 2 numeros en cada columna del lisview. Trato de hacerlo así:

Código Delphi [-]
listview1.Items.Add.SubItems.Add(combinatoria[0]);

pero no me sale. me dice "[dcc32 Error] loteria.pas(393): E2035 Not enough actual parameters"
un saludo.

[ecfisa]

Hola danielmj.

Fijate que el procedimiento combinatoria lo declaro con dos parámetros:

Código Delphi [-]
procedure combinatoria(v: array of Integer; Serie: TStrings);

Sin embargo en tu código estas citando a combinatoria como si fuese un arreglo y quisieras acceder al elemento 0 del mismo:

Código Delphi [-]
listview1.Items.Add.SubItems.Add(combinatoria[0]);

Saludos

[Casimiro Notevi]

Empezado por danielmj

Hola

Por favor, no olvides poner títulos descriptivos a tus preguntas

[danielmj]

Hola ecfisa,
Bueno sin adornos.. por mucho que miro el codigo y toco, cambio y reescribo cosas, no se como meter esos valores en grupos de dos por cada columna del listview. Me da apuro decirlo pero es la verdad así que por hoy lo dejo por que ya me estoy agobiando. Cuando una cosa no me sale, tiendo a frustrarme. Gracias por todo y en cuanto vuelva con el que sera (conociendome) en un rato, te comento.

Un saludo.

[danielmj]

Hola, a ver.. en la linea:

Código Delphi [-]
SubItems.Add(IntToStr(combinatoria([0],...)

Ese indice 0 hace referencia a la primera posicion del vector? ¿ese 0 está bien colocado ahi? en cuanto a la serie, sigo sin saber que tengo que llamar ahí. Ponga lo que ponga el mensaje es el mismo..

[dcc32 Error] loteria.pas(393): E2035 Not enough actual parameters

http://pasteall.org/pic/index.php?id=107891
Un saludo.