CREATE TABLE t1 (nID I, cPart C( 1 ), cValue C( 1 ))
RAND( 1 )
CLEAR
SET TALK OFF
SET NOTIFY OFF
SET NOTIFY CURSOR OFF
LOCAL lnSec, lnID, ln1, laTmp( 10 )
lnSec = SECONDS()
FOR lnID =  1  TO  2000000 
 FOR ln1 =  0  TO  4 
  laTmp(m.ln1 *  2  +  1 ) = m.ln1 *  10  +  1  + INT(RAND()* 10 )
  laTmp(m.ln1 *  2  +  2 ) = m.ln1 *  10  +  1  + INT(RAND()* 10 )
  DO WHILE laTmp(m.ln1 *  2  +  2 ) = laTmp(m.ln1 *  2  +  1 )
   laTmp(m.ln1 *  2  +  2 ) = m.ln1 *  10  +  1  + INT(RAND()* 10 )
  ENDDO
 ENDFOR
 FOR ln1 =  10  TO  6  STEP - 1 
  ADEL(laTmp, INT( 1  + RAND() * m.ln1))
 ENDFOR
 FOR ln1 =  0  TO  4 
  laTmp( 6  + m.ln1) = m.ln1 *  10  +  1  + INT(RAND()* 10 )
 ENDFOR
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "1", CHR( 32  + m.laTmp( 1 )))
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "1", CHR( 32  + m.laTmp( 2 )))
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "1", CHR( 32  + m.laTmp( 3 )))
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "1", CHR( 32  + m.laTmp( 4 )))
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "1", CHR( 32  + m.laTmp( 5 )))
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "2", CHR( 32  + m.laTmp( 6 )))
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "2", CHR( 32  + m.laTmp( 7 )))
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "2", CHR( 32  + m.laTmp( 8 )))
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "2", CHR( 32  + m.laTmp( 9 )))
 INSERT INTO t1 (nID, cPart, cValue) VALUES ;
   (m.lnID, "2", CHR( 32  + m.laTmp( 10 )))
ENDFOR
? SECONDS() - m.lnSec
INDEX ON cValue TAG cValue
INDEX ON cPart TAG cPart
? SECONDS() - m.lnSec

CLEAR
CREATE TABLE t2 (cValue C( 1 ))
INDEX ON cValue TAG cValue
FOR ln1 =  1  TO  50 
    DO WHILE .T.
        lnRand = INT( 1  + RAND()* 50 )
        SELECT t2
        LOCATE FOR cValue == CHR( 32  + m.lnRand)
        IF !FOUND("t2")
            INSERT INTO t2 (cValue) VALUES (CHR( 32  + m.lnRand))
            EXIT
        ENDIF
    ENDDO
    lnSec = SECONDS()
    SELECT t1
    REPLACE cPart WITH "3" FOR cValue = CHR( 32  + m.lnRand) AND cPart = "1"
    REPLACE cPart WITH "4" FOR cValue = CHR( 32  + m.lnRand) AND cPart = "2"
    SELECT nID, ;
            cPart, ;
            COUNT(*) ;
        FROM t1 ;
        WHERE cPart = "3" OR cPart = "4" ;
        GROUP BY nID, cPart ;
        HAVING COUNT(*) >  4  ;
        INTO CURSOR csrRes
* Иной вариант
*    SELECT nID, ;
*            nPart, ;
*            COUNT(*) ;
*        FROM t1 INNER JOIN t2 ;
*            ON t1.cValue = t2.cValue ;
*        GROUP BY nID, cPart ;
*        HAVING COUNT(*) >  4  ;
*        INTO CURSOR csrRes
    ? m.ln1, SECONDS() - m.lnSec, _TALLY
ENDFOR

