Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 13-09-2015
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
tienes razon, el codigo donde acomodo las palabras estaba ejecutandose antes de terminar de allocar toda la memoria jajaja.
Ahora me queda crear algo asi como un RandomSuffle que vaya probando todas las combinaciones posibles hasta encontrar una y si las prueba todas y no da con una valida pues que avise con un error. Prueben a crear una sopa de por ejemplo 5x5 y agregen una palabra de 6 letras y veran que no sale nunca del while:
Código PHP:
while (!valida(mfilascolumnassrand() % columnasrand() % filasdxdy)) ; 
de la funcion agrega.

Mi idea es algo asi:
Código PHP:
largo=rows*columns;
int *lista=malloc (largo*sizeof (int));
for(
int x=0;<largo;x++)
    
lista[x]=x;
lista RandomSuffle (listalargo);

intRandomSuffle(int *listaint largo){
   
//en un for voy recorriendo todos y calculo con rand la nueva posición y lo intercambio.
   
int posaux;
   for(
int x=0;x<largo;x++){
      
pos=rand ()%largo;
      if(
pos != x){
         
aux=lista [pos];
         
lista[pos]=lista[x];
         
lista[x]=aux;
     }
   }

Luego ya fuera de randomsuffle para saber cual es cada posición lo divido entre el número de columnas y me dará la columna y calculo el residuo y me dará la fila.
Código PHP:
void ObtenerPosicion (int valorint *posxint *posy){
   *
posx=valor cols;
   *
posy=valor cols;
}

for(
int x=0x<largox++){
   
ObtenerPosicion(lista[x], &posx, &posy);
   ...
   ... 
Luego:
Uso el mismo método para la orientacion.
Código PHP:
largo=8//son las 8 posibles orientaciones
int orientacion=malloc (largo*sizeof (int));
for(
int x=0;<largo;x++)
    
orientacion[x]=x;
orientacion RandomSuffle (orientacionlargo);
for(
int x=0x<largox++){
   switch (
orientacion[x]){
      case 
0//norte
         
...
         break;
      case 
1//noroeste
         
...
         break;
      case 
2//oeste
         
...
         break;
      case 
3//suroeste
         
...
         break;
      case 
4//sur
         
...
         break;
      case 
5//sureste
         
...
         break;
      case 
6//este
         
...
         break;
      case 
7//noreste
         
...
         break;
   }

Si no cabe de ninguna manera cojo una nueva posición y repito hasta encontrar donde cabe o hasta usar la última opción posible.
Si cabe tengo que comprobar que case con las letras que ya haya de otras palabras. Para ello tengo que comprobar con un for si hay alguna letra y comprobar que se corresponda. Dependiendo de la orientacion tendré que comprobar que no desborde el array tampoco.

Todo eso está hecho en el movil y aun no lo he probado, solo fue una idea que me vino estando fuera y lo hice en el movil para no olvidarlo pero ¿que opinais? ¿algo mejor que eso?
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Array dentro de un Array Holger PHP 4 03-01-2012 17:27:44
Multidimensional arrays nemesis JAVA 1 12-10-2008 01:07:42
problemas con array o array noodle_ OOP 7 19-06-2008 22:30:57
Como Asignar Variable Tipo Array de Tform a otro Array del Mismo tipo morfeo21 Varios 5 17-08-2004 17:39:51
FFT multidimensional i.larranaga Varios 0 04-02-2004 11:51:49


La franja horaria es GMT +2. Ahora son las 22:13:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi