Discussion :

[polip]

Bonjour a tous,

Je suis débutant avec Interbase et j'ai un problème avec création d'une table.
Est-il possible de créer une table, qui regroupe toutes les combinaisons possibles
du Loto? (5/49, donc 1 906 884 enrg)
Avec Paradox c'est facile, mais il se plant facilement avec plusieurs millions enreg.
Voici la table que je veut créer:

Id A B C D E
1 1 2 3 4 5
. . . . . .
1906884 45 46 47 48 49

Merci d'avance.

[makowski]

oui pas de probleme
create database ...
create table ...
insert into ...

[SergioMaster]

oui pas de probleme
create database ...
create table ...
insert into ...

je trouve que là , tu fais fort

ne serait-ce point le moment de nous démontrer la force des requêtes récursives ?

[makowski]

je trouve que là , tu fais fort

ne serait-ce point le moment de nous démontrer la force des requêtes récursives ?

Recursion Limit

Currently the recursion depth is limited to a hard-coded value of 1024.

donc je pense que la limite est dépassée non ?


sinon cela ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
WITH RECURSIVE 
  T (CH) AS 
  ( 
    SELECT '1' FROM RDB$DATABASE UNION ALL 
    SELECT '2' FROM RDB$DATABASE UNION ALL 
    SELECT '3' FROM RDB$DATABASE UNION ALL 
    SELECT '4' FROM RDB$DATABASE UNION ALL 
    SELECT '5' FROM RDB$DATABASE UNION ALL 
    SELECT '6' FROM RDB$DATABASE UNION ALL 
    SELECT '7' FROM RDB$DATABASE UNION ALL 
    SELECT '8' FROM RDB$DATABASE UNION ALL 
    SELECT '9' FROM RDB$DATABASE 
  ), 
  COMBINATIONS AS 
  ( 
    SELECT CAST(CH AS VARCHAR(5)) COMB FROM T 
    UNION ALL 
    SELECT C.COMB || T.CH 
      FROM COMBINATIONS C JOIN T 
        ON T.CH > SUBSTRING(C.COMB FROM CHAR_LENGTH(C.COMB) FOR 1) 
     WHERE CHAR_LENGTH(C.COMB) < 5 
  ) 
SELECT * FROM COMBINATIONS
WHERE CHAR_LENGTH(COMB)=5 
ORDER BY COMB

[makowski]

à vérifier j'ai fais ça vite fait mais :
avec une procédure stockée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
SET TERM ^ ;
 
RECREATE PROCEDURE loto 
RETURNS 
 ( b1 smallint, b2 smallint, b3 smallint, b4 smallint, b5 smallint )
AS 
DECLARE VARIABLE nb_boules smallint = 49; 
BEGIN
  b1=1;
  b5=5;
  WHILE (b1<=nb_boules-4) DO 
  BEGIN
   b2=b1+1;
   WHILE (b2<nb_boules-3) DO 
   BEGIN
    b3=b2+1;
    WHILE (b3<nb_boules-2) DO 
    BEGIN
     b4=b3+1;
     WHILE (b4<nb_boules-1) DO 
     BEGIN
      b5=b4+1;
      WHILE (b5<nb_boules) DO 
      BEGIN
       SUSPEND;
        b5=b5+1;    
      END               
      SUSPEND;
      b4=b4+1;    
     END           
     SUSPEND;
     b3=b3+1;    
    END     
    SUSPEND;
    b2=b2+1;    
   END   
   SUSPEND;
   b1=b1+1;
  END
 
END^
 
SET TERM ; ^

puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM LOTO

voilà, même pas besoin de table

[makowski]

et sinon voici la création de la table et son remplissage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
CREATE TABLE LOTO (b1 smallint, b2 smallint, b3 smallint, b4 smallint, b5 smallint);
COMMIT;
 
SET TERM ^ ;
 
EXECUTE BLOCK  
AS 
DECLARE VARIABLE nb_boules smallint = 49; 
DECLARE VARIABLE b1 smallint = 1;
DECLARE VARIABLE b2 smallint;
DECLARE VARIABLE b3 smallint;
DECLARE VARIABLE b4 smallint;
DECLARE VARIABLE b5 smallint;
BEGIN
  WHILE (b1<=nb_boules-4) DO 
  BEGIN
   b2=b1+1;
   WHILE (b2<nb_boules-3) DO 
   BEGIN
    b3=b2+1;
    WHILE (b3<nb_boules-2) DO 
    BEGIN
     b4=b3+1;
     WHILE (b4<nb_boules-1) DO 
     BEGIN
      b5=b4+1;
      WHILE (b5<nb_boules) DO 
      BEGIN
       INSERT INTO LOTO (b1,b2,b3,b4,b5) VALUES (:b1,:b2,:b3,:b4,:b5);
        b5=b5+1;    
      END               
      INSERT INTO LOTO (b1,b2,b3,b4,b5) VALUES (:b1,:b2,:b3,:b4,:b5);
      b4=b4+1;    
     END           
     INSERT INTO LOTO (b1,b2,b3,b4,b5) VALUES (:b1,:b2,:b3,:b4,:b5);
     b3=b3+1;    
    END     
    INSERT INTO LOTO (b1,b2,b3,b4,b5) VALUES (:b1,:b2,:b3,:b4,:b5);
    b2=b2+1;    
   END   
   INSERT INTO LOTO (b1,b2,b3,b4,b5) VALUES (:b1,:b2,:b3,:b4,:b5);
   b1=b1+1;
  END
 
END^
 
SET TERM ; ^
COMMIT;

[polip]

à vérifier j'ai fais ça vite fait mais :
avec une procédure stockée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
SET TERM ^ ;
 
RECREATE PROCEDURE loto 
RETURNS 
 ( b1 smallint, b2 smallint, b3 smallint, b4 smallint, b5 smallint )
AS 
DECLARE VARIABLE nb_boules smallint = 49; 
BEGIN
  b1=1;
  b5=5;
  WHILE (b1<=nb_boules-4) DO 
  BEGIN
   b2=b1+1;
   WHILE (b2<nb_boules-3) DO 
   BEGIN
    b3=b2+1;
    WHILE (b3<nb_boules-2) DO 
    BEGIN
     b4=b3+1;
     WHILE (b4<nb_boules-1) DO 
     BEGIN
      b5=b4+1;
      WHILE (b5<nb_boules) DO 
      BEGIN
       SUSPEND;
        b5=b5+1;    
      END               
      SUSPEND;
      b4=b4+1;    
     END           
     SUSPEND;
     b3=b3+1;    
    END     
    SUSPEND;
    b2=b2+1;    
   END   
   SUSPEND;
   b1=b1+1;
  END
 
END^
 
SET TERM ; ^

puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM LOTO

voilà, même pas besoin de table

Merci beaucoup, maintenant j'ai un problème avec alter database,
pour ajouter les fichiers a ma base, car 4Go c'est fini !

[SergioMaster]

Recursion Limit

Currently the recursion depth is limited to a hard-coded value of 1024.

donc je pense que la limite est dépassée non ?

Ah , je n'avais pas pensé à ça
tu n'en parlais pas dans ton excellent article (Linux mag 111 que j'ai eu beaucoup de mal a avoir )
il faut dire que j'etais nettement plus intéressé par les CTE que par des générations de combinaisons tres souvent demandé dans des PME

[makowski]

Ah , je n'avais pas pensé à ça
tu n'en parlais pas dans ton excellent article (Linux mag 111 que j'ai eu beaucoup de mal a avoir )

si :

Attention tout de même avec ce type de requête, il existe une limite à la recursivité, le nombre de cycles de récursion est limité à 1024.