FiveTech Software tech support forums

Code: Select all | Expand

function Main()

   local cWord := "ESTEBAN", cChar, cResult, n
   local aResults := {}
   
   for each cChar in cWord
      for n = 3 to Len( cWord )
         if Len( cResult := SubStr( cWord, cChar:__enumIndex(), n ) ) >= 3
            if AScan( aResults, cResult ) == 0
               AAdd( aResults, cResult )
            endif   
         endif         
      next     
   next
   
   ? ASort( aResults )

return nil

Code: Select all | Expand

#include <stdio.h>
#include <string.h>

// Function to print all possible combinations of three or more letters
// in the given word
void print_combinations(char *word)
{
    int len = strlen(word);

    // Loop over all possible combinations of three or more letters
    // in the given word
    for (int i = 0; i < len; i++)
    {
        for (int j = i + 1; j < len; j++)
        {
            for (int k = j + 1; k < len; k++)
            {
                printf("%c%c%c\n", word[i], word[j], word[k]);
            }
        }
    }
}

int main()
{
    char word[100]; // Store the word

    printf("Enter a word: ");
    scanf("%s", word);

    printf("All possible combinations of three or more letters in '%s' are:\n", word);

    // Call the function to print all combinations
    print_combinations(word);

    return 0;
}

Code: Select all | Expand

// Función para imprimir todas las posibles combinaciones de 3 o más letras
// en la palabra dada
PROCEDURE print_combinations(cWord)
    LOCAL cCombination[4], i, j, k, nLen

    // Obtener la longitud de la palabra
    nLen := LEN(cWord)

    // Recorrer todas las posibles combinaciones de 3 o más letras
    // en la palabra dada
    FOR i := 1 TO nLen
        FOR j := i + 1 TO nLen
            FOR k := j + 1 TO nLen
                // Generar la combinación de 3 letras
                cCombination := SUBSTR(cWord, i, 1) + SUBSTR(cWord, j, 1) + SUBSTR(cWord, k, 1)

                // Imprimir la combinación
                ? cCombination
            NEXT
        NEXT
    NEXT
RETURN NIL

// Programa principal
PROCEDURE Main()
    LOCAL cWord[100] // Almacenar la palabra

    // Pedir la palabra al usuario
    INPUT "Ingrese una palabra: ", cWord

    // Imprimir el título
    ? "Todas las posibles combinaciones de 3 o más letras en '", cWord, "' son:"

    // Llamar a la función para imprimir las combinaciones
    print_combinations(cWord)

    RETURN

Code: Select all | Expand

// Función para imprimir todas las posibles combinaciones de 3 o más letras
// en la palabra dada
PROCEDURE print_combinations(cWord)
    LOCAL cCombination[100], i, j, k, l, nLen

    // Obtener la longitud de la palabra
    nLen := LEN(cWord)

    // Recorrer todas las posibles combinaciones de 3 o más letras
    // en la palabra dada
    FOR i := 1 TO nLen
        FOR j := i + 1 TO nLen
            FOR k := j + 1 TO nLen
                // Generar la combinación de 3 letras
                cCombination := SUBSTR(cWord, i, 1) + SUBSTR(cWord, j, 1) + SUBSTR(cWord, k, 1)

                // Añadir más letras a la combinación si es posible
                FOR l := k + 1 TO nLen
                    cCombination += SUBSTR(cWord, l, 1)
                NEXT

                // Imprimir la combinación
                ? cCombination
            NEXT
        NEXT
    NEXT
RETURN NIL

// Programa principal
PROCEDURE Main()
    LOCAL cWord[100] // Almacenar la palabra

    // Pedir la palabra al usuario
    // INPUT "Ingrese una palabra: ", cWord
    cWord = "ESTEBAN"

    // Imprimir el título
    ? "Todas las posibles combinaciones de 3 o más letras en '", cWord, "' son:"

    // Llamar a la función para imprimir las combinaciones
    print_combinations(cWord)

    RETURN
 

Code: Select all | Expand

// Función para imprimir todas las posibles combinaciones de 3 o más letras
// en la palabra dada
PROCEDURE Main()
    LOCAL cCombination[100], i, j, k, l, nLen, cWord := "ESTEBAN", aArray := {}

    // Obtener la longitud de la palabra
    nLen := LEN(cWord)

    // Recorrer todas las posibles combinaciones de 3 o más letras
    // en la palabra dada
    FOR i := 1 TO nLen
        FOR j := 1 TO nLen
           IF j <> i
            FOR k := 1 TO nLen
               IF k <> j .and. k <> i
                // Generar la combinación de 3 letras
                cCombination := SUBSTR(cWord, i, 1) + SUBSTR(cWord, j, 1) + SUBSTR(cWord, k, 1)
                IF ASCAN(aArray,cCombination) == 0
                   AADD(aArray,cCombination)
                ENDIF   
                // Añadir más letras a la combinación si es posible
                FOR l := 1 TO nLen
                  if l <> k .and. l <> i .and. l <> j
                    cCombination += SUBSTR(cWord, l, 1)
                    IF ASCAN(aArray,cCombination) == 0
                      AADD(aArray,cCombination)
                    ENDIF   
                  endif        
                NEXT                
              endif    
            NEXT
          ENDIF        
        NEXT
    NEXT
    xbrowse(aArray)
RETURN NIL
 

Code: Select all | Expand

fact(7)/fact(4) + fact(7)/fact(3) + fact(7)/fact(2) + fact(7) + fact(7) // --> 13,650
 

Code: Select all | Expand

#include "fivewin.ch"

static aPrm := {}
static aCmb := {}
static aResult := {}

function Main()

   local cSrc  := "ESTEBAN"
   local n

   for n := 3 to Len( cSrc )
      Combinations( n, "", cSrc )
   next

   for n := 1 to Len( aCmb )
      aPrm  := {}
      Permutations( "", aCmb[ n ] )
      AMERGE( aResult, aPrm )
   next

   XBROWSER aCmb    SHOW RECID TITLE "COMBINATIONS"
   XBROWSER aResult SHOW RECID TITLE "PERMUTATIONS"

//   ? fact(7)/fact(4) + fact(7)/fact(3) + fact(7)/fact(2) + fact(7) + fact(7)

return nil

function Combinations( r, cCmb, cSrc )

   local nLen  := Len( cSrc )
   local n

   if r == 0
      if AScan( aCmb, cCmb ) == 0
         AAdd( aCmb, cCmb )
      endif
   else
      for n := 1 to ( nLen - r + 1 )
         Combinations( r - 1, cCmb + SUBSTR( cSrc, n, 1 ), SUBSTR( cSrc, n + 1 ) )
      next
   endif

return nil

function Permutations( cLeft, cRight )

   local nLen  := Len( cRight )
   local n

   if nLen == 0
      if AScan( aPrm, cLeft ) == 0
         AAdd( aPrm, cLeft )
      endif
   else
      for n := 1 to nLen
         Permutations( cLeft + SUBSTR( cRight, n, 1 ), ;
               Left( cRight, n - 1 ) + SubStr( cRight, n + 1 ) )
      next
   endif

return nil