permutaciones

[roman]

Un comentario al margen :

[margen]

¿Para qué quieres mostrar todas las sextetas, permutaciones y demás en un ListView? Según entiendo, tú quieres hacer un análisis, comparaciones, etc. de dichas sextetas y para ello no requieres mostrarlas. Usar un control visual, además de requerir más recursos, consume más tiempo y hace que te confundas al apartarte de lo esencial ya que intentas lidiar simultáneamente con un problema que tiene que ver sólo con número enteros y con uno que tiene que ver con cadenas y la forma de disponerlas en un control.

Yo, en tu lugar, comenzaría definiendo una estructura de datos ad hoc a tu problema, por ejemplo:

Código Delphi [-]
type
  TSexteta = array[0..5] of Integer;
  TListaSextetas = array of TSexteta;

TListaSextetas será una matriz o arreglo bidimensional con un número de columnas fijo (seis) y un número de filas indeterminado o abierto. Todos tus cálculos, comparaciones, permutaciones, etc. las haces con esas estructuras y una vez que obtengas la sexteta de la suerte la muestras, ahora sí, en controles visuales.

Incluso, si decides que de-todas-formas quieres ver tus millones de sextetas, bastará que uses un ListView en modo virtual para "conectarlo" a tu estructura de datos, pero el problema aritmético en sí, seguirá separado de lo visual.

[/margen]

LineComment Saludos

[danielmj]

hola roman,

creo que entiendo lo que dices, pero hacerlo todo visualmente me resulta mas fácil, ten en cuenta que hace mucho que no hacia nada de esto y me esta costando mucho tiempo y ayuda (del foro) para terminarlo. Solo busco la forma mas fácil para mi aunque lleve mas recursos y tiempo del pc.
Una vez lo tenga terminado, puedo intentarlo de ese otro modo que me propones ¿por que no? pero intentaré terminar esta "version" antes.

Un saludo.

[danielmj]

He modificado el codigo y me he acercado..
http://pasteall.org/pic/index.php?id=107929

Pero en cada columna deberia aparecer solo cifra de dos o un numero y no toda la combinacion. eso me trae frito. Además usa la columna que esta reservada para el orden de cada fila.
¿alguna sugerencia? gracias.

[ecfisa]

Hola.

Basándome en la imágen que pusiste, fijate si este ejemplo es similar a lo que buscas.

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;


procedure TForm1.FormCreate( Sender: TObject );
var
  i: Integer;
  lv: TListView;
begin
  lv := ListView1;
  lv.GridLines := True;
  for i := 1 to 7 do lv.Columns.Add;
  lv.Columns[0].Caption := 'FILA';
  lv.Columns[1].Caption := 'COL. 1';
  lv.Columns[2].Caption := 'COL. 2';
  lv.Columns[3].Caption := 'COL. 3';
  lv.Columns[4].Caption := 'COL. 4';
  lv.Columns[5].Caption := 'COL. 5';
  lv.Columns[6].Caption := 'COL. 6';
end;


procedure TForm1.btnLoadClick( Sender: TObject );
var
  lv: TListView;
  li: TListItem;
  Series, aux: TStrings;
  i : Integer;
  vn : array[0..5] of Integer;
begin
  // Podes poner tus valores en un arreglo
  vn[0] := 15; vn[1]:= 17; vn[2]:= 41; vn[3]:= 43; vn[4]:= 5; vn[5]:= 37;
  // y enviarlo como argumento: combinatoria( v, Series);

  // o enviar los valores directamente: combinatoria( [15, 17, 41, 43, 5, 37], Series);

  lv := ListView1;
  Series := TStringList.Create;
  lv.Items.BeginUpdate;
  try
    combinatoria(vn, Series );
    for i := 0 to Series.Count - 1 do
    begin
      aux := TStringList.Create;
      try
        ExtractStrings( [' '], [], PChar(Series[i] ), aux );
        li := lv.Items.Add;
        li.Caption := IntToStr(i + 1);
        li.SubItems.AddStrings( aux );
      finally
        aux.Free;
      end;
    end;
  finally
    Series.Free;
    lv.Items.EndUpdate;
  end;
end;

Salida:


Saludos

[danielmj]

Hola ecfisa,

Buenas madrugadas, me pillas en el trabajo y no tengo el pc conmigo para mirar el código, pero así de primeras parece que si es eso. Luego cuando llegue a casa me pongo con ello y te comento. Ahora mismo
Tengo una versión digamos que a parte en la que he optado por una lista con seis columnas para los números aleatorios y un listbox para las permutaciones más una variable de tipo string que almacena el contenido de las seis columnas y se compara con cada fila del listbox. Pero ya digo que esa versión no me gusta mucho. Lo que quiero es comparar línea a línea listview1 y lustview2. Así que luego lo miraré.
Ahora mismo justo antes de salir de casa, había llegado a 1.000.000 de combinaciones y ahora debe estar comparando ese millón con cada una de las permutaciones de los números más repetidos. El hacer ese millón de combinaciones ha tardado aproximadamente 8h, no es mucho para un i7 a 4 GHz y 16gb de RAM?

Por cierto, soy de mente inquieta, así que estoy empezando a plantearme el mismo programa pero para consola, sin componentes visuales.. En parte por lo que me dijo roman y en parte por qué se me antoja verlo en un estilo msdos.

Un saludo y gracias por tu ayuda.