permutaciones

[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 Noteví]

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.

[ecfisa]

Hola danielmj.

Los valores los recibis en un TStringList y de que modo los vuelques en el TListView, dependerá de como lo tengas configurado y la estructura le hayas dado. Al desconocer esto último lo mejor que puedo hacer es darte un ejemplo genérico:

Código Delphi [-]
procedure TForm1.btnLoadClick(Sender: TObject);
var
  TS: TStrings;
  li: TListItem;
  i : Integer;
begin
  ListView1.ViewStyle := vsList;
  TS := TStringList.Create;
  ListView1.Items.BeginUpdate;
  try
    combinatoria([0,1,2,3,4,5], TS);
    for i := 0 to TS.Count-1 do
    begin
      li := ListView1.Items.Add;
      li.Caption := TS[i];
    end;
  finally
    TS.Free;
    ListView1.Items.EndUpdate;
  end;
end;

Que produce esta salida:


Saludos

[danielmj]

Hola ecfisa, lo primero graacias por la ayuda, siempre ayudando, se agradece.

He modificado tu código para acomodarlo a mi formulario, pero en mi caso, la lista que debe mostrar las permutaciones no muestra nada.
Mi modificacion de tu codigo es esta:

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var
  i, cont: integer;
  TS: TStrings;
  li: TListItem;

begin
  TS := TStringList.Create;
  lista2.ViewStyle:= vsReport;
  Lista2.Items.BeginUpdate;
  try
  Combinatoria([StrToInt(edit1.Text), StrToInt(edit2.Text), StrToInt(edit3.Text),
  StrToInt(edit4.Text), StrToInt(edit5.Text), StrToInt(edit6.Text)], ListBox1.Items);

  for i := 0 to listbox1.Count-1 do
  begin
    li := Lista2.Items.Add;
    li.Caption := TS[i];
  end;
  finally
    TS.Free;
    Lista2.Items.EndUpdate;
  end;
      label12.Caption:= IntToStr(i);
end;

Esto no lo entiendo, a "li" se le pasa ¿que cosa? y en que momento se cargan todas las permutaciones en la lista2. En listBox, si se cargan las permutaciones pero en el listview (lista2) no se carga nada.

begin
    li := Lista2.Items.Add;
    li.Caption := TS[i];
  end;

Y aquí un ejemplo en video de que hace en mi caso..
https://youtu.be/944Cga7mJYw

Antes de ver tu codigo, y llevado en cierto modo por la frustracion tome un atajo, y era crear el listview (lista2) con solo dos columnas, una para el orden de la fila y otra para la permutacion. Por otra parte, en una variable metía toda la fila de la lista1 excepto la columna que hace referencia al orden y comparaba esa variable con el contenido de la columna permutaciones de la lista2. Esto es, comprobar las 720 permutaciones por cada linea de la lista1 (que previamente se había metido en una variable) pero es un proceso muy lento, tanto que me desespera, a parte de que me dio algun problema y al final, lo deseché.

Un saludo.