CREATE TABLE t3 (nID I, a1 C( 1 ), a2 C( 1 ), a3 c( 1 ), a4 C( 1 ), a5 C( 1 ), a6 
C( 1 ), a7 C( 1 ), a8 C( 1 ), a9 C( 1 ), a10 C( 1 ), b1 C( 1 ), b2 C( 1 ), b3 C( 1 ), b4 
C( 1 ), b5 C( 1 ))
RAND( 1 ) && Для получения всегда одной и той-же последовательности!!!
CLEAR
SET TALK OFF
SET NOTIFY OFF
SET NOTIFY CURSOR OFF
LOCAL lnSec, lnID, ln1, laTmp( 15 ), ln2
lnSec = SECONDS()
FOR lnID =  1  TO  20000000 
 FOR ln1 =  0  TO  4 
  laTmp(m.ln1 *  3  +  1 ) = INT(RAND()* 10 )
  laTmp(m.ln1 *  3  +  2 ) = INT(RAND()* 10 )
  DO WHILE laTmp(m.ln1 *  3  +  2 ) = laTmp(m.ln1 *  3  +  1 )
   laTmp(m.ln1 *  3  +  2 ) = INT(RAND()* 10 )
  ENDDO
  laTmp(m.ln1 *  3  +  3 ) = INT(RAND()* 10 )
  DO WHILE laTmp(m.ln1 *  3  +  3 ) = laTmp(m.ln1 *  3  +  1 ) OR ;
    laTmp(m.ln1 *  3  +  3 ) = laTmp(m.ln1 *  3  +  2 )
   laTmp(m.ln1 *  3  +  3 ) = INT(RAND()* 10 )
  ENDDO
 ENDFOR
 FOR ln1 =  1  TO  5 
  ln2 = INT(RAND()* 10 )
  ln2 =  1  + m.ln2 + INT(m.ln2/ 2 )
  DO WHILE laTmp(m.ln2) = - 1 
   ln2 = INT(RAND()* 10 )
   ln2 =  1  + m.ln2 + INT(m.ln2/ 2 )
  ENDDO
  laTmp(m.ln2) = - 1 
 ENDFOR
 FOR ln1 =  1  TO  15 
  IF laTmp(m.ln1) = - 1 
   laTmp(m.ln1) = ""
  ELSE
   laTmp(m.ln1) = STR(m.laTmp(m.ln1),  1 )
  ENDIF
 ENDFOR
 INSERT INTO t3 (nID, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, b1, b2, b3, 
b4, b5) VALUES ;
   (lnID, ;
   laTmp( 1 ), laTmp( 4 ), laTmp( 7 ), laTmp( 10 ), laTmp( 13 ), ;
   laTmp( 2 ), laTmp( 5 ), laTmp( 8 ), laTmp( 11 ), laTmp( 14 ), ;
   laTmp( 3 ), laTmp( 6 ), laTmp( 9 ), laTmp( 12 ), laTmp( 15 ))
ENDFOR
? SECONDS() - m.lnSec

CLEAR
CREATE TABLE t2 (cValue C( 2 ))
INDEX ON cValue TAG cValue
SET ORDER TO  0 
RAND( 100 ) && Для получения всегда одной и той-же последовательности!!!
FOR ln1 =  1  TO  50 
 DO WHILE .T.
  lnRand = INT(RAND()* 50 )
  SELECT t2
  LOCATE FOR cValue == STR(m.lnRand,  2 )
  IF !FOUND("t2")
   INSERT INTO t2 (cValue) VALUES (STR(m.lnRand,  2 ))
   EXIT
  ENDIF
 ENDDO
 lnSec = SECONDS()
* START  v1
SELECT t3
ln2 = INT(m.lnRand/ 10 )
ln3 = STR(m.lnRand% 10 ,  1 )
DO CASE
CASE m.ln2 =  0 
 REPLACE a1 WITH "" FOR a1 = m.ln3
 REPLACE a6 WITH "" FOR a6 = m.ln3
 REPLACE b1 WITH "" FOR b1 = m.ln3
CASE m.ln2 =  1 
 REPLACE a2 WITH "" FOR a2 = m.ln3
 REPLACE a7 WITH "" FOR a7 = m.ln3
 REPLACE b2 WITH "" FOR b2 = m.ln3
CASE m.ln2 =  2 
 REPLACE a3 WITH "" FOR a3 = m.ln3
 REPLACE a8 WITH "" FOR a8 = m.ln3
 REPLACE b3 WITH "" FOR b3 = m.ln3
CASE m.ln2 =  3 
 REPLACE a4 WITH "" FOR a4 = m.ln3
 REPLACE a9 WITH "" FOR a9 = m.ln3
 REPLACE b4 WITH "" FOR b4 = m.ln3
CASE m.ln2 =  4 
 REPLACE a5 WITH "" FOR a5 = m.ln3
 REPLACE a10 WITH "" FOR a10 = m.ln3
 REPLACE b5 WITH "" FOR b5 = m.ln3
ENDCASE
SELECT nID ;
 FROM t3 ;
 WHERE (EMPTY(a1) AND ;
  EMPTY(a2) AND ;
  EMPTY(a3) AND ;
  EMPTY(a4) AND ;
  EMPTY(a5) AND ;
  EMPTY(a6) AND ;
  EMPTY(a7) AND ;
  EMPTY(a8) AND ;
  EMPTY(a9) AND ;
  EMPTY(a10)) OR ;
  (EMPTY(b1) AND ;
  EMPTY(b2) AND ;
  EMPTY(b3) AND ;
  EMPTY(b4) AND ;
  EMPTY(b5)) ;
 INTO CURSOR csrRes
* END  v4
 ? m.ln1, SECONDS() - m.lnSec, _TALLY
SELECT nID ;
 FROM t3 ;
 WHERE EMPTY(a1) AND ;
  EMPTY(a2) AND ;
  EMPTY(a3) AND ;
  EMPTY(a4) AND ;
  EMPTY(a5) AND ;
  EMPTY(a6) AND ;
  EMPTY(a7) AND ;
  EMPTY(a8) AND ;
  EMPTY(a9) AND ;
  EMPTY(a10) AND ;
  EMPTY(b1) AND ;
  EMPTY(b2) AND ;
  EMPTY(b3) AND ;
  EMPTY(b4) AND ;
  EMPTY(b5) ;
 INTO CURSOR csrRes2
 ?? SECONDS() - m.lnSec, _TALLY
ENDFOR

using System;

namespace Cards
{
 class Class1
 {
  [STAThread]
  static void Main(string[] args)
  {
   if ( args.Length <  2  )
   {
    Console.WriteLine( "Запуск: cards <количество карточек> <число> [<число> 
....]" );
    return;
   }

   Console.Write( "Создание и заполнение {0:# ### ##0} карточек... ", 
Convert.ToInt32( args[ 0 ] ) );
   DateTime d = DateTime.Now;
   byte [] bytes = new byte[ Convert.ToInt32( args[ 0 ] ) *  10  ];
   Random rnd = new Random();

   for ( int i = bytes.Length; --i >= 0; )
    bytes[i] = Convert.ToByte( rnd.Next(  50  ) +  1  );
   Console.WriteLine( DateTime.Now - d );

   byte [] numbers = new byte[ args.Length- 1  ];
   for ( int i = numbers.Length; --i >= 0; )
    numbers[i] = Convert.ToByte( args[i+ 1 ] );


   Console.Write( "Поиск... " );
   d = DateTime.Now;
   int Count =  0 ;
   for ( int i =  0 ; i < bytes.Length; i +=  10  )
    if ( Find( bytes, i, numbers ) || Find( bytes, i+ 5 , numbers ) )
     Count++;
   Console.WriteLine( DateTime.Now - d );
   Console.WriteLine( "Найдено: {0}", Count );
  }

  static bool Find ( byte [] bytes, int index, byte [] numbers )
  {
   for ( int i = index +  5 ; --i >= index; )
   {
    bool ok = false;
    for ( int j = numbers.Length; --j >= 0; )
     if ( bytes[i] == numbers[j] )
     {
      ok = true;
      break;
     }

    if ( !ok ) return false;
   }
   return true;
  }
 }
}